Bonjour Voici un petit code facile pour créer votre propre ClipBoard il vous suffit de créer une table (Que j'ai nommée tbl_Copie) avec les champs nécéssaire. Donc si vous avez 2 champs à copier (Comme mon exemple) vous créer 2 colones soit (ChampPremiereValeur) et (ChampDeuxiemeValeur). Ensuite voici le code VBA que vous pouvez mettre sous des boutons "Copier","Coller","Effacer le ClipBoard"


Bouton copier:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Private Sub Copier_Click()
Dim champPlein As String
champPlein = Nz(DLookup("ChampPremiereValeur", "tbl_copie"), "")
If IsNull(champPlein) Or champPlein = "" Then
copie:
Dim MaTable As Recordset
Set MaTable = CurrentDb.OpenRecordset("tbl_copie")
            MaTable.AddNew
                    MaTable("ChampPremiereValeur") = Me.champ1
                    MaTable("ChampDeuxiemeValeur") = Me.champ2
            MaTable.Update
MaTable.Close
Else
CurrentDb.Execute "DELETE * FROM [tbl_copie];"
GoTo copie
End If
End Sub
Bouton Coller :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
Private Sub coller_Click()
Dim champvide As String
champvide = Nz(DLookup("ChampPremiereValeur", "tbl_copie"), "")
If IsNull(champvide) Or champvide = "" Then
MsgBox "Le Clipboard est vide", vbinformation
Exit Sub
Else
Me.champ1 = DLookup("ChampPremiereValeur", "tbl_copie")
Me.champ2 = DLookup("ChampdeuxiemeValeur", "tbl_copie")
End If
End Sub
Bouton Effacer le ClipBoard:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
Private Sub deleteClipboard_Click()
CurrentDb.Execute "DELETE * FROM [tbl_copie];"
End Sub
et sur le bouton de sortie de votre base rajouté le code ci-dessous:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
CurrentDb.Execute "DELETE * FROM [tbl_copie];"