Copier dans le presse-papier

**Raphs** · 18/05/2006, 08h49

Bonjour,

J'aimerais ajouter un bouton Copier sur un formulaire.
Ce bouton doit copier le contenu du champ dans le presse-papier

Quelqu'un a-t'il une idée du code à utilisé ?

Merci

**Dolphy35** · 18/05/2006, 09h08

Salut,

J'ai une solution qui fonctionne (en plus) :

Tu créer un nouveau module et tu met ce code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
Option Compare Database
Option Explicit
 
Declare Function OpenClipboard Lib "user32" (ByVal hWnd As Long) As Long
Declare Function CloseClipboard Lib "user32" () As Long
Declare Function GetClipboardData Lib "user32" (ByVal wFormat As Long) As Long
Declare Function SetClipboardData Lib "user32" (ByVal wFormat As Long, ByVal hMem As Long) As Long
Declare Function EmptyClipboard Lib "user32" () As Long
 
Declare Function GlobalAlloc Lib "kernel32" (ByVal wFlags&, ByVal dwBytes As Long) As Long
Declare Function GlobalLock Lib "kernel32" (ByVal hMem As Long) As Long
Declare Function GlobalUnlock Lib "kernel32" (ByVal hMem As Long) As Long
Declare Function GlobalSize Lib "kernel32" (ByVal hMem As Long) As Long
Declare Function lstrcpy Lib "kernel32" (ByVal lpString1 As Any, ByVal lpString2 As Any) As Long
Public Const GHND = &H42
Public Const CF_TEXT = 1
'
 
Function ctrlC_copie(strcopie As String)
 
         Dim hGlobalMemory As Long, lpGlobalMemory As Long
         Dim hClipMemory As Long, X As Long
         hGlobalMemory = GlobalAlloc(GHND, Len(strcopie) + 1)
         lpGlobalMemory = GlobalLock(hGlobalMemory)
         lpGlobalMemory = lstrcpy(lpGlobalMemory, strcopie)
         If GlobalUnlock(hGlobalMemory) <> 0 Then
            MsgBox "N'a pas pu ouvrir la zone de mémoire. La Copie est arrêtée."
            GoTo OutOfHere2
         End If
         If OpenClipboard(0&) = 0 Then
            MsgBox "N'a pas pu ouvrir le Presse Papier. La Copie est arrêtée."
            Exit Function
         End If
         X = EmptyClipboard()
 
         hClipMemory = SetClipboardData(CF_TEXT, hGlobalMemory)
OutOfHere2:
         If CloseClipboard() = 0 Then
            MsgBox "N'a pu Fermer le Presse Papier"
         End If
End Function