Abonnez-vous à ce blog par e-mail.

Saisissez votre adresse e-mail pour vous abonner à ce blog et recevoir une notification de chaque nouvel article par email.

Les Dern. fichiers

Créer un bouton dans Word/Outlook/Excel pour lancer Emoticon

EDIT : TUTO modifié de manière à corriger le problème de Guillemets  » non pris en charge par WordPress

Hello !

Voici un petit tuto pour vous expliquer comment ajouter un bouton qui lancera Emoticon dans la barre d’outils de Outlook/Excel/Word…

L’exemple sera pris pour Outlook

  •  Lancer Outlook puis allez dans le menu Outils, puis Macro, puis Macros…
  • Dans la fenêtre qui s’ouvre, entrez AfficherEmoticon, puis sur créer
  • Entrez le code ci-dessous (en modifiant bien le chemin de Emoticon)
  • Attention pour le «  » c’est la touche 3 du haut du clavier
Sub AfficherEmoticon()
Dim RetVal As Long
Dim Cible As String
Cible =  "D:\Visual DialogScript\Emoticon\emoticon.exe"
RetVal = Shell(Cible, 1)
End Sub

Si vous souhaitez, je vous ai fait le fichier qui est récupérable ici (Utiliser la fonction d’import dans Visual Basic Editor) ou utiliser le bloc note pour ouvrir le fichier, copier l’ensemble et le coller dans Visual Basic Editor. Pensez à changer le chemin pour accéder à Emoticon :

  AfficherEmoticon.bas (du 4 décembre 2013 à 14:03, 205 bytes, 2 227 téléchargements)

  • Puis cliquez sur Fichier et Enregistrer (Vous pouvez tester si cela fonctionne en cliquant sur Exécuter ou en utilisant le raccourcis clavier F5)
  • Refermez Visual Basic pour retourner sous Outlook
  • Cliquez droit sur la barre d’outils et sélectionnez Personnaliser
  • Cliquez sur Macro, et dans la partie de droite devrait apparaitre Projet 1.AfficherEmoticon que vous allez glisserà l’endroit que vous souhaitez dans la barre d’outils.

  • Cliquez droit sur le bouton que vous venez de créer et sélectionnez par défaut afin de supprimer le texte
  • Maintenant modifions l’icône. Cliquez droit sur le bouton et sélectionnez modifier l’image du bouton et sélectionnez par exemple le smiley.

  • vous pouvez maintenant fermer la fenêtre nommée personnalisation, ainsi que Outllook puis valider pour la sauvegarde du vichier VBA
  • Relancer Outlook et tester le bouton

 

PS : Il se peut que les macros soient désactivées par défaut. POur les réactiver, procédez comme suit :

– Aller dans Word puis Outils, puis Macros, sécurité
– coche niveau de sécurité moyen et valider par Ok puis relancer Word

