Macro pour heure et date mise a jour automatiquement

Fermé
Geo - 6 févr. 2019 à 11:30
 Geo - 7 févr. 2019 à 08:25
Bonjour,

j' ai un fichier excel qui reste ouvert en permanence et j aimerais que dans une cellule l'heure et la date se mettent a jour automatiquement.

ne sachant pas mettre mon fichier je vous mets les lignes de code actuel

Dim bstop As Boolean
Dim HeureProchainAppel

Private Sub Workbook_BeforeClose(Cancel As Boolean)
bstop = True
HorlogeEnA1
End Sub

Private Sub Workbook_Open()
HorlogeEnA1




'temp = Now + TimeValue("00:00:10")
'Cells(1, 1) = temp
'Application.OnTime temp, "arret"

End Sub

Sub HorlogeEnA1()
If bstop = True Then
Application.OnTime EarliestTime:=HeureProchainAppel, _
Procedure:="ThisWorkbook.HorlogeEnA1", Schedule:=False
Exit Sub
End If

Sheets("Num").Range("C17").Value = CDate(Date)
Sheets("Num").Range("C18").Value = Format(Now, "HH:MM:SS")

temp = Format(Now, "HH:MM:SS"): If temp = "18:00:00" Then Application.Quit: Application.DisplayAlerts = False 'Arrête le programme à 18:00 hr



HeureProchainAppel = Now + TimeValue("00:00:01")
Application.OnTime HeureProchainAppel, "ThisWorkbook.HorlogeEnA1", False
End Sub



Merci d'avance pour votre aide
A voir également:

1 réponse

f894009 Messages postés 16854 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 26 janvier 2023 1 679
6 févr. 2019 à 11:49
1
j'ai regarde mais cela ne m aide pas
j'aimerais afficher l'heure et la date sur ma feuille et que celle ci se mette a jour toute seule
0
f894009 Messages postés 16854 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 26 janvier 2023 1 679
7 févr. 2019 à 08:23
Bonjour,

Desole, mais ca marche. La seule difference est que la cellule a la date et heure………………………………….
0
non cela n affiche pas l heure en temps reel sur ma feuille et cela ne mets pas a jour la date
0