Date et Heure rafraichir automatiquement
Bonjour à tous
Je souhaiterais dans une seule et même cellule inclure la date du jour et l'heure , le tout devant être actualisé automatiquement
Pour le moment j'utilise le code ci dessous qui fonctionne parfaitement mais uniquement pour l'heure . Je souhaiterais ajouter la date . Merci de votre aide.
Dim bstop As Boolean
Dim HeureProchainAppel
Private Sub Workbook_BeforeClose(Cancel As Boolean)
bstop = True
HorlogeEnc3
End Sub
Private Sub Workbook_Open()
HorlogeEnc3
End Sub
Sub HorlogeEnc3()
If bstop = True Then
'Annuler le paramétrage du OnTime programmé précédemment.
Application.OnTime EarliestTime:=HeureProchainAppel, _
Procedure:="ThisWorkbook.HorlogeEnc3", Schedule:=False
Exit Sub
End If
Sheets("feuil1").Range("c3").Value = Format(Now, "HH:MM:SS")
'Nouveau paramétrage de OnTime
HeureProchainAppel = Now + TimeValue("00:00:01")
Application.OnTime HeureProchainAppel, "ThisWorkbook.HorlogeEnc3", False
End Sub
Bonjour,
Tu modifies l'expression : Format(Now, "HH:MM:SS") en :
Format(Now, "dd/mm/yyyy hh:mm:ss")Cordialement.
Merci MFerrand
Je vais tester et te dirai
Cordialement
Cela fonctionne
Parfait
Merci bcp M Ferrand