Erreur de compilation / user32 / Clipboard
Fermé
Grifis
Messages postés
8
Date d'inscription
jeudi 11 juillet 2013
Statut
Membre
Dernière intervention
9 janvier 2014
-
23 juil. 2013 à 11:23
lermite222 Messages postés 8724 Date d'inscription dimanche 8 avril 2007 Statut Contributeur Dernière intervention 22 janvier 2020 - 23 juil. 2013 à 13:15
lermite222 Messages postés 8724 Date d'inscription dimanche 8 avril 2007 Statut Contributeur Dernière intervention 22 janvier 2020 - 23 juil. 2013 à 13:15
A voir également:
- Erreur de compilation / user32 / Clipboard
- Erreur 0x80070643 - Accueil - Windows
- Erreur 0x80070643 Windows 10 : comment résoudre le problème de la mise à jour KB5001716 - Accueil - Windows
- Erreur 1001 outlook - Accueil - Bureautique
- Erreur g030 - Forum Bbox Bouygues
- Code erreur f3500-32 ✓ - Forum Bbox Bouygues
3 réponses
f894009
Messages postés
17239
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
10 février 2025
1 713
23 juil. 2013 à 12:10
23 juil. 2013 à 12:10
Bonjour,
les declarations d'API et la fonction doivent etre mis dans un module.
les declarations d'API et la fonction doivent etre mis dans un module.
lermite222
Messages postés
8724
Date d'inscription
dimanche 8 avril 2007
Statut
Contributeur
Dernière intervention
22 janvier 2020
1 191
Modifié par lermite222 le 23/07/2013 à 12:59
Modifié par lermite222 le 23/07/2013 à 12:59
Bonjour Fxx, depuis quand ?
@ Grifis, pourquoi ouvrir un deuxième poste avec le même sujet ?
Bref, j'ai testé ton code (dans un module de feuille) et il ne génère aucune erreur ?
J'ai juste changer Function ClearClipboard() As Boolean par Function VideClipboard() As Boolean
Tu dois avoir la référence MsForms activée.
A+
Si tu te cognes à un pot et que ça sonne creux, c'est pas forcément le pot qui est vide. ;-)(Confucius)
Note: Je ne répond pas aux MP pour les questions techniques. Et ma boule de cristal est cassée .
@ Grifis, pourquoi ouvrir un deuxième poste avec le même sujet ?
Bref, j'ai testé ton code (dans un module de feuille) et il ne génère aucune erreur ?
J'ai juste changer Function ClearClipboard() As Boolean par Function VideClipboard() As Boolean
Tu dois avoir la référence MsForms activée.
A+
Si tu te cognes à un pot et que ça sonne creux, c'est pas forcément le pot qui est vide. ;-)(Confucius)
Note: Je ne répond pas aux MP pour les questions techniques. Et ma boule de cristal est cassée .
lermite222
Messages postés
8724
Date d'inscription
dimanche 8 avril 2007
Statut
Contributeur
Dernière intervention
22 janvier 2020
1 191
23 juil. 2013 à 13:15
23 juil. 2013 à 13:15
Pour affiner la remarque de FXX
Si tu appel la fonction depuis un autre module, ou un UserForm...
Alors là oui, tu dois mettre le code dans un module général et de préférence déclarer la fonction comme Public.
Si tu appel la fonction depuis un autre module, ou un UserForm...
Alors là oui, tu dois mettre le code dans un module général et de préférence déclarer la fonction comme Public.
Option Explicit Private Declare Function CloseClipboard Lib "user32" () As Long Private Declare Function EmptyClipboard Lib "user32" () As Long Private Declare Function OpenClipboard Lib "user32" (ByVal hwnd As Long) As Long Public Function VideClipboard() As Boolean If OpenClipboard(Application.hwnd) = 0 Then VideClipboard = False Else EmptyClipboard CloseClipboard VideClipboard = True End If End Function