Macro pour l' Envoi de fichier excel par mail Fermé

Question

Bonjour,

Je souhaite envoyer par mail un classeur sous exel en pièce jointe.
J'ai testécette macro:

Sub EnvoiMail() 
Workbooks("mon fichier").SendMail Recipients:="mondestinataire@FAI.fr", _ 
Subject:="Test envoi classeur", _ 
ReturnReceipt:=True 
End Sub

Est possible qu'une macro puisse pomper l'adresse de mon destinataire dans une cellule de mon classeur actif, car dans cette macro, le destinataire est en dur sur la macro.

Merci d'avance

gbinforme · Answer

bonjour

Tu dois pouvoir paramétrer ainsi
Sub EnvoiMail()
ActiveWorkbook.SendMail Recipients:=range("A1").value, _
Subject:=range("B1").value, _
ReturnReceipt:=True
End Sub

Macro pour l' Envoi de fichier excel par mail

1 réponse

Discussions similaires