vider presse-papiers à la fermeture

**fredpeca** · 21/11/2006, 10h18

Bonjour à tous,

Voilà deux jours que je lis pas mal de post sur divers forums pour arriver à résoudre mon problème :

J'ai créé un formulaire avec un bouton dessus qui permet de dupliquer un enregistrement. Je saisis mes données dans le nouvel enregistrement et qunad je ferme le formulaire, un message me dit : "Vous avez copié un grand nombre de données dans le presse-papiers ... voulez-vous enregistrez ces données oui ou non ?"

Je voudrais supprimer ce message à la fermeture du formulaire en vidant le presse-papiers grâve à du VBA.
J'ai testé avec les API Windows mais cela ne marche pas car je pense que je ne sais pas où mettre ma déclaration de fonctions (publiques / privée) : je débute ...

Voilà ce que je tape dans le bouton qui ferme le formulaire :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
'-- Déclaration des fonctions API
Private Declare Function OpenClipboard Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function CloseClipboard Lib "user32" () As Long
Private Declare Function EmptyClipboard Lib "user32" () As Long
 
Private Sub btnFermeForm_Click()
    OpenClipboard 0 
    EmptyClipboard
    CloseClipboard
End Sub

Un message me dit que je peux mettre que des commentaires après un end sub. A ce moment-là, j'ai placé la déclaration de variables au début du module mais il me dit : "point d'entrée OpenClipboard d'un DLL introuvable dans user32".

Je sais plus quoi faire. Merci pour votre réponse.

Fred

**Arkham46** · 21/11/2006, 10h24

bjr,

quelle est la version de windows?

msdn dit :
Minimum operating systems : Windows 95, Windows NT 3.1

**fredpeca** · 21/11/2006, 10h26

Ma version est Windows 2000 et je travaille sur Access 2003.

**Arkham46** · 21/11/2006, 10h33

bizarre sous windows 2000 ça marche bien

si tu veux vérifier ce qu'il y a dans la dll, elle est dans :
C:\winnt\system32\user32.dll

tu l'ouvres avec quick view (s'il est sur ton pc) et tu regardes dans la partie export ; tu devrais y trouver OpenClipboard

si pas quick view, alors tu peux ouvrir la dll avec wordpad et chercher le texte OpenClipboard

s'il n'est pas dedans c'est pas gagné...

**fredpeca** · 21/11/2006, 10h39

Je viens de vérifier, il est bien dedans avec tous les autres ...

**Arkham46** · 21/11/2006, 10h43

Envoyé par fredpeca

Je viens de vérifier, il est bien dedans avec tous les autres ...

de plus en plus bizarre

peut-être qu'il y a un autre fichier user32.dll quelque part qui entre en conflit?

essaye de declarer en précisant le chemin complet de la dll pour tester :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Private Declare Function OpenClipboard Lib "C:\winnt\system32\user32.dll" (ByVal hwnd As Long) As Long

**fredpeca** · 21/11/2006, 11h18

Excuse pour la lenteur, je suis au bureau.
En fait, j'avais déjà tester en mettant le chemin.
Par contre, je suis en réseau, cela a peutêtre une incidence. Mais je ne crois pas car je travaille en local ...

**fredpeca** · 21/11/2006, 12h09

Si cela peut t'aider, j'ai vu dans ACCESS FAQ de ce site qu'il faut vérifier :

"Allez dans un module (page où on écrit le code VBA). Dans la barre de menus d'ACCESS cliquez sur Outils puis Références. S'il manque une bibliothèque ou une DLL elle sera marquée comme tel dans la liste déroulante. Il suffit alors de la copier dans le répertoire "system32" de l'ordinateur et de taper : REGSVR32 C:\WINDOWS\SYSTEM32\maDLL.DLL ou REGSVR32 C:\WINDOWS\SYSTEM32\monOCX.OCX Le produit est alors enregistré dans la base de registres et reconnu par le système (sous NT il faut taper WINNT au lieu de WINDOWS)"

Voilà ce qui est coché (existant) dans mon PC :
- Visual Basic for Applications
- MS Access 11.0 Object Library
- OLE Automation
- MS DAO 3.6 Object Library
- MS ActiveX Data Objects 2.1 Library
et c'est tout.

Peut-être faut-il cocher autre chose ...

**Arkham46** · 21/11/2006, 14h33

ces dll sont installées avec windows et sont largement utilisées par tous les programmes (y compris Access qui utilise déjà cette user32.dll)

une déclaration de la fonction suffit, pas besoin de la référencer

désolé j'ai pas plus d'idée...