si existe alors suprimmer la feuille??

[jtitin]

bonsoir

j'ai trouver dans le forum cette procédure qui me permet de supprimer une certaine feuille si elle existe et d'ajouter une nouvelle portant le même nom.
Mais cela ne marche pas si la feuille au départ n'existe pas.
que faut il modifier ?? Merci

Dim WS As Worksheet
Dim X As Byte

Application.DisplayAlerts = False 'Evite avertissement suppr de feuille
For Each WS In Worksheets
If WS.Name = "new" Then
WS.Delete
X = Sheets.Count 'Compte les feuilles
Sheets.Add After:=Sheets(X) 'Ajoute une feuille à la fin
Sheets(X + 1).Name = "new" 'Renomme la feuille
End If
Next WS
Application.DisplayAlerts = True 'Réactive les alertes!
Sheets("new").Select
......

 

[pierrejean]

Re : si existe alors suprimmer la feuille??

bonsoir

teste:

Dim WS As Worksheet
Dim X As Byte

Application.DisplayAlerts = False 'Evite avertissement suppr de feuille
For Each WS In Worksheets
If WS.Name = "new" Then
WS.Delete
End if
Next WS

X = Sheets.Count 'Compte les feuilles
Sheets.Add After:=Sheets(X) 'Ajoute une feuille à la fin
Sheets(X + 1).Name = "new" 'Renomme la feuille


Application.DisplayAlerts = True 'Réactive les alertes!
Sheets("new").Select

 

[jtitin]

Re : si existe alors suprimmer la feuille??

bonsoir à tous
bonsoir PierreJean

Merci PierreJean pour ta modif
C'est tout bon