Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Access Clipboard Mysterieux

Clipboard Mysterieux

4 réponses
Avatar
Alain TEYSSEDRE
Bonjour

J'ai un bouton de commande qui me copie la valeur d'un champ dans le
Clipboard
avec une fonction clipboard.

Ma valeur n'est pas copiée dans le clipboard sauf si j'exécute mon code en
mode pas à pas ?

Comment résoudre ce pb ?

merci
Alain
Signaler un problème avec ce contenu

4 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Anor
Bonjour Alain

Essaye de rajouter 2 ou 3 DoEvents entre chaque ligne de code pour voir si ça va mieux :

Sub CopyClipboard(ctrSource As Control)
On Error Resume Next
ctrSource.SetFocus
DoEvents
DoEvents
DoEvents
ctrSource.SelStart = 0
DoEvents
DoEvents
DoEvents
ctrSource.SelLength = Len(ctrSource.Value)
DoEvents
DoEvents
DoEvents
DoCmd.RunCommand acCmdCopy
DoEvents
DoEvents
DoEvents
End Sub

Si ça marche, alors tu enlèves quelques DoEvents pour retrouver le point
où ça ne marche plus ;-)

--
à+
Arnaud
--------------------------------------------------
*Avant toute chose* : http://users.skynet.be/mpfa/
Access Memorandum - http://memoaccess.free.fr
/Réponses souhaitées sur ce forum, merci/
--------------------------------------------------
Alain TEYSSEDRE :
| Bonjour
|
| J'ai un bouton de commande qui me copie la valeur d'un champ dans le
| Clipboard
| avec une fonction clipboard.
|
| Ma valeur n'est pas copiée dans le clipboard sauf si j'exécute mon
| code en mode pas à pas ?
|
| Comment résoudre ce pb ?
|
| merci
| Alain
Avatar
Alain TEYSSEDRE
Salut Arnaud

Génial ça à l'air de marcher

au fait ça fait quoi les DoEvents ?

merci
Alain



"Anor" <http://memoaccess.free.fr/anor/email.htm> a écrit dans le message de
news:
Bonjour Alain

Essaye de rajouter 2 ou 3 DoEvents entre chaque ligne de code pour voir si
ça va mieux :


Sub CopyClipboard(ctrSource As Control)
On Error Resume Next
ctrSource.SetFocus
DoEvents
DoEvents
DoEvents
ctrSource.SelStart = 0
DoEvents
DoEvents
DoEvents
ctrSource.SelLength = Len(ctrSource.Value)
DoEvents
DoEvents
DoEvents
DoCmd.RunCommand acCmdCopy
DoEvents
DoEvents
DoEvents
End Sub

Si ça marche, alors tu enlèves quelques DoEvents pour retrouver le point
où ça ne marche plus ;-)

--
à+
Arnaud
--------------------------------------------------
*Avant toute chose* : http://users.skynet.be/mpfa/
Access Memorandum - http://memoaccess.free.fr
/Réponses souhaitées sur ce forum, merci/
--------------------------------------------------
Alain TEYSSEDRE :
| Bonjour
|
| J'ai un bouton de commande qui me copie la valeur d'un champ dans le
| Clipboard
| avec une fonction clipboard.
|
| Ma valeur n'est pas copiée dans le clipboard sauf si j'exécute mon
| code en mode pas à pas ?
|
| Comment résoudre ce pb ?
|
| merci
| Alain




Avatar
Anor
Salut,

Alain TEYSSEDRE :
| Salut Arnaud
|
| Génial ça à l'air de marcher
|
| au fait ça fait quoi les DoEvents ?
|
| merci
| Alain
|

C'est supposé donner la main au système d'exploitation pour lui permettre de
vider les processus dans la file d'attente.
Comme tu utilisais le presse papier ET access, cette astuce semblait appropriée....
Maintenant, j'en ai mis beaucoup trop, tu peux tenter d'identifier LE DoEvents
absolument nécessaire.

--
à+
Arnaud
--------------------------------------------------
*Avant toute chose* : http://users.skynet.be/mpfa/
Access Memorandum - http://memoaccess.free.fr
/Réponses souhaitées sur ce forum, merci/
--------------------------------------------------
Avatar
Alain TEYSSEDRE
Bonjour Arnaud

Je me remet à l'oeuvre sur mon PC ....

En faisaint quelques tests j'ai ré-adapté ta suggestion
maintent je fait :
DoEvents
Call CopyClipboard(Me.texte)
DoEvents
Call CopyClipboard(Me.texte)

ça à l'air de marcher dans tous les cas ... affaire à suivre je te tiendrai
au courant.

@+

Alain




"Anor" <http://memoaccess.free.fr/anor/email.htm> a écrit dans le message de
news:%23TIr$
Salut,

Alain TEYSSEDRE :
| Salut Arnaud
|
| Génial ça à l'air de marcher
|
| au fait ça fait quoi les DoEvents ?
|
| merci
| Alain
|

C'est supposé donner la main au système d'exploitation pour lui permettre
de

vider les processus dans la file d'attente.
Comme tu utilisais le presse papier ET access, cette astuce semblait
appropriée....

Maintenant, j'en ai mis beaucoup trop, tu peux tenter d'identifier LE
DoEvents

absolument nécessaire.

--
à+
Arnaud
--------------------------------------------------
*Avant toute chose* : http://users.skynet.be/mpfa/
Access Memorandum - http://memoaccess.free.fr
/Réponses souhaitées sur ce forum, merci/
--------------------------------------------------