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.
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 ?
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
je vous remercie d'avance pour vos réponses.
cdt
Partager