envoyer une image(tableau copié collé en format image) dans le corps d'un email
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:
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
