Mon histoire

Ce projet un peu fou à démarré en 2004 et a vu sa première version officielle (1.0) le 27 février 2006.

Il contient actuellement un peu + de 10 000 lignes de code.

Il est toujours présent grâce à vos dons ! 🤑. (même si un COVID-19 est passé par là !)

Vos dons ne m'ont pas rendu riche 😜, mais on permis de maintenir le site en vie et faire évoluer les outils de programmation jusqu'à aujourd'hui.

De tout coeur, merci
😀

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, 3 673 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

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

  • Mathieu

    OK pour moi c’est tout bon. ( Office 2003… Un dinosaure sous Windows10 pro et ça marche !)
    Il faut bien sur lancer Outlook en administrateur. Ce qui n’est pas le cas lors d’une installation par défaut d’Office.
    Ne touchez pas au niveau de sécurité (ne désactivez pas les UAC). Allez simplement dans les propriétés du programme Outlook.exe, accédez aux compatibilités des programmes et activez la coche Administrateur.
    Ne pas oublier, bien sur, le certificat de signature électronique VBA.
    Grand merci à l’équipe. Super boulot.

  • Jacky Sagetat

    Eureka -Si je lance Outlook en tant qu’administrateur , ma macro fonctionne
    Bravo !!
    Merciiiiiiiiiiiiiii

  • Jacky Sagetat

    Je vais installer Office 2013
    Je vous dirais ce qu’il en est
    Bonne soirée

  • Jacky Sagetat

    J’ai tout desinstalle -passerCcleaner -Reinstaller emoticon sous AppData
    J’ai refait mon fichier Visual basic:

    Sub AfficherEmoticon()
    Dim RetVal As Long
    Dim Cible As String
    Cible = « C:\Users\Jacky\AppData\emoticon.exe »
    RetVal = Shell(Cible, 1)
    End Sub

    (apres avoir fait F5 -Obtention de la boite de dialogue de la macro -Executer
    Message d’erreur:Erreur d’execution (5) -Argument ou appel de procedure incorrect
    Débogage: l’avant derniere ligne est surbrillée en jaune

    Donc, je n’ai pas la meme erreur que precedemment -le chemin est donc bien valide
    Qu’en pensez vous?
    je suis vraiment desolé de tant vous soliciter mais j’aimerai arriver à mes fins et surtout comprendre Pkoi cela ne fonctionne pas
    Encore merci

    • Effectivement le problème n’a pas l’air de venir du chemin de emoticon qui a l’air bon.
      Je ne sais pas d’où vient cette erreur…
      Je n’arrive pas a la reproduire non plus, je suis sous Windows 10 x64 avec Office 2016 et pas de soucis…

    • Peut-être trouvé le soucis… Un soucis de droits administration…
      Pour vérifier si c’est ça :
      Ferme complètement Outlook, puis lances le en tant qu’administrateur (Clic droit et Lancer en tant qu’administrateur)
      et dis moi si tu as l’erreur en lançant la macro

  • Jacky Sagetat

    A chaque fois, je refermais tout: visual basic et outlook

  • Jacky Sagetat

    J’ai toujours le meme probleme:ci apres mon fichier
    Sub AfficherEmoticon()
    Dim RetVal As Long
    Dim Cible As String
    Cible = « C:\Users\Jacky\AppData\Roaming\Microsoft\Windows\Start Menu\Programs\Emoticon\emoticon.exe »
    RetVal = Shell(Cible, 1)
    End Sub
    J’ai essaye en mettant emoticon dans AppData, meme resultat
    Erreur d’execution (53)
    Fichier Introuvable
    Bizarre
    L’adresse, je l’ai copie en tant que lien texte donc, c’est l’adresse exacte
    Qu’en pensez vous?
    J’ai egalement essaye de copier Emoticon dans Local -Meme erreur

  • Jacky Sagetat

    Merci pour la réponse
    faut-il desinstaller completement Emoticon pour le reinstaller dans AppData ou simplement
    copier le fichier emoticon.exe dans AppData

    • Non pas de soucis. Il est possible de l’extraire directement dans le dossier appdata sans problème. A la base Emoticon est un programme portable. Le dossier peut être déplacer n’importe où. (il faut juste le fermer complètement bien entendu)

  • Jacky Sagetat

    Re bonjour,
    J’ai un autre ordinateur avec Windows 10 et outlook 2010
    J’ai fait de la meme facon qu’hier -j’ai desactive l’UAC
    Mais quoique je fasse, j’ai l’erreur suivante:
    Sub AfficherEmoticon()
    Dim RetVal As Long
    Dim Cible As String
    Cible = « C:\Program Files\Emoticon\emoticon.exe »
    RetVal = Shell(Cible, 1)
    End Sub

    Erreur d’execution (5)
    Argument ou appel de procedure incorrect
    J’ai passé la matinée la dessus sans succes
    Puis je vous solliciter de nouveau?
    Merci

    • Bonjour
      Je pense a un soucis d’administration…
      Le compte Administrateur et ses fichiers ne sont accessibles que par lui-même.
      Je pense qu’il faudrait :
      – placer Emoticon dans un dossier accessible a tous les utilisateurs (comme %appdata% ou %localappdata%),
      – puis modifier le chemin dans la macro par le nouveau chemin de Emoticon

  • Jager

    Merci bcp -cela fonctionne -Il fallait desactiver l’UAC-

  • Jager

    j’ai supprime l’espace apres programmes files -Mnt, j’ai erreur d’execution 5 – Argument ou appel de procedure incorrect

    • Le but n’est pas d’ajouter ou de supprimer l’espace mais de mettre le bon chemin pour Emoticon . Je ne peux malheureusement pas vous aidez plus si vous ne le trouvez pas. Désolé.

  • Jager

    Si je lance Emoticone manuellment, mon compte utilisateur me demande l’autorisation -Cela vien t-il de cela?

  • Jager

    Désole -j’ai bien l’espace apres programmes files mais j’ai toujours la meme erreur :53
    et le debogage = meme chose
    Je suis sur outlook 2013 avec windows 7
    Help, help, help …….Merci

  • Jager

    Bonjour-j’ai le message suivant:
    Erreur d’execution:53
    Fichier introuvable
    Ci-apres ma macro:
    Sub AfficherEmoticon()
    Dim RetVal As Long
    Dim Cible As String
    Cible = « C:\Programes Files\Emoticon\emoticon.exe »
    RetVal = Shell(Cible, 1)
    End Sub
    Quand je fais F5, j’ai la boide de dialogue, je fais executer et j’ai l’erreur d’execution
    Qd je fais deboguer, l’avant derniere ligne passe en jaune
    Merci de m’aider

    • Bonjour
      êtes vous sûr que Emoticon se trouve dans ce dossier…
      Je suis assez sceptique car ce n’est pas un dossier habituel (espace à la fin de files…)
      Merci de vérifier cela…
      La 4ème ligne du script doit indiquer le chemin exact de Emoticon sur votre ordinateur

  • Jager

    Bonjour, comment creer un bouton pour Emoticon dans Outlook 2013?
    Merci pour votre aide

  • Loopingx

    Çà fonctionne aussi avec le lancement de Thunderbird….Grrrrr

    • Il faut que tu essais avec un programme sans signature numérique, un programme d’un petit développeur comme moi qui n’a pas les moyens de lacher 500€ dans une signature numérique 😉

  • Loopingx

    Je viens d’essayer avec « C:\Program Files (x86)\TeamViewer\TeamViewer.exe », çà fonctionne….[img]http://emoticon.gregland.net/emoticon/Colere/Colere_33.gif[/img]

  • Loopingx

    J’ai fait un autre test, pensant que cela pouvait provenir de mon outlook 2016, en lançant cette macro avec excel, mais j’arrive au même erreurs : « 5 » Argument ou appel de procédure incorrect…

    • J’avoue ne pas trop savoir d’où vient le problème… mais je ne pense pas que ça a un lien direct avec emoticon. Je pense que ça a un lien avec la sécurité, car par principe, lancer un exe sans certificat a partir d’une macro, c’est un peu bof… 😉 ça fonctionne avec le bloc-note, ok, il faudrait essayer avec un autre programme sans certificat qui se trouve dans un dossier dans le même genre de Emoticon, en C:\program files…

  • Loopingx

    Oui, j’ai le même problème. Donc, je le lance manuellement quand j’ai besoin et comme çà il reste actif le reste du temps…tant pis…et merci

  • Loopingx

    Quand je le lance de n’importe quel dossier, j’ai besoin d’une autorisation

  • Loopingx

    Et bien non, même en désactivant les paramètres de contrôle du compte utilisateur, j’ai la même erreur…

  • Loopingx

    J’ai peut-être trouvé une raison : si je lance l’application emoticon directement depuis son répertoire, mon pc ouvre une fenêtre me demandant si je veux autoriser emoticon à apporter des modifications sur mon ordinateur…

  • Loopingx

    Merci de ta rapidité. Oui effectivement essayé de lancer Bloc-notes, cela fonction bien

  • Loopingx

    Bonjour,

    Je reviens sur ce sujet qui m’intéresse. J’ai Windows 10 et Outlook 2016. J’ai suivi tous les commentaires, fait toutes les adaptations proposées, j’ai téléchargé ton code pour être sûr de ne pas me tromper avec les «  »… Au lancement de la macro, j’obtiens :
    erreur « 5 » argument ou appel de procédure incorrect
    la ligne ci-dessous surlignée en jaune
    RetVal = Shell(Cible, 1)
    Quelqu’un a-t-il une solution ?

    Loopingx

  • Sophie

    Bonjour,
    je suis sur outlook 2007, j’ai suivi toute la procédure, vérifié et suivi toutes les instruction que vous aviez donné le 27 mai 2014 à « Max » mais rien n’y fait, j’ai toujours une erreur « 5 » alors que si je remplace emoticon par notepad ça fonctionne…
    Une idée du souci?
    Voici mon script:
    Sub smiley()
    Shell (« C:\Program Files (x86)\Emoticon\emoticon.exe »)
    End Sub
    Merci pour votre aide

  • Gaétan

    Hi hi hi , alors j’espère que tu seras d’excellente humeur car cet effort serait grandement apprécié.
    C’est toi qui décide.
    Merci de toute façon pour le travail accompli.

  • Salut. Ce n’est pas aussi simple que pour la suite office. Je vais voir si éventuellement je peux créer une extension.

  • Gaétan

    Peut-on insérer un bouton dans Thunderbird et si oui comment ? Merci.

  • Max

    Merci, je te tiendrai au courant…
    @+

  • 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?

    • 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…

  • 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 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…

  • 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 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

  • 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 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…

  • 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 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…

  • 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 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

  • 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.

  • mariani

    je n’arrive pas a mettre des emoticone

Répondre à GregLandAnnuler la réponse.

Ce site utilise Akismet pour réduire les indésirables. En savoir plus sur comment les données de vos commentaires sont utilisées.