Ouvrir par défaut une feuille selon la date Fermé

Question

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 !

Raymond PENTIER · Answer

Bonjour.

" Le fichier a été programmé pour s’ouvrir sur la feuille du 21 " Comment ?

cs_Le Pivert · Answer

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à

Ouvrir par défaut une feuille selon la date

2 réponses

Discussions similaires