Rechercher : dans
Par :

Lecture du Presse-papiers en VBA sous Access

Dernière réponse le 19 avr 2009 à 00:23:52 GuestCam, le 7 fév 2007 à 09:36:34 
 Signaler ce message aux modérateurs

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.

Configuration: Windows 2000
Internet Explorer 6.0

Meilleures réponses pour « Lecture du Presse papiers en VBA sous Access » dans :
Accéder au presse-papier Voir À chaque fois que vous faîtes un couper (CTRL-X) ou un copier (CTRL-C) d'un élément, celui-ci est conservé temporairement dans le presse-papier. Le presse-papier de Windows se trouve dans le Gestionnaire de l'Album (sauf pour Vista). Pour y...

1

blux, le 7 fév 2007 à 11:29:17
Répondre à blux

2

GuestCam, le 7 fév 2007 à 11:34:46

Merçi beaucoup Blux,
j'essaie tout de suite

Répondre à GuestCam

3

GuestCam, le 7 fév 2007 à 11:51:09

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

Répondre à GuestCam

4

blux, le 7 fév 2007 à 12:34:47

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...
A+ Blux

 "Les cons, ça ose tout.
C'est même à ça qu'on les reconnait"

Répondre à blux

5

gérard95, le 8 oct 2007 à 20:31:11

Utilises la commade SENDKEYS qui simule envoi de touche.
SendKeys "^v" ' simule ctrl+v

Répondre à gérard95

6

Blagamon, le 15 sep 2008 à 18:25:04

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

Répondre à Blagamon

7

 Josef, le 19 avr 2009 à 00:23:52

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

Répondre à Josef