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

 1029811 visiteurs

 2 visiteurs en ligne

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 7581 fois

Vous êtes ici :   Accueil » Copier - Coller