Supprimer une feuille si elle existe

[degap05]

Bonjour,
La macro suivante supprime une feuille à l'ouverture du classeur:

Private Sub Workbook_Open()
Application.DisplayAlerts = False
Sheets("Rapport").Select
ActiveWindow.SelectedSheets.Delete
ActiveWorkbook.Save
Range("A2").Select
End Sub

Celle-ci fonctionne bien, mais si la feuille "Rapport" n'existe pas = message n'appartient pas ......

Comment éviter ce message en stipulant à la macro: supprimer la feuille "Rapport" si elle existe.

Merci de votre aide.

 

[tototiti2008]

Re : Supprimer une feuille si elle existe

Bonjour degap05,

une solution (parmi d'autres) :

Private Sub Workbook_Open()
Application.DisplayAlerts = False
On error resume next
Sheets("Rapport").Select
ActiveWindow.SelectedSheets.Delete
On error goto 0
ActiveWorkbook.Save
Range("A2").Select
End Sub

 

[vbacrumble]

Re : Supprimer une feuille si elle existe

Bonjour tous


Une autre solution

'[COLOR="Red"]Dans ThisWorkbook[/COLOR]
Private Sub Workbook_Open()
Application.DisplayAlerts = False
If SheetExists("Rapport") Then Sheets("Rapport").Delete
End Sub
'[COLOR="Red"]Dans un module standard[/COLOR]
Function SheetExists(SheetName As String) As Boolean
' returns TRUE if the sheet exists in the active workbook
    SheetExists = False
    On Error GoTo NoSuchSheet
    If Len(Sheets(SheetName).Name) > 0 Then
        SheetExists = True
        Exit Function
    End If
NoSuchSheet:
End Function

A+

 

[degap05]

Re : Supprimer une feuille si elle existe

Bonjour degap05,

une solution (parmi d'autres) :

Private Sub Workbook_Open()
Application.DisplayAlerts = False
On error resume next
Sheets("Rapport").Select
ActiveWindow.SelectedSheets.Delete
On error goto 0
ActiveWorkbook.Save
Range("A2").Select
End Sub

Bonjour Tototiti, Vbacrumble,

Je choisi ta solution, Tototiti, c'est parfait🙂

Merci à tous les deux.

 

[vbacrumble]

Re : Supprimer une feuille si elle existe

Re

Degap05

Tu n'es pas obligé de sélectionner.

Private Sub Workbook_Open()
Application.DisplayAlerts = False
On Error Resume Next
Sheets("Rapport").Delete
On Error GoTo 0
ActiveWorkbook.Save
End Sub

A+

 

[degap05]

Re : Supprimer une feuille si elle existe

Re

Degap05

Tu n'es pas obligé de sélectionner.

Private Sub Workbook_Open()
Application.DisplayAlerts = False
On Error Resume Next
Sheets("Rapport").Delete
On Error GoTo 0
ActiveWorkbook.Save
End Sub

A+

Effectivement, merci pour ce complément.