Copier le contenu d'un champ dans le presse-papier

**rainzo** · 14/12/2018, 10h07

Bonjour,

J'aimerais que lorsque l'on clic sur un champ dans un formulaire, le contenu du champ soit copier dans le presse-papier.

Possible ou pas ?

Merci

**rainzo** · 14/12/2018, 10h44

ok, il y a la commande copier (il faut sélectionner afficher toutes les commandes) mais ca me met une erreur car le contenu n'est pas sélectionné.
Je suppose que je dois mettre une autre commande juste avant pour que lorsque je clic, ça sélectionne le contenu du champs puis je le copie.

Aucune idée de la commande pour faire celà....

**tee_grandbois** · 14/12/2018, 18h20

bonsoir,
essaie ce code à créer dans un module standard:

Code :

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

1
2
3
4
5
6
7
8
9
Public Sub sCopyClipBoard(frm As Form)
On Error GoTo Err
    frm.ActiveControl.SelStart = 0
    frm.ActiveControl.SelLength = Len(frm.ActiveControl.Text)
    DoCmd.RunCommand acCmdCopy
    Exit Sub
Err:
    MsgBox Err.Number & " - " & Err.DESCRIPTION
End Sub

à utiliser comme cela dans un contrôle du formulaire:

Code :

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

1
2
3
Private Sub UnControle_Click()
Call sCopyClipBoard(Me)
End Sub

**rainzo** · 18/12/2018, 14h26

Je dois être un manche parce que il ne se passe rien lol

J'ai créer un module et j'ai copié le 1er code.

Je sélectionne le champs à copier, je vais dans événement>sur clic>.... je choisis "générateur de code" et copie le 2eme code dans la fenêtre.

Il ne se passe rien lorsque je clic sur le champs en question (et si je fait clic droit / coller ailleurs ca ne fait rien)

**tee_grandbois** · 18/12/2018, 21h29

bonsoir,

e sélectionne le champs à copier, je vais dans événement>sur clic>.... je choisis "générateur de code" et copie le 2eme code dans la fenêtre.

Il ne se passe rien lorsque je clic sur le champs en question (et si je fait clic droit / coller ailleurs ca ne fait rien)

bizarre que cela ne fonctionne pas ...
Pour le second code, il faut juste copier cette ligne :

Code :

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