Générer Mail avec bouton

Bonjour,

J'ai réussi à créer un bouton pour générer un mail avec objet et contenu automatique.

Jusqu'à présent le corps de mon mail est bon sauf que je n'arrive pas à ajouter une sélection de cellule sous le texte.

Je vous mets le code en dessous en sachant que la parti rouge c'est elle qui n'est pas bonne. Cela m'inscrit "Vrai" à la place.

Merci

Option Explicit

Sub Envoi_mail()

Dim Envoi_mail As Variant

Set Envoi_mail = CreateObject("outlook.application") 'création d'un objet Outlook

With Envoi_mail.CreateItem(olMailItem)

.Subject = "JNC J-1 17h du " & Range("AH1") '

.To = "l'adresse mail de destination"

.Body = "Bonjour," & Chr(10) & Chr(13) & "Voici le point sur les JNC à J-1 17h du " & Range("AH1") & Chr(10) & Chr(13) & Range("A1:S55").CopyPicture '

.Display

End With

End Sub

Bonjour Vince

CopyPicture fait une copie dans le presse papier, il faut la faire en préparation du mail

lors de l'envoi il faut faire PASTE

Détail :.CopyPicture(XlScreen,XlBitmap)

Cdt Toukoul