Lecture du Presse-papiers en VBA sous Access

Fermé
GuestCam Messages postés 56 Date d'inscription jeudi 28 septembre 2006 Statut Membre Dernière intervention 8 mars 2008 - 7 févr. 2007 à 09:36
 Josef - 19 avril 2009 à 00:23
Bonjour à tous;
est-ce que quelqu'un aurait une idée de comment lire les données qui se trouvent dans le presse papiers avec VBA sous Access?
Merçi d'avance.

6 réponses

blux Messages postés 26546 Date d'inscription dimanche 26 août 2001 Statut Modérateur Dernière intervention 24 décembre 2024 3 319
7 févr. 2007 à 11:29
1
GuestCam Messages postés 56 Date d'inscription jeudi 28 septembre 2006 Statut Membre Dernière intervention 8 mars 2008
7 févr. 2007 à 11:34
merçi beaucoup Blux,
j'essaie tout de suite
0
GuestCam Messages postés 56 Date d'inscription jeudi 28 septembre 2006 Statut Membre Dernière intervention 8 mars 2008
7 févr. 2007 à 11:51
Je ne sais pas où se situe l'erreur dans ce bout de code. l'erreur est "objet requis , erreur 424":

Private Sub AfficherPresse_Papier_Click()
TextclipBoard.setText "salut"
MsgBox "Le contenu du presse-papiers est : " & TextclipBoard.GetText
End Sub
0
blux Messages postés 26546 Date d'inscription dimanche 26 août 2001 Statut Modérateur Dernière intervention 24 décembre 2024 3 319
7 févr. 2007 à 12:34
C'est pour ça que j'ai mis 'non testé... ;-)

Le code me parait trop simple, l'objet TextClipBoard doit être défini par ailleurs, peut-être via un module appelant une API...
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
utilises la commade SENDKEYS qui simule envoi de touche.
SendKeys "^v" ' simule ctrl+v
0
Bonjour

Non Non Pas Send Key ! cette fonction ne marche plus sur access2007, il faut refaire toutes les fonctions qui utilsait ce simple principe efficace.

D'ailleur, je suis à la recherche d'un code simple permettant d'envoyer la valeur d'un champ dans ce fameux presse papier.

Merci
0
Je ne sais pas si tu as trouvé la réponse mais voici comment je m'en suis sorti grâce à l'aide en ligne d'Access

Dim Data As DataObject
Set Data = New DataObject
Data.SetText "lenom de ton contôle TextBox"
Data.PutInClipboard
0