bon désoled j'ai pas trouved , enfin ça marche pas
j'ai esayer ça :
Private Declare Function SetClipboardData Lib "user32" Alias "SetClipboardDataA" (ByVal wFormat As Long, ByVal hMem As Long) As Long
Private Declare Function GetClipboardData Lib "user32" Alias "GetClipboardDataA" (ByVal wFormat As Long) As Long
Private Declare Function OpenClipboard Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function CloseClipboard Lib "user32" () As Long
Private Declare Function EmptyClipboard Lib "user32" () As Long
Private Declare Function LocalAlloc Lib "kernel32" (ByVal wFlags As Long, ByVal wBytes As Long) As Long
Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As Long)
Private Sub main()
Dim ptrS As Long
Dim f As String
f = "glut?"
ptrS = LocalAlloc(0, Len(f))
CopyMemory ptrS, f, Len(f)
OpenClipboard vbNull
SetClipboardData 1, ptrS
MsgBox GetClipboardData(1)
CloseClipboard
End Sub
l'utilisation des API windows est la voie vers la solution a ton probleme car VBA ne connait pas l'objet clipboard.
par contre mon prog marche pas , il me dit qui trouve pas la déclaration SetClipboarddata dans user32.dd
bon courage