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]

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

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]

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

merci fred65200

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

 

[fred65200]

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

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]

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

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

cordialement

 

[chilo]

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

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