VBA Excel: Comptes à rebours avec arrêt auto (suite) Résolu/Fermé

Question

Bonjour, 

Je reviens vers vous à propos du compte à rebours, qui m'a énormément servi depuis 2014, (https://forums.commentcamarche.net/forum/affich-30889359-vba-excel-comptes-a-rebours-imbriques-avec-arret-auto et je vous en remercie encore!
Seulement, je viens de changer d'ordinateur et le fichier .xls proposé en 2014 ne passe plus sous Windows 10 64 bits (Excel 2013). En effet, lorsque j'ouvre le fichier, un message d'erreur apparaît, disant que "le contenu doit être mis à jour pour pouvoir être utilisé sur les systèmes 64 bits. Vérifiez et mettez à jour les instructions Declare, puis marquez-les avec l'attributs PtrSafe"; quelqu'un saurait-il faire les modifications demandées?

Je vous en remercie par avance!

Configuration: Windows / Edge 14.14393

Patrice33740 · Answer

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 :
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