XL 2016 Horloge dans feuille de calcul Excel

ReneDav14000 · 26 Septembre 2022

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 · 4 Octobre 2022

re
bubleWaterWatch

Usine à gaz · 5 Octobre 2022

patricktoulon à dit:
re
Bonjour Lionel
dis moi un peu tu n'est pas un débutant , tu sera faire quand même
testcreate dans le open du workbook et le activate de la feuille
et destroyhorloge dans le beforeclose du workbook et le déactivate de la feuille

Bonjour Patrick, le Forum
OK Patrick, c'est vrai mais j'ai la même erreur que Phil69970 #Post 147.
Je suis sur Office365
@+,
lionel

ReneDav14000 · 5 Octobre 2022

Bonjour le forum, bonjour patrick,
Malgré ton code, j'ai toujours un décalage au niveau des aiguilles.
Mais bon il n'y a pas d'urgence. Je vois que ton horloge plait à beaucoup de monde

Phil69970 · 5 Octobre 2022

Patrick

patricktoulon à dit:
version 14 c'est quoi ça 2010?

C'est :

Phil69970 à dit:
Excel 2010 64 bits

@Phil69970

patricktoulon · 5 Octobre 2022

re
et oui c'est bien connu que la version 2010 64 bits fait des choses bizarre
il me semble avoir lu quelque part avec un correctif le problème api en 64 bit était résolu
je ne sais plus ou c'est 2010 je l'ai gardé un mois à tout casser j'etais vite revenu à 2007
pour passer il y a un peu plus de 2 ans a 2013 bien malgré moi d'ailleurs mais bon on s'y fait
il me semble même que pour excel 2010 l'argument hwnd doit être le hwnd de l'application

Usine à gaz · 6 Octobre 2022

Bonjour Patrick, le Fil, le Forum,
@patrick : pas de nouveau concernant ?

J'espère que tu trouveras car j'adore ton horloge,
lionel

patricktoulon · 6 Octobre 2022

Bonjour Lionel
ben comme je l'ai dis je n'en ai fichtrement aucune idée
pourquoi toi aussi tu a le soucis ?

patricktoulon · 6 Octobre 2022

il est fort possible que ce soit les déclarations 64, j'avais fait une petite erreur su LpProc
en effet je ne peux tester car je suis en 32 bits

VB:

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 Long) As Long
    Private Declare PtrSafe Function KillTimer Lib "user32.dll" (ByVal hwnd As LongPtr, ByVal nIDEvent As Long) As Long
#Else
    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

Usine à gaz · 6 Octobre 2022

Bonjour Patrick
C'est curieux :
Si je mets ta modif :

Si je remets les 2 Ptrsafe :

Même souci.
Vraiment curieux,
lionel

patricktoulon · 6 Octobre 2022

ben c'est normal si tu est en 64 les déclarations 32 seront en rouge et vice et versa

patricktoulon · 6 Octobre 2022

il va te falloir peut etre les 3 mode de déclaration

patricktoulon · 6 Octobre 2022

re

VB:

#If VBA7 Then    'office 2013 à 365
    #If Win64 Then    'office 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 Long) As Long
        Private Declare PtrSafe Function KillTimer Lib "user32.dll" (ByVal hwnd As LongPtr, ByVal nIDEvent As Long) As Long
    #Else    'office 32 bits
        Private Declare PtrSafe 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 PtrSafe Function KillTimer Lib "user32.dll" (ByVal hwnd As Long, ByVal nIDEvent As Long) As Long
    #End If
#Else    'vb6 office 32 bits 2007 et inférieur
    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

Usine à gaz · 6 Octobre 2022

patricktoulon à dit:

re

VB:

#If VBA7 Then    'office 2013 à 365
    #If Win64 Then    'office 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 Long) As Long
        Private Declare PtrSafe Function KillTimer Lib "user32.dll" (ByVal hwnd As LongPtr, ByVal nIDEvent As Long) As Long
    #Else    'office 32 bits
        Private Declare PtrSafe 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 PtrSafe Function KillTimer Lib "user32.dll" (ByVal hwnd As Long, ByVal nIDEvent As Long) As Long
    #End If
#Else    'vb6 office 32 bits 2007 et inférieur
    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

Re-Patrick
Il n'en veut pas le "coquinou" :

Bon sang
lionel

ReneDav14000 · 6 Octobre 2022

Usine à gaz à dit:
Re-Patrick
Il n'en veut pas le "coquinou" :
Regarde la pièce jointe 1151524
Bon sang
lionel

Bonjour lionel,
Pouvez-vous montrer le code entier s'il vous plait jusqu'au bas de heure ? et le code du haut en entier.
Merci beaucoup

patricktoulon · 6 Octobre 2022

re

bonjour @ReneDav14000
rappelle moi tu es en 2016 64 bits toi non?

ReneDav14000 · 6 Octobre 2022

patricktoulon à dit:
re

bonjour @ReneDav14000
rappelle moi tu es en 2016 64 bits toi non?

bonjour patrick,
Oui c'est exactement ça

XL 2016 Horloge dans feuille de calcul Excel

ReneDav14000

XLDnaute Occasionnel

Pièces jointes

patricktoulon

Usine à gaz

XLDnaute Barbatruc

ReneDav14000

XLDnaute Occasionnel

Phil69970

XLDnaute Barbatruc

patricktoulon

XLDnaute Barbatruc

Usine à gaz

XLDnaute Barbatruc

patricktoulon

XLDnaute Barbatruc

patricktoulon

XLDnaute Barbatruc

Usine à gaz

XLDnaute Barbatruc

patricktoulon

XLDnaute Barbatruc

patricktoulon

XLDnaute Barbatruc

patricktoulon

XLDnaute Barbatruc

Usine à gaz

XLDnaute Barbatruc

ReneDav14000

XLDnaute Occasionnel

patricktoulon

XLDnaute Barbatruc

ReneDav14000

XLDnaute Occasionnel

Discussions similaires