Insérer valeur d'une céllule dans sujet Mail

Bonjour à tous

C'est un peu désespéré que je poste ce sujet, j'ai passé un temps impossible a chercher un moyen

d'inséré la valeur d'une cellule "Range M2" "Feuil3" dans le corps du message mail mais à l'évidence je suis nul !

Merci beaucoup pour votre aide !!

Si vous connaissez un moyen de coller une image à la fin du mail je suis preneur !

Sub Mail()

Range("PerfReportForMail").Select

Selection.Copy

Set appliOutlook = New Outlook.Application

Set emailOutlook = appliOutlook.CreateItem(olMailItem)

With emailOutlook

.To = Destinataires

.CC = "XXXX@gmail.com"

.Subject = "XXXXXXXXXXX"

.Body = "Bonjour," & vbCrLf & "Veuillez trouver en piéce jointe votre facture" & vbCrLf & "en votre aimable réglement."

.Display

End With

Set appliOutlook = Nothing

Set emailOutlook = Nothing

End Sub

Bonjour,

Essai de cette façon :

.Body = "Bonjour," & vbCrLf
.Body = .Body & "Veuillez trouver en piéce jointe votre facture" & vbCrLf
.Body = .Body & "Ici la valeur de la cellule M2 : " & Worksheets("Feuil3").Range("M2").Value & vbCrLf & vbCrLf
.Body = .Body & "en votre aimable réglement."

Bonjour Theze

Merci beaucoup pour votre réponse, après différents essais il y a un débogage sur la première ligne .Body

Erreur 287 "Erreur définie par l'application ou par l'objet

qu'en pensez-vous ?

Merci

Bonjour,

Pourtant, chez moi, ça fonctionne ....

Tu as bien ajouté, dans le memu Outils, la référence "Microsoft Outlook ........... Object Library"

Sub Mail()
''Range("PerfReportForMail").Select   ' j'ai mis en commentaire car, je n'ai pas ce champ
''Selection.Copy
Set appliOutlook = New Outlook.Application
Set emailOutlook = appliOutlook.CreateItem(olMailItem)
With emailOutlook
   .To = Destinataires
   .CC = "XXXX@gmail.com"
   .Subject = "XXXXXXXXXXX"
   .Body = "Bonjour," & vbCrLf
   .Body = .Body & "Veuillez trouver en piéce jointe votre facture" & vbCrLf
   .Body = .Body & "Ici la valeur de la cellule M2 : " & Worksheets("Feuil3").Range("M2").Value & vbCrLf & vbCrLf
   .Body = .Body & "en votre aimable réglement."
   .Display
End With
Set appliOutlook = Nothing
Set emailOutlook = Nothing
End Sub

Gelinotte

Bonjour Génilotte

Merci pour la réponse, j'ai eu un peu de mal mais j'ai fini par trouver. Malgré l'activation Microsoft Outlook Object Library, cela ne fonctionnais pas, j'ai tester le fichier sur un autre poste de travail et cela fonctionne. C'est donc local avec mon poste de travail et uniquement avec ce fichier car sur nouveau fichier ça fonctionne aussi.

Merci beaucoup !