Bonsoir à tous,

Je voudrais envoyer des mails sous excel avec une pièce jointe et un message.
J'aimerais que le fichier joint porte le nom de la feuille "Réservation" et que mon message "bonjour, ...." apparaisse.

dans la macro ci-dessous:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Sub Message()
 
    Dim Wbk As Workbook
 
    ThisWorkbook.Sheets("Réservation").Copy
    Set Wbk = ActiveWorkbook
    SendKeys "{E}"
    Wbk.SendMail "mon.adresse@mail.fr", "objet du message " & Mid(ActiveWorkbook.Name, 1, 16), True
 
    'Message = "Bonjour, veuillez trouver ci-joint le fichier xls" sur 2 ou 3 lignes
 
    Wbk.Close savechanges:=False
    Set Wbk = Nothing
 
End Sub
d'avance merci pour votre aide,
@+
Obelix73