Créer une nouvelle feuille en fonction d'un label

[Ludwig]

Bonjour tout le monde,

La matinée s'annonce bien !!!
Depuis tôt ce matin j'essais de créer une feuille excel en fonction d'un Label. J'ai Label14.caption = format(Date, "mmmm yy"). Normalement quand je clique sur un boutton des données s'insèrent dans la feuille du mois (Sheets(Label14.Caption)). Par contre si jamais la feuille n'existe pas, j'aimerai qu'elle se créee toute seule. Et j'obtiens 'l'indice n'appartient pas à la sélection'.

Voici mon code:

If Sheets(Label14.Caption) = "" Then

Sheets("Copie").Select
Sheets("Copie").Copy Before:=Sheets("End")
Sheets("Copie (2)").Select
Sheets("Copie (2)").Name = Label14.Caption
Range("A1").Select

End if

Il y a surement une erreur sinon ça marcherai mais je ne vois pas où.

Si toutefois quelqu'un passe par là... Merci de jeter un coup d'oeil!

Sinon très bonne journéé à tous et à toutes et merci d'avance.

Ludwig

 

[Mytå]

On Error Resume Next
Sheets(Label14.Caption).select
If Err <> 0 Then
Sheets("Copie").Select
Sheets("Copie").Copy Before:=Sheets("End")
Sheets("Copie (2)").Select
Sheets("Copie (2)").Name = Label14.Caption
Range("A1").Select
END IF

 

[Ludwig]

Bonjour Myta,

Merci du fond du coeur, ça marche à la perfection...

A bientôt.

Ludwig