Public temps, répertoire, NomPhoto
Sub majHeure()
UserForm1.Image1.Picture = LoadPicture(répertoire & "\" & NomPhoto)
NomPhoto = Dir
If NomPhoto = "" Then NomPhoto = Dir(répertoire & "\" & "*.jpg")
temps = Now + TimeValue("00:00:6")
Application.OnTime temps, "majHeure"
End Sub
Sub auto_close()
On Error Resume Next
Application.OnTime temps, Procedure:="majHeure", Schedule:=False
End Sub
Sub horloge()
Application.OnTime Now + TimeValue("01:00:00"), "Arret"
End Sub
Sub Arret()
auto_close
Unload UserForm1
Application.DisplayAlerts = False
End Sub
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
auto_close
End Sub
Private Sub UserForm_Terminate()
Run ("Arret")
End Sub