Ouvrir par défaut une feuille selon la date

Signaler
-
Messages postés
7282
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
3 mars 2021
-
Bonjour,

Je travaille de nuit dans une urgence du centre-ville. Nous avons un fichier Excel pour gérer les appels fait aux médecins. Sur le coup de minuit, j’ouvre un document intitulé « changements ». Chaque jour du mois correspond à une feuille. Le fichier a été programmé pour s’ouvrir sur la feuille du 21. Y a t-il une façon qu’il s’ouvre sur la date du jour ? Et si oui, peut on choisir que le 1er par exemple, soit calculé de 8am le 1er à 8am le matin du 2. Ainsi à partir de 8am le 2, la feuille s’ouvrirait sur le 2. Merci !

2 réponses

Messages postés
53362
Date d'inscription
lundi 13 août 2007
Statut
Contributeur
Dernière intervention
2 mars 2021
15 401
Bonjour.

" Le fichier a été programmé pour s’ouvrir sur la feuille du 21 " Comment ?
Messages postés
7282
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
3 mars 2021
617
Bonjour,

a mettre dans ThisWorkbook et à adapter:

Option Explicit
Private Sub Workbook_Open()
Dim heure As String
Dim jour As String
heure = Format(Now, "hh")
jour = Format(Now, "dd")
If heure > 8 Then
Sheets(jour).Activate
End If
End Sub


voilà