En poursuivant votre navigation sur ce site, vous acceptez l'utilisation de cookies pour vous proposer des contenus et services adaptés. Mentions légales.

Recherche

Recherche

Les mémos

Je débute...

Visites

 1224916 visiteurs

 16 visiteurs en ligne

Nous contacter

Contact

Copier - Coller

Copier-Coller une valeur à l'aide du presse papier

Pour copier le contenu de la zone de texte txtCopy

Call CopyClipboard(Me.txtCopy)

Pour coller le contenu du presse papier dans txtPaste

Call PasteClipboard(Me.txtPaste)

Les deux fonctions :

Sub CopyClipboard(ctrSource As Control)

   On Error Resume Next

   ctrSource.SetFocus

   ctrSource.SelStart = 0

   ctrSource.SelLength = Len(ctrSource.Value)

   DoCmd.RunCommand acCmdCopy

End Sub

  

Sub PasteClipboard(ctrCible As Control)

   On Error Resume Next

   ctrCible.SetFocus

   DoCmd.RunCommand acCmdPaste

End Sub

Catégorie : Les mémos - Formulaires
Page lue 10076 fois
Vous êtes ici :   Accueil » Copier - Coller