Fermeture automatique de fichier à 8h00 et à 1800

bonjours à tous,

J'aimerai fermer mon fichier Excel à 8h00 et à 18h00

Dans thisworkbook j'ai mis

Public Sub fermer()
    Application.OnTime Now + TimeValue("00:00:01"), "fermer"
    If Now > TimeValue("08:00:00") Then Application.Quit            
    If Now > TimeValue("18:00:00") Then Application.Quit            
End Sub

Mais évidemment ca ne fonctionne pas. Pour info je n'ai pas besoin de sauvegarde avant.

Si vous avez des idées je suis preneur,

Merci

Bonjour,

A mettre dans le module du classeur.

Le décompte partira à l'ouverture du classeur déclenché par la procédure évènementielle "Workbook_Open". Si le classeur est ouvert après 8h, la prochaine heure de fermeture de l'application sera pour 18h sinon, pour 8h :

Private Sub Workbook_Open()

    Dim Temps As Date

    'récupère l'heure du moment
    Temps = Time

    'si le classeur est ouvert après 8h, l'heure de fermeture sera pour 18h
    'sinon, le classeur sera fermé à 8h
    If Temps > CDate("08:00:00") Then Temps = CDate("18:00:00") Else Temps = CDate("08:00:00")

    Application.OnTime Temps, "fermer"

End Sub

Ce code est à mettre dans un module standard et non dans le module du classeur :

Sub Fermer()

    Application.Quit

End Sub

Impeccable Merci,

juste une dernière précision si possible. est-il envisageable de supprimer le message qui demande la sauvegarde du fichier lors de la fermeture?

Sub Fermer()

Application.DisplayAlerts = False
Application.Quit

End Sub

Voilà, avec ce code ça ne demande pas si l'utilisateur souhaite sauvegarder. Et ça ne sauvegarde pas.

Merci melch, c'est exactement ca merci je valide