[AC-2007] Mettre un texte précis dans le presse-papier ?

désolé je viens de trouver sur le net :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
'The DataObject object is a part of the Forms library in VBA.
'In order to make this code work, you must do one of two things.
'Have at least one UserForm in your project, or
'In the VBA editor, go to Tools, References, and set a reference to the
'"Microsoft Forms 2.0 Object Library"  soit FM20.DLL dans system32
 
 
 
'le mot de passe = "Monmotdep@sseéK0mpliké"
'get the text from a string variable into the clipboard:
Dim MyData As DataObject
Dim strClip As String
strClip = "Monmotdep@sseéK0mpliké"
Set MyData = New DataObject
MyData.SetText strClip
MyData.PutInClipboard
'
'
' ici comment vider le presse-papier
''clear the clipboard in VBA:
'Dim MyData As DataObject
'Set MyData = New DataObject
'MyData.SetText ""
'MyData.PutInClipboard