Microsoft 365 Couper/coller une image sur Outlook

ExcLnoob

XLDnaute Occasionnel
Bonsoir le Forum,
J'aurais besoin d'un coup de main svp.
Je cherche depuis quelques jours à insérer une plage de cellule, sélectionnée et collée sur une autre feuille au format image, dans un mail Outlook.
Pourriez-vous m'aider svp ?
La sélection peut varier
J'ai essayé de coller via word mais la selection n'est pas complète puisque gardant 'la taille word' si j'ai bien compris

Le code en question où il manque l'automatisme du 'clic droit souris dans le mail, options de collage : image' :

VB:
Sub Test()

Set CellulesNonVides = Union(Cells.SpecialCells(xlCellTypeConstants, 23), Cells.SpecialCells(xlCellTypeFormulas, 23))
    CellulesNonVides.Select

Selection.Copy

    Sheets("Feuil3").Select
        ActiveSheet.Pictures.Paste.Select
                Selection.Cut
    
  Dim OL As Object, myItem As Object

    Set OL = CreateObject("Outlook.Application")
    Set myItem = OL.CreateItem(olMailItem)

    With myItem
        .To = ""
        .Cc = ""
        .Subject = ""
        .Display
    End With

End Sub

Je vous remercie de votre aide...
 

ExcLnoob

XLDnaute Occasionnel
Bonjour le Forum,
Sujet résolu.. (Partiellement...)
J'ai récupérer une macro qui me fait le taf.
Cependant, je souhaiterai que la taille l'image collé sur Outlook prenne tout le mail alors que là je suis au format word.
Pourriez-vous m'aider svp ?
 

Discussions similaires

Réponses
3
Affichages
676

Statistiques des forums

Discussions
311 721
Messages
2 081 928
Membres
101 842
dernier inscrit
seb0390