Discussion :

[imaril]

Bonjour,
je souhaiterais supprimer toute les feuille présente dans un fichier excel sauf la feuille d'acceuil (dont je connais le nom).
Mon problème vien du fait que je ne connais ni le nombre de feuille présente dans le fichier ni leur nom, existe-t-il une fonction comme dans firefox du genre fermer tout sauf cet onglet :p
sinon pouvez vous me donner des piste pour réaliser cette macro ?

Merci

[Didier Gonard]

Bonjour,

voici un code qui ne garde que la feuille 1, si c'est ta feuille d'acceuil, c'est bon, sinon tu peux adapter en ajoutant un filtre sur le nom et non sur l'index

Code :

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

1
2
3
4
5
6
7
8
9
Sub Unique()
Dim Feuilla As Worksheet
  ' Efface toutes les feuilles autres que celle ayant l'index N°1 dans le classeur actif !
Application.DisplayAlerts = False
For Each Feuilla In ActiveWorkbook.Worksheets
    If Feuilla.Index <> 1 Then Feuilla.Delete
Next Feuilla
Application.DisplayAlerts = True
End Sub

PS : rajoutes dans ton titre de post "sauf une", ce sera plus conforme et sinon, c'est impossible
cordialement,

Didier

[imaril]

ca marche nikel merci beaucoup