Création dans un classeur d'une feuille automatique en fonction d'une date

[chilo]

bonsoir à tous,
je souhaite partager avec vous un petit soucis

j'ai fait un classeur pour l'année avec les 12 mois janvier février etc
mes collegues remplissent février pour mars ou comme tout récemment ont écrit des dnnées dans le mois de novembre pour octobre e t il faut reprendre tous cela à chque fois.

je souhaite afficher le mois en fonction de la date et masque les autres feuilles
ex : afficher la feuille décembre le 1 décembre, janvier le 1er janvier etc
merci pour votra collaboration
est ce possible
en tout cas je vous remercie de votre collaboration

[fred65200]

bonjour chilo

code à place dans le module ThisWorkbook de ton classeur

Private Sub Workbook_Open()
'en supposant que les 12 premières feuilles sont celles des mois
Sheets(Month(Date)).Select

End Sub

cordialement

[chilo]

merci fred65200

est il possible de masquer les autre feuilles
merci pour ta réponse

[fred65200]

bonsoir

une solution

Private Sub Workbook_Open()
'en supposant que les 12 premières feuilles sont celles des mois
For i = 1 To 12
Sheets(i).Visible = True
If Not i = Month(Date) Then Sheets(i).Visible = False
Next
Sheets(Month(Date)).Select

End Sub

cordialement

[fred65200]

erreur de précipitation, le code du post précédent est modifié.

cordialement

[chilo]

merci fred65200
cela ne fonctionnement automatiquement, mais cela avance néanmoins
merci encore