Presse-papiers avec access97-vba

cs_lbailler Messages postés 3 Date d'inscription mardi 29 janvier 2002 Statut Membre Dernière intervention 5 août 2002 - 5 août 2002 à 10:41
cs_Ouneufe Messages postés 60 Date d'inscription mardi 4 septembre 2001 Statut Membre Dernière intervention 19 janvier 2009 - 3 déc. 2003 à 02:44
je sais qu'il existe un objet pour utiliser le presse-papiers sous vb6 (clipboard) mais je cherche la même chose sous vba access97 , donc pouvoir utiliser le presse-papier.
Merci. :)

1 réponse

cs_Ouneufe Messages postés 60 Date d'inscription mardi 4 septembre 2001 Statut Membre Dernière intervention 19 janvier 2009
3 déc. 2003 à 02:44
Dim MyData As DataObject

Private Sub CommandButton1_Click()
Set MyData = New DataObject

MyData.SetText TextBox1.Text
MyData.PutInClipboard

TextBox2.Paste
End Sub

Private Sub UserForm_Initialize()
TextBox1.Text = "Move this data to a " _
& "DataObject, to the Clipboard, then to " _
& "TextBox2!"
End Sub

le feu ça fait peur mais avec l'eau tu l'arrêtes, le feu.
L'eau, tu l'arrêtes pas.
0
Rejoignez-nous