Envoi de graphique

Bonjour, j'ai un code mail qui fonctionne bien. J'aimerais qu'il envoi uniquement mon graphique et non la feuille excel. ma feuille s'appele graphique.

Merci à vous

Sub mail()
Dim Destinataires(3) As String, Sujet As String
Dim AccuseReception As Boolean

Destinataires(1) = "tintin@herge.com"
Destinataires(2) = ""
Destinataires(3) = ""
Sujet = "graphique de la semaine"
AccuseReception = True

ThisWorkbook.Sheets("graphique").Copy
ActiveWorkbook.SendMail Destinataires, Sujet, AccuseReception
ActiveWorkbook.Close False
End Sub

Bonjour,

Tu as besoin d'intégrer dans ta macro le fait de sauvegarder ton graphique avec un nom et un format ...avant de pouvoir l'attacher à ton mail ... comme pièce jointe ...

je crée une copie a chaque fois sur une nouvelle feuille. possible de faire un copier coller et d'intégrer le coller au mail?

Re,

A titre d'exemple dans ton code ...

Dim NomGraph As String
NomGraph = Environ$("temp") & "\LeGraph.gif"
ThisWorkbook.Sheets("graphique").Chart.Export Filename:=NomGraph, FilterName:="GIF"
' Ensuite tu dois joindre ce fichier à ton email ....
' et une fois ton email envoyé, il te suffit de supprimer ce fichier

merci

Re,

Merci pour tes remerciements