Bonjour tout le monde,
PRECISIONS concernant l'exemple ci dessus :
0,9791166667 peut être utilisé si on utilise le code
Application.OnTime 0,9791166667, "EnregAuto"
au lieu de
Application.OnTime TimeValue("23:308:00"), "EnregAuto"
qui est plus parlant
La procédure EnregAlarme doit être lancée à partir de l'événement Open de ThisWorbook pour entrer en vigueur
Private Sub Workbook_Open()
EnregAlarme
End Sub
A+
ChS