Recherche
Recherche
Les mémos
Je débute...
Visites

 998806 visiteurs

 2 visiteurs en ligne

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