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 |
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, 3 607 téléchargements)
Fichier basique à importer dans Word/Excel/Outlook pour le tuto de cette page :
http://emoticon.gregland.net/?p=2432
- 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

NB : Solutions aux problèmes rencontrés pour cet article