Discussion :

[QuestVba]

Bonjour, Forum !,

J'essaie de récupérer mon presse papier avec ce code trouvé sur le forum:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Sub recupererTextePressePapier()
'nécéssite d'activer la référence "Microsoft Forms 2.0 Object Library."
Dim Resultat As String
 
With New DataObject
    .GetFromClipboard
    Resultat = .GetText(1)
End With
 
MsgBox Resultat
End Sub

Mais il me met une erreur de compilation: type défini par l'utilisateur non défini.

Qu'est-ce que je loupe ?? Merci pour votre aide

[QuestVba]

OK autant pour moi , c'est mieux ainsi

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Sub recupererTextePressePapier()
'nécéssite d'activer la référence "Microsoft Forms 2.0 Object Library."
Dim Resultat As String
Set MyData = New DataObject
With MyData
    .GetFromClipboard
    Resultat = .GetText(1)
End With
 
MsgBox Resultat
End Sub