Bonsoir.

J'ai récupéré et modifié une macro trouvé sur ce forum pour envoyer un mail par Outlook.

J’arrive à récupérer sur la feuille l’adresse mail et l’objet, mais comment récupérer la plage A5:A15 dans le corps du message.
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
16
17
18
19
Sub EnvoiMail_3()
Dim ObjOutlook, Dim ObjOutlookmail, Dim NomFichier As String
 
NomFichier = ThisWorkbook.Name
 
Set ObjOutlook = CreateObject("Outlook.Application")
Set oBjMail = ObjOutlook.CreateItem(olMailItem)
 
    With oBjMail
        .To = Feuil1.Range("B2") 'le destinataire
        .Subject = Feuil1.Range("A3") 'l'objet du mail
        .Body = Worksheets("Feuil1").Range("A5:A15") 'c'est là que ça bug
        '.Attachments.Add Nomfichier
        .Send ' Ici on peut mettre '.Display' pour l'envoyer avec vérification sur outlook
    End With
 
    'ObjOutlook.Quit
 
End Sub
Existe-t-il une solution ?

Merci d’avance pour vos réponses.