16 comments to Créer un bouton dans Word/Outlook/Excel pour lancer Emoticon

  • ça marche… 😉

  • avatar Max

    Merci, je te tiendrai au courant…
    @+

  • Je suis sous Office 2007 aussi (en Windows 7)
    J’ai fait l’essais en plaçant Emoticon dans le même dossier que toi et je n’ais pas de problème…

    Peut être un problème avec l’UAC que je te conseille de désactiver voir si ça ne vient pas de là…

    Sinon rien ne dois faire redondance dans l’éditeur…
    Tu dois retrouver uniquement :
    Sub AfficherEmoticon()
    Dim RetVal As Long
    Dim Cible As String
    Cible = "Le_Chemin_Vers_Emoticon"
    RetVal = Shell(Cible, 1)
    End Sub

    Tu peux essayer en remplaçant la commande ci-dessus par :
    Sub AfficherEmoticon()
    Shell("Le_Chemin_Vers_Emoticon")
    End Sub

    ou avec un autre programme
    Sub AfficherEmoticon()
    Shell ("C:\windows\system32\notepad.exe")
    End Sub

    Penses a refermer Outlook complètement après chaque modification sinon les modifs ne sont pas toujours prises en compte…

  • avatar Max

    Hello,
    C’est avec Outlook 2007 que je voudrais installer ce petit joujou…
    Le chemin « pur » que je trouve en faisant parcourir le dossier d’installation ( l’onglet sécurité c’est où ?) c’est: C:\Program Files (x86)\Emoticon

    Donc c’est du bol mais je crois que c’est bien le même que celui du fichier déjà préparé.
    J’avais aussi réussit jusqu’ à faire glisser Projet 1.AfficherEmoticon mais en cliquant droit je n’avais pas « par défaut » et le long menu déroulant.?
    En plus dans l’éditeur basique il y a déjà des trucs qui font redondance déjà écrits, il faut les enlever ou pas ?
    Et puis au démarrage l’ UAC bloque toujours Emoticon c’est moitié con?

  • Salut Max
    Sous quel logiciel (word, excel, outlook) et quelle version (2003? 2007?…) as tu fais l’essais?
    Es-tu sûr que le chemin de emoticon est exactement celui-là?
    Dans le doute, va dans le menu Fichier de Emoticon, puis dans Parcourir le dossier de Emoticon
    Cliques droit sur emoticon.exe, puis propriétés et dans l’onglet Général tu récupères le chemin de Emplacement en rajoutant \emoticon.exe à la fin.

    Tu as aussi le chemin dans l’onglet sécurité

    J’ai fais quelques essais de mauvais chemin de fichier et je tombe sur la même erreur que toi…

  • avatar Max

    Salut,
    J’ ai essayer de suivre scrupuleusement les procédures mais c’est lors de la compilation du petit fichier que ça foire, voici ce que dit l’utilitaire de débogage:
    http://cjoint.com/?3EBvqgNU09e
    Merci de l’aide

  • Salut Catherine,
    Je n’ais pas de Outlook 2003 sous la main, donc je ne me rappelles plus trop, mais en regardant les captures sur Google, le menu Outils se trouve entre le menu « Atteindre » et le menu « Actions ».

    Je suis sous Outlook 2007 (le menu outil se trouve au même endroit). Mais la procédure est la même que pour Outlook 2003.

    Pour restaurer les menus par défaut, cliques droit sur la barre d’outils, puis dans la fenêtre qui s’ouvre cliques sur l’onglet « Barres d’outils », cliques sur « Barre de menu », puis sur le bouton réinitialiser.

    Tu devrais retrouver le menu Outil.
    Je t’ais mis une petite vidéo si besoin
    Capture vidéo

  • avatar Catherine

    Je cherche la procédure la plus simple pour installer des émoticones sous Outlook 2013. Pourriez-vous m’expliquer la procédure? Vous parlez du menu « outils », je ne vois rien. Il est vrai que je ne suis pas douée. Si vous pouviez m’éclairer j’apprécierais. Merci d’avance

  • Salut Sysy68.
    Es-tu sûr d’avoir utilisé le bon  » pour encadrer le chemin de Emoticon?
    Ex :
    Cible = « C:\…\..\emoticon.exe »
    Je penses que le problème vient de là…
    Ou alors le chemin pour aller jusqu’à Emoticon n’est pas le bon…

    PS1 : J’ai ajouté dans l’article le fichier à importer dans Visual Basic Editor si tu as besoin.
    PS2 : J’ai aussi fait un code un peu plus embellis dans le post…

  • avatar Sysy68

    Bonjour,
    Outlook sous 7, j’ai un message d’erreur « 5 » argument ou appel de procédure incorrect
    Cible = « C:\Program Files\Emoticon\emoticon.exe »
    RetVal = Shell(Cible, 1)
    débogage : dernière ligne en jaune
    Merci pour l’aide

  • Salut GODCHAUX
    Emoticon ne se trouve pas dans le dossier c:\Visual DialogScript\Emoticon je pense… (plutôt c:\program files\Emoticon ou C:\Program Files (x86)\Emoticon ou autre chose…)
    Mets le dossier correct sinon ça ne peut pas fonctionner correctement…

  • avatar GODCHAUX

    Bonjour
    je n’arrive pas à créé un bouton dans word excel et autre Office 2007
    je suis la procédure indiqué mais rien ne marche message erreur
    Voilà ma procédure. C étant la lettre de mon disque dur système
    Sub AfficherEmoticon()
    Dim RetVal As Long
    Dim Cible As String

    Cible = « c:\Visual DialogScript\Emoticon\emoticon.exe »
    RetVal = Shell(Cible, 1)
    End Sub
    lors de l’enregistrement il y a message
    erreur d’exécution »53″
    je clic sur debogage et
    cette parti du texte est en jaune

    RetVal = Shell(Cible, 1)

    Pourquoi

    Merci

  • Salut Mathieu et merci pour ta remarque pertinente…
    C’est tout simple mais effectivement j’ai oublié de l’indiquer. (Je l’ai rajouté dans le post)

    – Va dans Word/excel/Outlook puis Outils, puis macros, puis sécurité
    – coche niveau de sécurité moyen et valide par Ok puis relance Word

  • avatar MATHIEU MARTINE

    bonjour,

    j’ai essayé avec l’aide de votre tuto d’installer emoticon mais on me dit que les macros sont désactivées. Merci de me dire comment remédier à ce défautK

  • Salut
    Quel rapport avec cet article? 😉

    Pour répondre a ta question, il me faudrait plus d’informations.
    Pour cela utilises l’aide de Emoticon et regarde la compatibilité des programmes. Cela t’aidera grandement. Voici les liens :
    http://emoticon.gregland.net/?page_id=33
    http://emoticon.gregland.net/?page_id=29

    Et si par miracle tu ne trouves pas de sollution a ton problème, n’hésites pas a m’envoyer un rapport d’erreur a partir du menu Aide de Emoticon.

  • avatar mariani

    je n’arrive pas a mettre des emoticone

Laisser un commentaire