Envoi pièce jointe Le 22/01/2019 à 13:51FFloyd_15Nouveau venuMessages5Excel365Inscrit22/01/2019 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 23classeur1.xlsm (28.63 Ko) Le 22/01/2019 à 14:13Alex777fMembre habituéMessages73Excel2010Inscrit01/01/2019Bonjour Floyd, le forumessaie caSub Envoi_1() Dim Wbk As Workbook Set Wbk = ActiveWorkbook Wbk.SendMail Array(Sheets("Feuil1").Range("C11")), " bla bla" Set Wbk = Nothing End SubcdtAlLe 22/01/2019 à 14:20FFloyd_15Nouveau venuMessages5Excel365Inscrit22/01/2019Merci Alex777f, cela fonctionne trés bien.A bientotLe 22/01/2019 à 15:23Alex777fMembre habituéMessages73Excel2010Inscrit01/01/2019Ravi d'avoir pu t'aider Floyd Si resolue pense à clore le sujet.cdtAlLe 22/01/2019 à 21:38FFloyd_15Nouveau venuMessages5Excel365Inscrit22/01/2019Dé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éeHa oui et j'oubli pas de cliquer sur un smileys pour signaler que c'est résolu...Le 23/01/2019 à 08:59Alex777fMembre habituéMessages73Excel2010Inscrit01/01/2019Bonjour Floyd, le forumessai caWbk.SendMail Array(Sheets("Feuil1").Range("C11")) ";"(Sheets("Feuil1").Range("C11"))cdtAlLe 23/01/2019 à 10:25FFloyd_15Nouveau venuMessages5Excel365Inscrit22/01/2019Bonjour 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.MerciLe 23/01/2019 à 11:38Alex777fMembre habituéMessages73Excel2010Inscrit01/01/2019J'avai oublié quelque choseessaiWbk.SendMail Array(Sheets("Feuil1").Range("C11"))&";"&(Sheets("Feuil1").Range("C11"))Le 23/01/2019 à 12:14FFloyd_15Nouveau venuMessages5Excel365Inscrit22/01/2019 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"Rechercher des sujets similaires à "envoi piece jointe"ForumsExcel - VBAEnvoi pièce jointe