Microsoft 365 Couper/coller une image sur Outlook

ExcLnoob

XLDnaute Junior
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 Junior
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
178

Statistiques des forums

Discussions
297 999
Messages
1 964 990
Membres
200 794
dernier inscrit
Babann