- 'Dans la partie workbook du classeur, insérer le code suivant
- '============================================================
-
- 'On initialise le timer système dès l'ouverture du classeur
- Private Sub Workbook_Open()
- 'Utilisation de l'API SetTimer toutes les secondes (1000 millisecondes) pour appeler la procédure UpDateTime
- SetTimer Application.hWnd, 0, 1000, AddressOf UpDateTime
- End Sub
-
- 'A la fermeture du classeur, on nettoie la place en supprimant l'appel au timer système
- Private Sub Workbook_BeforeClose(Cancel As Boolean)
- 'On utilise le handle de l'application et l'ID de l'objet liés lors de l'initialisation du timer
- KillTimer Application.hWnd, 0
- End Sub
-
-
- 'Dans un module séparé, insérer le code suivant
- '==============================================
-
- 'On définit les 2 APIs systèmes qui seront utilisées
- Public Declare Function SetTimer Lib "user32" (ByVal hWnd As Long, ByVal nIDEvent As Long, ByVal uElapse As Long, ByVal lpTimerFunc As Long) As Long
- Public Declare Function KillTimer Lib "user32" (ByVal hWnd As Long, ByVal nIDEvent As Long) As Long
-
- 'La fameuse fonction UpDateTime qui va se charger d'écrire dans la cellule voulue l'heure actuelle à chaque seconde
- Public Sub UpDateTime (ByVal hWnd As Long, ByVal nIDEvent As Long, ByVal uElapse As Long, ByVal lpTimerFunc As Long)
- 'Afin que la feuille ne se ferme pas de manière inoportune suite à une erreur interne
- '(lors de l'édition d'une cellule ou l'accès à certaines boîtes de dialogue par exemple)
- On Error Resume Next
- 'On écrit l'heure selon le format HH:MM:SS sur 24 heures.
- Worksheets(1).Cells(1.1).Value = Format(Time,"HH:MM:SS")
- On Error Goto 0
- End Sub
'Dans la partie workbook du classeur, insérer le code suivant
'============================================================
'On initialise le timer système dès l'ouverture du classeur
Private Sub Workbook_Open()
'Utilisation de l'API SetTimer toutes les secondes (1000 millisecondes) pour appeler la procédure UpDateTime
SetTimer Application.hWnd, 0, 1000, AddressOf UpDateTime
End Sub
'A la fermeture du classeur, on nettoie la place en supprimant l'appel au timer système
Private Sub Workbook_BeforeClose(Cancel As Boolean)
'On utilise le handle de l'application et l'ID de l'objet liés lors de l'initialisation du timer
KillTimer Application.hWnd, 0
End Sub
'Dans un module séparé, insérer le code suivant
'==============================================
'On définit les 2 APIs systèmes qui seront utilisées
Public Declare Function SetTimer Lib "user32" (ByVal hWnd As Long, ByVal nIDEvent As Long, ByVal uElapse As Long, ByVal lpTimerFunc As Long) As Long
Public Declare Function KillTimer Lib "user32" (ByVal hWnd As Long, ByVal nIDEvent As Long) As Long
'La fameuse fonction UpDateTime qui va se charger d'écrire dans la cellule voulue l'heure actuelle à chaque seconde
Public Sub UpDateTime (ByVal hWnd As Long, ByVal nIDEvent As Long, ByVal uElapse As Long, ByVal lpTimerFunc As Long)
'Afin que la feuille ne se ferme pas de manière inoportune suite à une erreur interne
'(lors de l'édition d'une cellule ou l'accès à certaines boîtes de dialogue par exemple)
On Error Resume Next
'On écrit l'heure selon le format HH:MM:SS sur 24 heures.
Worksheets(1).Cells(1.1).Value = Format(Time,"HH:MM:SS")
On Error Goto 0
End Sub