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' :
Je vous remercie de votre aide...
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...