XL 2016 Horloge dans feuille de calcul Excel

[ReneDav14000]

Bonjour à tous et merci de m'accueillir sur votre site.
Je ne suis pas un expert en Vba, mais je me débrouille un peu.
J'ai 61ans (bientôt la retraite) et j'exerce dans la fonction publique territoriale.
Je développe (j'essaie plutôt) des applications Excel pour améliorer les routines de travail.

J'ai donc un sujet à vous soumettre :
Avec l'aide de différents tuto, j'ai une horloge analogique que je souhaite insérer dans une feuille de calcul et que l'horloge se mette en route dès l'ouverture du fichier.
La feuille "Accueil" où se trouve l'horloge est la feuille qui sera affichée en première.
Pour le moment se met en route en cliquant sur un bouton (feuille "données horloge").
Merci par avance pour votre aide

 

[patricktoulon]

bon ben donne le code de déclaration que je t'ai mis voir
car je crois que les modeles qui ont suivi j'ai pas corrigé
pour en etre sur toi le tien fonctionne donc tout est bon

 

[ReneDav14000]

Là chez moi c'est LongPtr

ByVal lpTimerFunc As Long) As Long
'ByVal lpTimerFunc As LongPtr' 1ère ligne en-dessous de VB7

 

[patricktoulon]

oui c'est bon l'addressof doit être pointeur
maintenant ça doit fonctionner pour Lionel

 

[Usine à gaz]

Bonsoir Patrick
Bonsoir ReneDav14000

Nickel ça fonctionne parfaitement.
Merci d'un lio heureux... Superbe ta Pendule Patrick
lionel

 

[Phil69970]

Re

Lionel poste ton fichier STP que je l'essaye

Merci

@Phil69970

 

[Usine à gaz]

Bonsoir Phil69970
Et voilou en pièce jointe.
lionel

 

[Phil69970]

Merci bien Lionel

Patrick avec le fichier de Lionel
Et c'est quoi la modif que tu as faite ?

J'ai un message d'erreur ici

Je fais F5 et le code continue et j'obtiens ceci...

@Phil69970

 

[Usine à gaz]

Re-Phil69970
Modif ci -dessous :

Option Explicit
#If VBA7 Then
    Private Declare PtrSafe Function SetTimer Lib "user32.dll" (ByVal hwnd As LongPtr, ByVal nIDEvent As Long, ByVal uElapse As Long, ByVal lpTimerFunc As LongPtr) As Long
    Private Declare PtrSafe Function KillTimer Lib "user32.dll" (ByVal hwnd As LongPtr, ByVal nIDEvent As Long) As Long
#Else
    Private Declare PtrSafe Function SetTimer Lib "user32.dll" (ByVal hwnd As Long, ByVal nIDEvent As Long, ByVal uElapse As Long, ByVal lpTimerFunc As LongPtr) As Long
    Private Declare PtrSafe Function KillTimer Lib "user32.dll" (ByVal hwnd As Long, ByVal nIDEvent As Long) As Long
#End If

"ByVal hwnd As Long" modifié en "ByVal hwnd As LongPtr"

Je n'avais pas l'erreur que tu signales.
lionel

 

[Staple1600]

@Usine à gaz
Le VBA ça ne fait pas que s'utiliser, il faut aussi chercher à comprendre...

Option Explicit
#If VBA7 Then ' donc 64 bits
    Private Declare PtrSafe Function SetTimer Lib "user32.dll" (ByVal hwnd As LongPtr, ByVal nIDEvent As Long, ByVal uElapse As Long, ByVal lpTimerFunc As LongPtr) As Long
    Private Declare PtrSafe Function KillTimer Lib "user32.dll" (ByVal hwnd As LongPtr, ByVal nIDEvent As Long) As Long
#Else 'sinon 32 bits !!!
    Private Declare  Function SetTimer Lib "user32.dll" (ByVal hwnd As Long, ByVal nIDEvent As Long, ByVal uElapse As Long, ByVal lpTimerFunc As Long) As Long
    Private Declare  Function KillTimer Lib "user32.dll" (ByVal hwnd As Long, ByVal nIDEvent As Long) As Long
#End If

Le PtrSafe ne s'ajoute que dans la partie dédiée au 64 bits
C'est d'ailleurs le message d'erreur explicite qui s'affiche dans Excel.

 

