envoyer une feuille par mail

[elno]

Bonjour tout le monde

voila j ai trouvé ce programme sur le site malheureusement je ne souhaiterai pas spécifié l adresse mail dans la macro mais plutot dans une cellule de ma feuille excel (en F42 par exemple)
Malheureusement je ne sais pas programmer en vba et je n'y arrive pas

Sub envoimail()

'copie la feuille dans un nouveau classeur
ThisWorkbook.Sheets('MAIL').Copy

'Sauve le classeur
ActiveWorkbook.SaveAs 'C:\\Temp\\Suivi.xls'

'Envoi le classeur par mail
ActiveWorkbook.SendMail 'elno4@hotmail.com'

'Temporisation de 15 sec
newHour = Hour(Now())
newMinute = Minute(Now())
newSecond = Second(Now()) + 15
waitTime = TimeSerial(newHour, newMinute, newSecond)
Application.Wait waitTime
MsgBox 'Le message est envoyé'

'Ferme sans sauver
ActiveWorkbook.Close False

'Supprime le classeur temp crée
Kill 'C:\\Temp\\*.xls'

End Sub

 

[guitarde]

Bonjour,

Tu devrais ajouter une variable qui contiendra l'adresse de courriel.

vDestinataire = range('f42').value

puis changer

ActiveWorkbook.SendMail vDestinataire


Salutations
Eric