VBA Excel: Comptes à rebours avec arrêt auto (suite)
Résolu/Fermé
A voir également:
- VBA Excel: Comptes à rebours avec arrêt auto (suite)
- Liste déroulante excel - Guide
- Formule excel - Guide
- Si et excel - Guide
- Aller à la ligne excel - Guide
- Mise en forme conditionnelle excel - Guide
1 réponse
Patrice33740
Messages postés
8556
Date d'inscription
dimanche 13 juin 2010
Statut
Membre
Dernière intervention
2 mars 2023
1 776
28 mai 2017 à 19:10
28 mai 2017 à 19:10
Bonjour,
Je n'ai pas ton code, mais le principe, pour conserver la compatibilité avec W32 et W64 est assez simple, tu devrais pouvoir l'appliquer toi-même d'après cet exemple :
Avant :
Aprés :
Cordialement
Patrice
Je n'ai pas ton code, mais le principe, pour conserver la compatibilité avec W32 et W64 est assez simple, tu devrais pouvoir l'appliquer toi-même d'après cet exemple :
Avant :
Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) Public Declare Function EmptyClipboard Lib "user32" () As Long Public Declare Function CloseClipboard Lib "user32" () As Long
Aprés :
#If Win64 Then Public Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As LongPtr) Public Declare PtrSafe Function EmptyClipboard Lib "user32" () As LongPtr Public Declare PtrSafe Function CloseClipboard Lib "user32" () As LongPtr #Else Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) Public Declare Function EmptyClipboard Lib "user32" () As Long Public Declare Function CloseClipboard Lib "user32" () As Long #End If--
Cordialement
Patrice
28 mai 2017 à 19:32
J'ai apporté les modifications suggérées, et le message d'erreur initial n'apparaît plus, merci!
Mais il a laissé place à un autre message d'erreur, sur d'autres lignes du code, à savoir "Incompatibilité de type", qui n'était jamais apparu sur W32; une idée??
Merci encore!
28 mai 2017 à 21:52
28 mai 2017 à 22:26