Envoi pièce jointe

Bonjour le forum,

J'utilise cette macro ci dessous qui fonctionne bien mais je dois souvent changer l'email dans le module VBA.

Y a t-il une solution pour que l'email présent dans la ligne ci dessous soit remplacé par la valeur présente en cellule C11 de la Feuil1 ?

Merci de votre aide,

Wbk.SendMail Array("toto.toto@gmail.com"), " bla bla"

Sub Envoi()
Dim Wbk As Workbook
Set Wbk = ActiveWorkbook
Wbk.SendMail Array("toto.toto@gmail.com"), " bla bla"
Set Wbk = Nothing
End Sub

Bonjour Floyd, le forum

essaie ca

Sub Envoi_1()

Dim Wbk As Workbook
Set Wbk = ActiveWorkbook
Wbk.SendMail Array(Sheets("Feuil1").Range("C11")), " bla bla"
Set Wbk = Nothing

End Sub

cdt

Al

Merci Alex777f, cela fonctionne trés bien.

A bientot

Ravi d'avoir pu t'aider Floyd

Si resolue pense à clore le sujet.

cdt

Al

Désolé, une dernière question ( promis ) sur le même sujet...

est t-il possible de mettre quelqu'un en copie selon le même procédé :

Wbk.SendMail Array(Sheets("Feuil1").Range("C11")), " bla bla"

merci beaucoup et bonne soirée

Ha oui et j'oubli pas de cliquer sur un smileys pour signaler que c'est résolu...

Bonjour Floyd, le forum

essai ca

Wbk.SendMail Array(Sheets("Feuil1").Range("C11")) ";"(Sheets("Feuil1").Range("C11"))

cdt

Al

Bonjour Alex777f, bonjour le forum,

j'ai une erreur en rouge, avec le message "erreur de compilation"

Wbk.SendMail Array(Sheets("Feuil1").Range("C11")) ";"(Sheets("Feuil1").Range("C11"))

Si c'est trop compliqué, tampis, je ferai en deux envoi.

Merci

J'avai oublié quelque chose

essai

Wbk.SendMail Array(Sheets("Feuil1").Range("C11"))&";"&(Sheets("Feuil1").Range("C11"))

Merci Alex777f, mais y a une erreur 13 : "incompatibilité de type"

c'est peu etre pas possible de mettre un destinataire un copie avec la fonction "SendMail Array"