[patricktoulon]

re
@Staple1600

#If VBA7 Then ' donc 64 bits

pas d'accords
je tourne sur 2013 pro 32 bits

#If VBA7 Then
    #If Win64 Then
        Const vbaversion = "vba7 64 bit"
    #Else
        Const vbaversion = "vba7 32 bit"
    #End If
#Else
    Const vbaversion = "vba6 32 bit"
#End If

Sub test()
    MsgBox vbaversion
End Sub

 

[Usine à gaz]

@Usine à gaz
Le VBA ça ne fait pas que s'utiliser, il faut aussi chercher à comprendre...

Option Explicit
#If VBA7 Then ' donc 64 bits
    Private Declare PtrSafe Function SetTimer Lib "user32.dll" (ByVal hwnd As LongPtr, ByVal nIDEvent As Long, ByVal uElapse As Long, ByVal lpTimerFunc As LongPtr) As Long
    Private Declare PtrSafe Function KillTimer Lib "user32.dll" (ByVal hwnd As LongPtr, ByVal nIDEvent As Long) As Long
#Else 'sinon 32 bits !!!
    Private Declare  Function SetTimer Lib "user32.dll" (ByVal hwnd As Long, ByVal nIDEvent As Long, ByVal uElapse As Long, ByVal lpTimerFunc As Long) As Long
    Private Declare  Function KillTimer Lib "user32.dll" (ByVal hwnd As Long, ByVal nIDEvent As Long) As Long
#End If

Le PtrSafe ne s'ajoute que dans la partie dédiée au 64 bits
C'est d'ailleurs le message d'erreur explicite qui s'affiche dans Excel.

Bonjour JM
"Le VBA ça ne fait pas que s'utiliser, il faut aussi chercher à comprendre...:"
Pour moi qui n'est pas formé au VBA et qui ne parle pas un mot d'anglais, c'est cause perdue au moins pour l'instant.
Mon travail ne me laisse pas assez de temps pour me former.
Bien sûr, j'essaie de comprendre en testant et en adaptant les codes qui me sont donnés en réponses à mes fils et aussi ceux que je remarques sur d'autres fils... ça me prend déjà pas mal de temps.
Et pourtant, j'adore ça.... si la vie m'en laisse le temps quand ce sera possible, je m'y "collerai".
lionel

 

[patricktoulon]

Merci bien Lionel

Patrick avec le fichier de Lionel
Et c'est quoi la modif que tu as faite ?

J'ai un message d'erreur ici
Regarde la pièce jointe 1151578

Regarde la pièce jointe 1151577
Je fais F5 et le code continue et j'obtiens ceci...

Regarde la pièce jointe 1151579

@Phil69970

@Phil69970 c'est bizarre en effet et là je pige pas, je te l'avoue
ca donne l'impression que l'aiguille des minutes c'est doublée pour faire l'aiguille des secondes

 

[ReneDav14000]

Bonsoir Phil69970
Et voilou en pièce jointe.
lionel

Chez moi l'horloge fonctionne très bien

 

[Staple1600]

Re

Précisions
@patricktoulon
Sauf erreur
Cette syntaxe a cette fonction, non ?

#If VBA7 Then 'déclarations des API pour 64 bits
    Private Declare PtrSafe ....
    Private Declare PtrSafeF...
#Else ' déclarations 32 bits

Donc logiquement on ne doit pas y trouver de PtrSafe ni de LongPrt dans la partie 32 bits , non ?
(comme c'est le cas dans le message#173)

D'où la correction dans le message 174#

Mon travail ne me laisse pas assez de temps pour me former.

Excuse un peu facile
Le forum n'est pas peuplé que de retraités
Moi aussi, je bosse.
Suis inscrit sur XLD depuis 2005, donc chaque jour de connexion est un peu d'autoformation parce que j'ai mis les mains dans le cambouis.

 

[patricktoulon]

@Staple1600

Donc logiquement on ne doit pas y trouver de PtrSafe ni de LongPrt dans la partie 32 bits , non ?

re
si dans la partie vb 7 32 bits
car vba 7 est dans nos bécanes depuis 2013 32 ou 64 bits
il se trouve que certaines api sur 2013 32 pro, les déclaration en vb7 sont nécessaires donc ptrsafe mais pas longptr
certaines autres api chez moi fonctionnent sous les 3 modes de déclaration