XL 2016 Horloge qui démarre automatiquement à l'ouverture du fichier.

[ReneDav14000]

Bonjour à toutes et à tous,
Dans ma feuille d'accueil, j'ai une petite horloge où doit défiler l'heure en temps réel.
J'ai testé plusieurs codes trouvé sur le Net mais sans succès dont celui-ci mais demande l'ajout de bouton, hors je souhaite que l'horloge se mette en marche dès l'ouverture du fichier.
Je joins également une copie écran de la page "Accueil".
Nous sommes le : correspond à la cellule R1 (formule = MAINTENANT())
et il est : correspond à la cellule R2 (formule = MAINTENANT()).
Comment modifier ce code afin que l'heure tourne en discontinu ?
Merci par avance pour votre aide

Public Declare PtrSafe Function SetTimer Lib "user32" (ByVal HWnd As LongPtr, ByVal nIDEvent As LongPtr, ByVal uElapse As LongPtr, ByVal lpTimerFunc As LongPtr) As LongPtr
Public Declare PtrSafe Function KillTimer Lib "user32" (ByVal HWnd As LongPtr, ByVal nIDEvent As LongPtr) As LongPtr
Public montimer As LongPtr
Sub demarre()
    montimer = SetTimer(0&, 0&, 500&, AddressOf heure)     'le timer tournera et se repetera tout seul on le lance qu'une seule fois
End Sub

Sub arrete()
  On Error Resume Next
  KillTimer 0&, montimer  'on kill le timer
Range("A1") = "heure"
End Sub

Sub heure(ByVal HWnd As LongPtr, ByVal uMsg As LongPtr, ByVal nIDEvent As LongPtr, ByVal dwTimer As LongPtr)
    Range("A1") = Time
End Sub

 

[ReneDav14000]

Bonjour à tous,
Un bref retour pour vous remerciez pour vos commentaires et suggestions.
patrick, ton code fonctionne très bien, j'avais commis une petite erreur de code.
Merci à vgendron, Dranreb, Katido et chaelie25 pour leur proposition.
Bon dimanche, je reviendrai lorsque mon état de santé le permettra, c'est la galère en ce moment.

 

[TooFatBoy]

Bonjour,

Pour ce faire, vous pouvez utiliser l'événement "Workbook_Open" de la feuille de calcul Excel.

Dans le module de la feuille "Accueil", tapez le code suivant :
Private Sub Workbook_Open()
demarre
End Sub

T'es sûr qu'on peut mettre Workbook_Open dans une feuille ???