Copier/coller de graphiques dans un mail

Bonjour à tous,

Alors après avoir fait le tour des forums je n'ai pas trouvé de réponse à ma question.

Voila j'aimerai qu'à la fin d'une macro qui actualise un bon nombre de graphiques que je dois envoyer par mail, j'aimerai ajouter la fonction permettant de copier coller les graphiques dans un nouveau mail (via outlook).

Je n'ai pas trouvé de solution pour cela

Merci par avance

bien cordialement

Vincent

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+

Bonjour et merci pour ce code qui fonctionne parfaitement.

Cependant j'aimerais ajouter en plus en pj la feuille active ou sont prise les images des graphiques,

je n'arrive pas à compiler les deux !

Pouvez-vous m'aider ?

Rechercher des sujets similaires à "copier coller graphiques mail"