Bonjour a tous,


Je suis entrain d'essayer d’automatiser un dashboard (généré par une macro + formules excel) qu'il faut envoyer quotidiennement dans le corps d'un email.

le problème que je rencontre est le suivant: je n'arrive pas a mettre ce tableau, qui est sous le format IMAGE dans le corps du mail.

la difficulté que je rencontre ne réside pas dans le copier coller du tableau ( ça, c'est la macro qui rafraîchis le tableau chaque jours que le fait ) mais comment mettre l'image qui a déjà été copiée collée dans le corps du mail

le code que j'ai mis ici le fait très bien pour une plage de cellules, et j'aimerais le modifier pour qu'il le fasse pour l'image en question.

je précise que dans le corps du mail , il n'y a que l'image pas de texte.


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
20
 
Sub automatisation()
 
 Dim Mafeuille As Worksheet
 Dim NbLigne As Integer
 Set Mafeuille = ThisWorkbook.Sheets("Feuil1")
    Application.ScreenUpdating = False
 
NbLigne = Mafeuille.Range("A" & Application.Rows.Count).End(xlUp).Row
Mafeuille.Range("A1:M" & NbLigne).Select
With Selection.Parent.MailEnvelope.Item
  .To = Mafeuille.Range("AP1").Value
  .Subject = Mafeuille.Range("AP2").Value
  .CC = Mafeuille.Range("AP3").Value
  .BCC = Mafeuille.Range("AP4").Value
  .send
End With
 
MsgBox "DashBoard Envoyé.", vbInformation + vbOKOnly, "Confirmation envoyée"
Application.ScreenUpdating = True
Ma question est la suivante : comment modifier ce code affin qu'il puisse envoyer l'image ( le tableau copié collé en format image) dans le corps d'un mail ?

je vous remercie d'avance pour vos réponses.

cdt