Afficher une feuille en fonction de la date

[Tungstene]

Bonjour,

J'ai un classeur avec 12 feuilles, 1 pour chaque mois de l'année.
Dans chaque feuille j'ai la formule : =AUJOURDHUI().

Ce que j'aimerai savoir, c'est s'il est possible d'afficher la feuille correspondant au mois n-1 de la date en cours.

Ex : aujourd'hui nous sommes le 24/10/2005 (c'est le résultat de ma formule =AUJOURDHUI())
Ce que je veux c'est que lorsque j'ouvre mon classeur, il m'affiche automatiquement la feuille correspondant au mois en cours (octobre) – 1 , soit la feuille du mois de septembre.

Et cela bien entendu pour tous les mois de l'année.

Merci!

 

[Nikolaï]

Bonjour

Je crois avoir compris ce que vous voulez mais je mais je ne suis pas sur.
Essayez ça !

Private Sub Workbook_Open()
Sheets(MonthName(Month(Now), False)).Select
End Sub

et en plus vous n'avez pas besoin de mettre une formule dans votre classeur.

Christophe

 

[SergiO]

Salut,

Voici une solution avec macro MS Excel 4.0, je viens de me mette au VBA et je ne sais pas encore faire ça.

a+

 

[Robert]

Bonjour Tungstène, bonjour le forum,

Essaie comme ça :

Private Sub Workbook_Open()
Sheets(MonthName(Month(Date) - 1, False)).Select
End Sub

Édition :
Hou la ! trois métros de retard... Le temps que j'ai mis à trouver MontName que je ne connaissais pas... Bonjour Nikolaï (Christophe ?), bonjour Sergio.

Message édité par: Robert, à: 24/10/2005 16:27

 

[Tungstene]

C'est parfait, c'est ce qu'il me fallait et ça tourne.
Merci à vous tous!