Discussion :

[jimbou]

Bonjour,

je ne suis pas bon du tout en VBA, j'ai fait de la programmation il y a 20 ans (le Fortran, le basic du début), et j'avoue que les concepts d'aujourd'hui ont du mal à se frayer un chemin dans mes neurones un peu endurcis.

Mon bon, venons-en à ma question: comment puis-je récupérer le contenu du presse-papier dans un programme VBA pour ensuite le traiter ?

C'est pour me faciliter la vie dans le transfert de données depuis une application vers Access

Merci pour toute aide.

[SfJ5Rpw8]

on peu savoir de qu'elle appli il sagit ..?

[ouskel'n'or]

Code :

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

1
2
3
4
5
6
7
8
9
Private Declare Function CloseClipboard Lib "user32" () As Long
Private Declare Function OpenClipboard Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function EmptyClipboard Lib "user32" () As Long
 
Sub RécupérerDepuisPressePapier()
    Set MonObjet = New DataObject
    MonObjet.GetFromClipboard
    Msg = Val(MonObjet.GetText(1))
end sub

Pour vider le presse-papier

Code :

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

1
2
3
    OpenClipboard 0
    EmptyClipboard
    CloseClipboard

Tu dis

[jimbou]

@ bbil:
C'est une appli "maison" (même si ce n'est pas moi qui l'ai faite) qui va chercher des infos sur Internet et les affiche.

Je ne sais pas où elle va les chercher, et elle ne fait que les afficher à l'écran. C'est pour ça que je m'obstine à faire du copier-coller.

@ ouskel'n'or:
Merci, je vais essayer

[SfJ5Rpw8]

? et comment tu fais le copie ?

[jimbou]

trés classique: Je sélectionne la chaine de caractère à l'écran, et hop un petit Ctrl+C

[SfJ5Rpw8]

trés classique: Je sélectionne la chaine de caractère à l'écran, et hop un petit Ctrl+C

ben ensuite tu fais un Ctlr+V dans un contrôle text box par exemple ..
c'est pas bon ?

[jimbou]

Oui, c'est comme ça que je m'en sors pour l'instant, mais ça fait au total beaucoup de Ctrl-quelquechose et de clics pour chaque chaine de caractères à transférer. Je cherche donc à ce que Access aille tout seul récupérer le contenu du presse-papier, histoire de m'économiser quelques manips.

[SfJ5Rpw8]

un truc du genre :

Code :

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

1
2
3
Private Sub CommandButton1_Click()
 TextBox1.Paste
 End Sub

[zazaraignée]

Salut

Et ceci

Code :

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

NomDuControle.Paste

ou encore

Code :

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

NomDuControle.PasteFace

J'ai pas testé...

[jimbou]

Merci pour toutes ces idées, c'est sympa.

Je vais les tester, et aussi les analyser pour essayer de faire des progrès en VBA.

Si vous n'entendez plus parler de moi, c'est que c'est bon.

[SfJ5Rpw8]

Merci pour toutes ces idées, c'est sympa.

Je vais les tester, et aussi les analyser pour essayer de faire des progrès en VBA.

Si vous n'entendez plus parler de moi, c'est que c'est bon.

pas sympa ça tu n'as pas vu le bouton en bas de l'écran..

[jimbou]

Ah pardon.

Il a disparu, je suppose que tu l'as déjà utilisé.

Ah ben tiens, il est réapparu ....

Merci.