création de feuilles

[Sonskriverez]

Bonour,

Je dois dans une macro créer des nouvelles feuilles mais avant toutes chose je dois tester si la feuille n'existe pas.

exemple :

Si la feuille toto n'existe pas alors création sinon fin de condition

merci de votre aide

 

[porcinet82]

re,

Juste une petite question pour pouvoir repondre a la tienne, tu crés une nouvelle feuille, mais ou prends-tu le nom de la nouvelle feuille?
parce que sans cette information, je ne vois pas trop comment faire la verification que tu souhaites.

@+

 

[Sonskriverez]

Bonne remarque...

Le nom je le met dans ma ligne dans une variable ex :
nom_feuille = 'toto'

 

[sonskriverez]

laisser tomber j'ai trouvé.

On Error Resume Next
Worksheets('toto').Select
If.Err <> 0 Then Worksheets.Add.Name = 'toto'

Merci

 

[Temjeh]

Bonjour à toi

Avec une feuil 'Model' j'utilise ceci:

Sub Macro1()
Dim Nom_Fichier
Debut:
Nom_Fichier = Application.InputBox(prompt:='*Entrez le nom de la nouvelle feuille*')
If Nom_Fichier = 'Faux' Then Exit Sub
If Nom_Fichier = '' Then
MsgBox 'Entrer un nom'
GoTo Debut
Else
For Each ws In Worksheets
If ws.Name = Nom_Fichier Then
MsgBox 'facture déjà existante'
GoTo Debut
End If
Next
Sheets('Model').Copy After:=Sheets(Sheets.Count)
ActiveSheet.Name = Nom_Fichier
End If
End Sub

A++

Temjeh