URGENT: Copier image dans presse papier

Bonjour.

des idées sur http://access.seneque.free.fr/copie_objets_ole.htm

--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"Fred87" <anonymous@discussions.microsoft.com> a écrit dans le message de
news:e8ac01c3f141$97ca9470$a301280a@phx.gbl...
Bonjour,

Je cherche à copier une image dont je connais la source
(chemin sur le disque) dans le presse papier depuis un
module access. Le but est lors de l'affichage d'un IMAGE
dans un formulaire (pas d'un objet indépendant ou pas) de
pouvoir la copier et la coller dans Word par exemple.

J'ai besoin d'aide assez urgente pour ce PB.

Merci d'avance à tous les pros du dévelloppement dans
access.

Fred

Bonjour,

Une solution "relativement" simple, qui ne fonctionne
cependant qu'avec des fichiers .bmp.

1) dans un module basic :

Public Declare Function LoadImage Lib "user32"
Alias "LoadImageA" (ByVal hInst As Long, ByVal lpsz As
String, ByVal un1 As Long, ByVal n1 As Long, ByVal n2 As
Long, ByVal un2 As Long) As Long

Public Declare Function SetClipboardData Lib "user32"
(ByVal wFormat As Long, ByVal hMem As Long) As Long

Public Declare Function OpenClipboard Lib "user32" (ByVal
Hwnd As Long) As Long

Public Declare Function CloseClipboard Lib "user32" () As
Long

Public Declare Function EmptyClipboard Lib "user32" () As
Long

Const IMAGE_BITMAP = 0
Const LR_LOADFROMFILE = 16

2) dans le code du formulaire, sur clic d'un bouton par
exemple :

Dim hBitmap As Long

hBitmap = LoadImage(0, "e:artvivre.bmp",
IMAGE_BITMAP, 0, 0, LR_LOADFROMFILE)


If OpenClipboard(Me.Hwnd) Then
h = EmptyClipboard()
h = SetClipboardData(2, hBitmap) ' 2 = CF_BITMAP
h = CloseClipboard()
End If

Il ne reste plus qu'à faire un coller sous Word, par
exemple...

Cordialement,

Loïc
loic.dumas@wanadoo.fr
www.i--land.com

-----Message d'origine-----
Bonjour,

Je cherche à copier une image dont je connais la source
(chemin sur le disque) dans le presse papier depuis un
module access. Le but est lors de l'affichage d'un IMAGE
dans un formulaire (pas d'un objet indépendant ou pas) de
pouvoir la copier et la coller dans Word par exemple.

J'ai besoin d'aide assez urgente pour ce PB.

Merci d'avance à tous les pros du dévelloppement dans
access.

Fred
.