Envoi Feuille par mail
j
Bonsoir,
J’ai un fichier Excel avec x feuilles.
A partir d’une macro et un bouton, est-il possible d’envoyer une des feuilles de ce classeur par mail (en indiquant, dans la macro l’adresse mail du destinataire) ?
Merci
A
Bonjour
Code Module
Sub EnvoiPage()
'Nombre de destinataires à adapter
Dim Destinataires(3) As String, Sujet As String
Dim AccuseReception As Boolean
'Nom du ou des destinataires à modifier
Destinataires(1) = "amadeus-09@wanadoo.fr"
Destinataires(2) = "jacquou@wanadoo.fr"
Destinataires(3) = "charlette@wanadoo.fr"
'Sujet à adapter
Sujet = "Envoi Document"
AccuseReception = True
'Nom de la Feuille à renseigner
ThisWorkbook.Sheets("MaFeuille").Copy
ActiveWorkbook.SendMail Destinataires, Sujet, AccuseReception
ActiveWorkbook.Close False
End SubCordialement
j
Merci
Y a possibilité de donner un nom "spécifique" au fichier envoyé ?