Retour à la ligne d'une image dans le corp d'un mail

Bonjour,

j’ai créer une macro pour qu’excel transforme ma sélection en image puis l’envoi par mail.
L’ennuis c’est que je ne parvient pas à ce que l’image soit à la ligne en dessous du texte.
J’ajoute pourtant un saut de ligne dans le code, je ne comprend pas pourquoi il n’est pas pris en compte.
J’ai également essayé de l’ajouter au niveau du champ « Body » mais ça ne marche pas non plus…

Merci à ceux qui pourront m’éclairer :slight_smile:

Voici le code :

Sub Envoyerparmail()

Dim image As ChartObject: Dim LaFeuille As Worksheet
Set LaFeuille = ActiveSheet

Selection.CopyPicture xlScreen, xlBitmap
Set image = LaFeuille.ChartObjects.Add(0, 0, Selection.Width, Selection.Height)
image.Activate

Dim oOutlook As Object
Set oOutlook = CreateObject("Outlook.Application")
    
Dim oMail As Object
Set oMail = oOutlook.CreateItem(0)

Dim Email As String
Dim Texte As String

       
With oMail

    .Display
    
    Dim oObjetword As Object
    Set oObjetword = .GetInspector.WordEditor
       
    Email = "machin@truc.com"
    Texte = " Bonjour," & vbCrLf & vbCrLf & "Veuillez trouver ci-dessous le planning des interventions qui auront lieu dans les prochaines semaines :" & vbCrLf
    
    .To = Email
    .Subject = "Planning des interventions laboratoire"
    .Body = Texte
    image.Chart.Paste
    oObjetword.Range(115).Paste
   
End With

image.Delete

End Sub

Bonjour,
Essayez plutôt en tant que pièce jointe.

.attachements.add "emplacement\fichier"

Cordialement

Merci pour votre réponse mais il faut absolument que l’image soit dans le corps du mail.

1 « J'aime »

Bonjour, je pense qu’il faut déclarer le corps de mail en .HtmlBody pour gérer de la mise en forme ou y inclure des images, Cf règles des balises Html, j’ai déjà utilisé ça pour mettre du texte en gras et en couleur, mais pas encore pour inclure une image, à creuser

Bonjour et merci pour votre réponse.

Je vais creuser cette piste.