Transférer diagrammes Excel vers Outlook

Bonjour à tous,

Je me permets aujourd'hui de solliciter votre aide car je coince depuis plusieurs heures sur ce problème...

J'ai des diagrammes créés sur Excel que je souhaite envoyer par email via Outlook.

Je dois rédiger un court texte et insérer au milieu de ce texte le diagramme en question.

Le problème est que le diagramme s'insère tout en haut du message.

J'ai écrit ces quelques lignes encore infructueuses:

Sub UseOutlook()

    Dim MyOutlook As Object
    Dim MyMessage As Object
    Set MyOutlook = CreateObject("Outlook.Application")
    Set MyMessage = MyOutlook.CreateItem(0)
    MyMessage.To = "pdg@entreprise.fr"
    MyMessage.Subject = "Rapport diagramme"

    EmailBody = "Bonjour à tous," & vbNewLine & vbNewLine
    EmailBody = EmailBody & "Voici le diagramme tant attendu:" & vbNewLine & vbNewLine

    Sheets("Diagrammes").Range("A2:M25").Copy
    Set wordDoc = MyMessage.GetInspector.WordEditor
    wordDoc.Range.PasteSpecial , , 0, , wdPasteBitmap

    EmailBody = EmailBody & "Merci de me faire part de vos retours concernant ce diagramme." & vbNewLine & vbNewLine
    EmailBody = EmailBody & "Cordialement," & vbNewLine & "Bruce"

    MyMessage.Body = EmailBody

    MyMessage.Display
    Set MyOutlook = Nothing

End Sub

Le diagramme devrait se coincer entre "voici..." et "merci de me faire part...". Je ne sais pas s'il faut/comment intégrer le diagramme à EmailBody.

J'ai cherché sur pas mal de forums mais je trouve les codes compliqués, confus et manquant de clareté.

Je souhaiterais éviter de faire appel à toute libraire ou add-on additionnel à Outlook. Le but est qu'un débutant puisse cliquer directement sur un bouton et générer les emails sans avoir à trifouiller les menus.

D'avance merci beaucoup pour votre aide !!!

Bonjour,

J'ai finalement trouvé la solution à mon problème.

Pour ceux qui se retrouveraient dans la même situation, il faut premièrement écrire le contenu en HTML :

MyMessage.HTMLBody = EmailBody

Ensuite il faut télécharger sur internet le module "Paste Picture" créé par Stephen Bullen en 1998 :

Ce module permet de sauvegarder des ranges en image avec la fonction PastePicture. Une fois l'image enregistrée dans le dossier de votre choix, vous pouvez l'insérer dans le code HTML en tant qu'image (fonction image src).

Cordialement.

Bruce