Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Lancer une macro sur un nouveau email à partir d'Excel

  • Initiateur de la discussion Initiateur de la discussion Pimousse17
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

Pimousse17

XLDnaute Nouveau
Bonjour à tous ! ! ! !
J'espère que vous pourrez m'aider une nouvelle fois !
J'ai une macro qui déclenche l'ouverture d'un nouveau mail et définit l'objet, le corps... de ce message.
Je souhaite qu'à l'ouverture de ce mail un "coller" soit réalisé. J'ai tenté en mettant une commande pour l'ouverture d'une macro word (j'ai une marco word qui lancer un coller tout simple) mais Excel ne reconnait pas la commande.
Quelqu'un pourrait-il m'aider svp ? !
En PJ un classeur qui j'espère éclaira le problème

Merci beaucoup d'avance
 

Pièces jointes

Re : Lancer une macro sur un nouveau email à partir d'Excel

Bonsoir Pimousse17 🙂,
Oui, mais tu veux coller quoi 😱 ?
Si c'est du texte, le plus simple est de le concaténer avec ton Body 🙄...
Si c'est récupérer ce qui est dans le presse papier, regarde du côter de GetFromClipBoard 😛...
Bon courage 😎
 
Re : Lancer une macro sur un nouveau email à partir d'Excel

Je viens de regarder GetFromClipBoard et notamment l'exemple de l'aide sur VBA. En effet la piste parait bien, complexe pour un néophyte comme moi ! ! ! merci beaucoup en tout cas je vais essayer !
Juste une précision je suppose que se que j'ai dans le presse papier je vais devoir le concatener avec mon body ? tu pourrais pas m'aider un peu pour faire ça ?
Merci encore !
 
Re : Lancer une macro sur un nouveau email à partir d'Excel

Re 🙂,
Concaténer en lui même est simple : MonMsg = MonMsg & MonPressePapier 😛...
Pour la méthode GetFromClipboard qui nécessite l'activation de la bibliothèque MicrosoftForms, je te conseille de créer un USF juste pour que l'activation soit automatique 🙄...
Teste ce bout de code après avoir copier du texte
Code:
Sub test()
    Dim MyData As DataObject
    Set MyData = New DataObject
    MyData.GetFromClipboard
    MsgBox MyData.GetText(1)
End Sub
Bon courage 😎
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
5
Affichages
590
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…