Discussion :

[ClaudeLELOUP]

Bonjour à tous,
pour coller le presse-papier j'utilise ceci, trouvé sur le FAQ :

Code :

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

1
2
3
4
5
6
'Pour copier le texte d'une zone de texte, il faut dans un premier temps le sélectionner, voici comment faire :
Me.ActiveControl.SetFocus
Me.ActiveControl.SelStart = 0
Me.ActiveControl.SelLength = Len(Me.ActiveControl)
 'le texte est sélectionné, il nous reste qu'à le copier.
DoCmd.RunCommand acCmdPaste

Ceci fonctionne correctement sauf si la longueur "effective" du champ ne correspond pas à la longueur affichée à l'écran.
Exemple
Si le champ contient effectivement 17 qui s'affiche 17,00 à l'écran (standard 2 décimales) et que le presse-papier contient 2,00
le résultat du collage est 2,00,00.

Quelqu'un peut-il améliorer le code pour le rendre universel ?
Merci déjà

[LedZeppII]

Bonsoir,

peut-être en remplaçant

Code :

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

Len(Screen.ActiveControl)

par

Code :

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

Len(Screen.ActiveControl.text)

A+

[ClaudeLELOUP]

Grand merci. Ca marche !