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