toubib

voila le code et la igne surlignée

Private Sub Workbook_BeforeClose(Cancel As Boolean) 'à la fermeture du classeur
Dim Ws As Worksheets 'déclare la variable Ws
Application.DisplayAlerts = False
For Each Ws In Sheets
'remplace 'Feuil1' par le nom de la feuille qui doit rester
If Not Ws.Name = 'données' Then Ws.Delete
Next Ws
ActiveWorkbook.Save
Application.DisplayAlerts = True

End Sub

Message édité par: toubib, à: 31/08/2005 12:23