Sujet Précédent Sujet Suivant

Macro pour l' Envoi de fichier excel par mail

Domino40 Messages postés 7 Statut Membre -  
gbinforme Messages postés 15481 Date d'inscription   Statut Contributeur Dernière intervention   -
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
A voir également:

1 réponse

Réponse 1 / 1
gbinforme Messages postés 15481 Date d'inscription   Statut Contributeur Dernière intervention   4 731
 
bonjour

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