Bonjour à tous,
Je cherche depuis quelques temps un code qui me permettrais de fermer par
exemple un classeur tous les samedi à 12:00.
Je suis sur un bout de code que j'ai pu trouver ici et là, que je ne maîtrise pas beaucoup, mais je pense être sur le bon chemin.
Peut être que je me trompe complètement.
J'ai mis dans le workbook:
Et ca dans le module:
Si quelqu'un peut me mettre sur le bon chemin.
Merci
Je cherche depuis quelques temps un code qui me permettrais de fermer par
exemple un classeur tous les samedi à 12:00.
Je suis sur un bout de code que j'ai pu trouver ici et là, que je ne maîtrise pas beaucoup, mais je pense être sur le bon chemin.
Peut être que je me trompe complètement.
J'ai mis dans le workbook:
Code:
Private Sub Workbook_Open()
Dim heures
heures = Array("12:00:00")
Application.OnTime EarliestTime:=TimeValue(heures(WeekdayName(Date, 2) - 1)), Procedure:="ferme"
End Sub
Et ca dans le module:
Code:
Public Sub ferme()
Application.Save
Application.Quit
End Sub
Si quelqu'un peut me mettre sur le bon chemin.
Merci