Rechercher les Feuilles excel

[pierrot]

Bonsoir à tous.

Voici mon petit soucis. Dans mon classeur les feuilles excel sont nommées par année , 2002, 2003, 2004 etc...
je voudrais savoir, comment on peut vérifier si la feuille 2003 existe bien en fonction de l'année bien sur, et si elle n'existe pas commet la créer et la nommée donc 2003.

Merci d'avance de votre coup de main.

Pierrot

 

[Valérie]

Salut Pierrot, et le forum

Voilà un petit code qui te permet de tester l'existance de ta feuille et la créée si besoin en fonction de l'année en cours

Dim FEUILLE As Worksheet, OK As Boolean

For Each FEUILLE In Worksheets
If FEUILLE.Name = Year(Date) Then
OK = True
Exit For
End If
Next

If Not OK Then
Sheets.Add After:=Sheets(Sheets.Count)
ActiveSheet.Name = Year(Date)
End If

@ bientot
Valérie

 

[pierrot]

Super, merci pour ton coup de main.