Menu

Macro pour heure et date mise a jour automatiquement

- - Dernière réponse :  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
Afficher la suite 

Votre réponse

1 réponse

Messages postés
14068
Date d'inscription
dimanche 25 novembre 2007
Dernière intervention
17 février 2019
1301
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
f894009
Messages postés
14068
Date d'inscription
dimanche 25 novembre 2007
Dernière intervention
17 février 2019
1301 -
Bonjour,

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