Vba - Supprimer puis créer feuille

[pepsi]

Bonjour,

J'ai une macro qui supprime puis créé une feuille excel

Mais avant de la supprimer, je voudrais d'abord vérifier si elle existe car sinon, le code ne marche pas.

Donc, si elle n'existe pas, ne pas demander la supression.

Comment faire ?

Merci d'avance

Sub copier()

Application.DisplayAlerts = False

Sheets("copie_feuil").Delete

Application.DisplayAlerts = True

Sheets("feuil2").Select

ActiveSheet.Copy after:=Sheets(4)
ActiveSheet.Name = "copie_feuil"

End Sub

 

[Guest]

Re: Vba

Bonjour,

Sub copier()
    Application.DisplayAlerts = False
    On Error Resume Next
    Sheets("copie_feuil").Delete
    On Error GoTo 0
    Application.DisplayAlerts = True
    Sheets("feuil2").Select
    ActiveSheet.Copy after:=Sheets(4)
    ActiveSheet.Name = "copie_feuil"
End Sub

Méthode 2 (en parcourant toutes les feuilles)

Sub copier()
    Dim sh
    Application.DisplayAlerts = False
    For Each sh In Worksheets
        If sh.Name = "copie_feuil" Then sh.Delete
    Next
    Application.DisplayAlerts = True
    Sheets("feuil2").Select
    ActiveSheet.Copy after:=Sheets(4)
    ActiveSheet.Name = "copie_feuil"
End Sub

A+