Macro pour l' Envoi de fichier excel par mail

Fermé
Domino40 Messages postés 7 Date d'inscription samedi 22 décembre 2007 Statut Membre Dernière intervention 10 avril 2008 - 22 déc. 2007 à 09:38
gbinforme Messages postés 14946 Date d'inscription lundi 18 octobre 2004 Statut Contributeur Dernière intervention 24 juin 2020 - 22 déc. 2007 à 09:43
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

gbinforme Messages postés 14946 Date d'inscription lundi 18 octobre 2004 Statut Contributeur Dernière intervention 24 juin 2020 4 684
22 déc. 2007 à 09:43
bonjour

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