Bonjour vincent 3012
Un exemple de ce qui est possible de faire
Sub SendChartMail()
Dim OutApp As Object, OutMail As Object
Dim OutMsg As String, ChartPath As String
Dim oChart As ChartObject
On Error Resume Next
' Créer une instance d'outlook
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)
OutMsg = "Bonjour,<br> <br> Vous trouverez ci-joint les graphiques <br> <br>"
OutMail.display
OutMail.To = "adresse@mail.fr"
OutMail.Subject = "Graphiques"
' Pour chaque graphique de la feuille active
For Each oChart In ActiveSheet.ChartObjects
If oChart Is Nothing Then Exit Sub
' Sinon
ChartPath = ThisWorkbook.Path & "\" & Environ("USERNAME") & Format(Now(), "yyyy.mm.dd_HHMM") & ".bmp"
oChart.Chart.Export ChartPath
OutMail.Attachments.Add ChartPath
Kill ChartPath
Next oChart
OutMail.HTMLBody = OutMsg & OutMail.HTMLBody
' Effacer les variables objet
Set OutMail = Nothing
Set OutApp = Nothing
End Sub
A+