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

[Pimousse17]

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

 

[JNP]

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

 

[Pimousse17]

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

Merci pour ta réponse
C'est du côté du presse papier je vais regarder ton GetFromClipBoard (c'est quoi ce truc ?)

 

[Pimousse17]

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 !

 

[JNP]

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

Sub test()
    Dim MyData As DataObject
    Set MyData = New DataObject
    MyData.GetFromClipboard
    MsgBox MyData.GetText(1)
End Sub

Bon courage

 

[Pimousse17]

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

Désolé j'ai pas eu le temps de bosser dessus avant, ça marche très bien , merci !