Bonjour,
Voici une macro de Bruno d'un site ami, à placer dans THISWORKBOOK
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
Remplace "feuil1".Range("c3") par tes données
Amicalement
Nad