Bonjour,
J'ai créer cette MACRO qui fonctionne :
Sub envoiMailEtFeuilleActive()
ActiveSheet.Copy ' crée une copie de la feuille active
Recipients = Range("G3")
ActiveWorkbook.SendMail Recipients, Subject:="AFS Hiérarchique"
Application.DisplayAlerts = False
ActiveWorkbook.Close ' supprime le classeur créé après l'envoi
Application.DisplayAlerts = True
End Sub
Comment je peux rajouter un corps de texte dans mon mail ???
Merci