1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34
| Public Function CopierPressePapier()
On Error GoTo erreur
'Pour copier, il faut dans un premier temps sélectionner le contenu actuel
Screen.ActiveForm.Refresh 'Pour s'assurer que le contenu actuel correspond à ce qui est affiché
Screen.ActiveForm.ActiveControl.SetFocus
Screen.ActiveForm.ActiveControl.SelStart = 0
Screen.ActiveForm.ActiveControl.SelLength = Len(Screen.ActiveForm.ActiveControl.Text)
'NB : ActiveControl.Text pour capter ce qui est affiché à l'écran
'Copier dans le presse-papier
DoCmd.RunCommand acCmdCopy
Exit Function
erreur:
Select Case err.Number
Case 2465 'le champ à copier est vide
MsgBox "Un champ vide ne peut être copié"
Case Else
MsgBox err.Number & " " & err.Description
End Select
End Function
Public Function CollerPressePapier()
On Error GoTo erreur
'Pour coller, il faut dans un premier temps sélectionner le contenu actuel
Screen.ActiveForm.ActiveControl.SetFocus
Screen.ActiveForm.ActiveControl.SelStart = 0
Screen.ActiveForm.ActiveControl.SelLength = Len(Screen.ActiveForm.ActiveControl.Text)
'NB : ActiveControl.Text pour capter ce qui est affiché à l'écran
'le texte est sélectionné, il ne nous reste qu'à le remplacer.
DoCmd.RunCommand acCmdPaste
Exit Function
erreur:
MsgBox err.Number & " " & err.Description
End Function |
Partager