Ouvrir un fichier sur un onglet en fonction du mois

Bonjour,

J'ai un fichier avec 12 feuilles allant de JANVIER 2018 à DECEMBRE 2018.

J'aimerai que le fichier s'ouvre directement sur le bon mois est-ce possible ?

Merci de vos réponses.

Bonjour,

ajoute ce code dans Thisworkbook

Private Sub Workbook_Open()
    Sheets(Format(Now, "mmmm")).Select
End Sub

edit : correction ci-dessous

Bonjour,

Merci de votre réponse

Cela ne prend pas en compte le "2018" de plus les mois sont en majuscule cela est -il un problème ?

Merci beaucoup,

ce code fonctionne

Private Sub Workbook_Open()
    Sheets(Format(Now, "mmmm aaaa")).Select
End Sub

voir ci-avant

tu peux aussi programmer la suppression des accents é et û des mois

Private Sub Workbook_Open()
    Sheets(Replace(Replace(Format(Now, "mmmm yyyy"), "é", "e"), "û", "u")).Select
End Sub

Bonjour,

Si le fichier ne comporte que tes 12 onglets, tu peux aussi utiliser l'indice de chaque onglet via la formule :

Month(Now)

Comme ça, pas de soucis de syntaxe, du moment que l'ordre des mois est respecté...

Malheureusement je n'ai pas uniquement 12 onglets. Merci de votre aide.

ça marche aussi si le mois de janvier est toujours le Nième onglet. Dans ce cas il suffit de rajouter N-1 à l'index...

En effet Pedro, mais pas forcément fiable ...

Autres remarques :

1- c'est dommage de ne pas mettre les majuscules accentuées, car c'est la règle de grammaire en Français (par ontre il faut reconnaître que le É n'est pas très accessible au clavier

2- quand on peut, il vaut mieux migrer vers un seul onglet ∀ l'année ∀ le mois (∀ = quelque soit pour les néophytes), cela permet de faire des synthèses via TCD ou PowerQuery plus facilement + parfois éviter des reports d'un mois sur l'autre