Re : Copier une image dans le presse-papier
Merci pour cette réponse,
Mais elle ne me convient pas, car je ne copie pas seulement l'image dans Word.
J'ai trouvé sur des forums du code, mais je n'arrive pas à l'adapter:
Declare Function OpenClipboard Lib "user32" (ByVal hwnd As Long) As Long
Declare Function CloseClipboard Lib "user32" () As Long
Declare Function SetClipboardData Lib "user32" _
(ByVal wFormat As Long, ByVal hMem As Long) As Long
Declare Function EmptyClipboard Lib "user32" () As Long
Sub copie_image()
Set img = LoadPicture("C:\zaza.bmp")
OpenClipboard 0
EmptyClipboard
SetClipboardData 2, img.Handle
CloseClipboard
Cells(1).Select
ActiveSheet.Paste
End Sub
Sachant que mon image se trouve dans un USER
Il n'y a pas un moyen d'avoir par un clic droit ("copier, coller,...)
Merci d'avance.
Eric