Discussion :

[Runsh63]

Bonjour,

Je souhaite supprimer automatiquement une feuille à la fermeture d'Excel, jusque là pas de problème, voilà ce que j'ai tapé :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Private Sub Workbook_BeforeClose(Cancel As Boolean)
 
Application.DisplayAlerts = False
Sheets("T11_Cumul_LCESE").Delete
Application.DisplayAlerts = True
 
End Sub

Problème : Je réalise qu'il est possible que des utilisateurs ouvrent le fichier alors que cet onglet n'existe plus, auquel cas la macro va planter lorsqu'ils refermeront le fichier. Comment modifier mon code pour que celui-ci ferme tout simplement Excel sans se poser de questions si la feuille n'est pas existante ?

Merci d'avance !

Runsh

[Invité]

Bonjour

Il est possible d'intercepter l'erreur, mais je préfère une solution de cet ordre en parcourant la liste des feuilles.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Private Sub Workbook_BeforeClose(Cancel As Boolean)
 
    Dim objSheet As Worksheet
 
    Application.DisplayAlerts = False
 
    For Each objSheet In ThisWorkbook.Worksheets
        If objSheet.Name = "T11_Cumul_LCESE" Then
            objSheet.Delete
        End If
    Next objSheet
 
    Application.DisplayAlerts = True
 
End Sub

Philippe

[Runsh63]

Super ! C'est exactement ce qu'il me fallait ! Merci beaucoup !!