Sur un formulaire, j'ai d=E9pos=E9 une image.
J'aimerai la copier et la coller sur une feuille lorsque=20
je clique sur un bouton de ce formulaire.
Quel est le code =E0 =E9crire SVP ?
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Michel Pierron
Bonjour François; La référence à Ole Automation doit être cochée (par défaut). Dans le module UserForm: Private Declare Function OpenClipboard& Lib "user32" (ByVal hwnd As Long) Private Declare Function EmptyClipboard Lib "user32" () As Long Private Declare Function SetClipboardData Lib& "user32" (ByVal wFormat&, ByVal hMem&) Private Declare Function CloseClipboard& Lib "user32" () Private Declare Function DestroyIcon& Lib "user32" (ByVal hIcon&)
Private Sub CommandButton1_Click() Dim iPic As StdPicture, hCopy& Set iPic = Me.Picture ' Ou Me.Image1.Picture OpenClipboard 0&: EmptyClipboard hCopy = SetClipboardData(2, iPic.handle) CloseClipboard If hCopy = 0 Then GoTo Fin ActiveSheet.Cells(1, 1).Select ActiveSheet.Paste ' Pour sauver l'image sur le disque en fonction du format 'SavePicture iPic, "c:Recup.bmp" ' Metafichier -> c:Recup.wmf Fin: DestroyIcon iPic.handle: Set iPic = Nothing End Sub
MP
"francois" a écrit dans le message de news:2bd001c42877$591e6540$ Bonjour, j'ai un problème...
Sur un formulaire, j'ai déposé une image. J'aimerai la copier et la coller sur une feuille lorsque je clique sur un bouton de ce formulaire. Quel est le code à écrire SVP ?
Merci
Bonjour François;
La référence à Ole Automation doit être cochée (par défaut).
Dans le module UserForm:
Private Declare Function OpenClipboard& Lib "user32" (ByVal hwnd As Long)
Private Declare Function EmptyClipboard Lib "user32" () As Long
Private Declare Function SetClipboardData Lib& "user32" (ByVal wFormat&, ByVal
hMem&)
Private Declare Function CloseClipboard& Lib "user32" ()
Private Declare Function DestroyIcon& Lib "user32" (ByVal hIcon&)
Private Sub CommandButton1_Click()
Dim iPic As StdPicture, hCopy&
Set iPic = Me.Picture ' Ou Me.Image1.Picture
OpenClipboard 0&: EmptyClipboard
hCopy = SetClipboardData(2, iPic.handle)
CloseClipboard
If hCopy = 0 Then GoTo Fin
ActiveSheet.Cells(1, 1).Select
ActiveSheet.Paste
' Pour sauver l'image sur le disque en fonction du format
'SavePicture iPic, "c:Recup.bmp" ' Metafichier -> c:Recup.wmf
Fin:
DestroyIcon iPic.handle: Set iPic = Nothing
End Sub
MP
"francois" <anonymous@discussions.microsoft.com> a écrit dans le message de
news:2bd001c42877$591e6540$a401280a@phx.gbl...
Bonjour, j'ai un problème...
Sur un formulaire, j'ai déposé une image.
J'aimerai la copier et la coller sur une feuille lorsque
je clique sur un bouton de ce formulaire.
Quel est le code à écrire SVP ?
Bonjour François; La référence à Ole Automation doit être cochée (par défaut). Dans le module UserForm: Private Declare Function OpenClipboard& Lib "user32" (ByVal hwnd As Long) Private Declare Function EmptyClipboard Lib "user32" () As Long Private Declare Function SetClipboardData Lib& "user32" (ByVal wFormat&, ByVal hMem&) Private Declare Function CloseClipboard& Lib "user32" () Private Declare Function DestroyIcon& Lib "user32" (ByVal hIcon&)
Private Sub CommandButton1_Click() Dim iPic As StdPicture, hCopy& Set iPic = Me.Picture ' Ou Me.Image1.Picture OpenClipboard 0&: EmptyClipboard hCopy = SetClipboardData(2, iPic.handle) CloseClipboard If hCopy = 0 Then GoTo Fin ActiveSheet.Cells(1, 1).Select ActiveSheet.Paste ' Pour sauver l'image sur le disque en fonction du format 'SavePicture iPic, "c:Recup.bmp" ' Metafichier -> c:Recup.wmf Fin: DestroyIcon iPic.handle: Set iPic = Nothing End Sub
MP
"francois" a écrit dans le message de news:2bd001c42877$591e6540$ Bonjour, j'ai un problème...
Sur un formulaire, j'ai déposé une image. J'aimerai la copier et la coller sur une feuille lorsque je clique sur un bouton de ce formulaire. Quel est le code à écrire SVP ?
