Envoi feuilles Excel par mail

Bonsoir,

J'ai créé un fichier avec 3 onglets (3 collègues), et dans chacun d'eux il y a un tableau.

Les chiffres sont rentrés en fin de semaine par un responsable, qui doit envoyer les chiffres à chaque collègue.

Dans l'onglet Feuil1, j'ai inséré 3 boutons pour chacun des collègues. En cliquant, un mail est envoyé sur l'adresse mail de chacun, avec un sujet.

Cela fonctionne bien, mais je souhaiterais également qu'un message soit envoyé, du genre "...Bonjour X, Tu trouveras ci-joint, les chiffres de .....Cordialement"

Après recherche, apparemment il n'est pas possible d'envoyer de Body en sendmail ?

Idéalement il serait également intéressant de n'avoir qu'un seul bouton qui permettrait de faire envoyer chacune des feuilles aux collègues en même temps...mais là je sèche.

Merci d'avance de votre aide.

Ci-dessous le code :

Sub Envoi ()
Dim Dest As String, Sujet As String
Sheets("PIERRE").Select 'Saisir le nom exact la feuille
ActiveSheet.Copy 'crée une copie de la feuille active
Dest = "ABC.123.fr" 'Saisir l'adresse mail
Sujet = "Chiffres"
ActiveWorkbook.SendMail Dest, Sujet, True
Application.DisplayAlerts = False
ActiveWorkbook.Close 'ferme la copie de la feuille active
Application.DisplayAlerts = True
End Sub 

Bonjour roro67

Si tu avais regardé l'aide pour Sendmail, tu aurais pu lire qu'effectivement la méthode n'a pas d'argument Body

Il te faut donc passer par une autre méthode, selon la messagerie utilisée.

Tu trouveras tout ce que tu veux sur ce forum ou sur le net

Bonjour,

Merci de la réponse, je vais donc encore chercher...la messagerie utilisée est celle de l'entreprise, Outlook.

Bonne journée

Cdt

Rechercher des sujets similaires à "envoi feuilles mail"