Evenement BeforeClose

[GaLacTx]

Bonjour,
Je cherche la syntaxe pour supprimer des feuilles lors de la fermeture d'un classeur, exemple; supprimer la feuil2 et la feuil3 avec BeforeClose.
J'ai essayé avec des déclarations dans ce genre mais je n'ai pas réussi

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim CL1 As Workbook
Dim sh As Worksheet
Set CL1 = Workbooks("Classeur1.xls")
For Each Sheets(sh) In CL1
sh.Names("feuil2", "feuil3)".delete

Merci!

 

[tototiti2008]

Re : Evenement BeforeClose

bonjour Galactx,

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.DisplayAlerts = false
Sheets(Array("Feuil2", "Feuil3")).Delete
Application.DisplayAlerts = true

 

[GaLacTx]

Re : Evenement BeforeClose

ça Marche 🙂 Merci