XL 2013 Déclencher un mail outlook à partir de plusieurs plages de données excel

[chac10]

Bonjour à la communauté,

Je souhaiterais avoir une macro qui me permet de déclencher un mail Outlook à partir de plusieurs plages de données excel sélectionnées préalablement. Est ce possible ?
Avec un copier-coller, image si possible.
Ne pas indiquer de destinataire
Ni d'objet

Seulement déclencher les plages de donnée que j'aurais sélectionné , dans l'idéal , dans l'ordre que j'aurais choisi.

En vous remerçiant,

Chac10

 

[fanch55]

Bonjour,
Code à tester dans celui de la feuille concernée.
Mettre 2 boutons et leur affecter les 2 subs .
Sélectionner une plage et presser le bouton de la sub Exemple

Code supprimé

 

[chac10]

Bonjour,
Code à tester dans celui de la feuille concernée.
Mettre 2 boutons et leur affecter les 2 subs .
Sélectionner une plage et presser le bouton de la sub Exemple

Dim MailItem    As Object
Dim Outlook     As Object
Dim Wins        As Object

Sub Exemple()
    If MailItem Is Nothing Then
        Set Outlook = CreateObject("Outlook.Application")
        Set MailItem = Outlook.CreateItem(olMailItem)
        With MailItem
    '        .To = "machin@toto.fr"
    '        .CC = ""
    '        .Subject = "An Email For You"
        End With
        Set Wins = MailItem.GetInspector.wordeditor
    End If
   
    Selection.CopyPicture
    With Wins.Paragraphs(Wins.Paragraphs.Count).Range
        .InsertParagraphAfter
        .Collapse Direction:=wdCollapseEnd
        .Paste
    End With

End Sub

Sub Show_Mail()
   
    MailItem.display
   
    Set Wins = Nothing
    Set MailItem = Nothing
    Set Outlook = Nothing

End Sub

Bonjour Merci pour votre réponse,
malheureusement la macro ne fonctionne pas.
il y a un beug sur cette ligne
Set Wins = MailItem.GetInspector.wordeditor Set Wins = MailItem.GetInspector.wordeditor

Chac 10

 

[fanch55]

Oki, Classeur corrigé à Tester

 

[fanch55]

Bonjour, cela vous-a-t-il servi ?