Supprimer des feuils Excel

Bonjour,
J'aimerai supprimer des feuilles Excel et pour ce faire je fait ça :

Code:

---

1 2 3 4 5 6 7

If Classeur.Worksheets.Count > 1 Then For j As Integer = 2 To Classeur.Worksheets.Count Feuille = Classeur.Sheets(j) Feuille.Delete() Next Classeur.Save() End If

---

Mais cela ne marche pas
FikoU

Déjà, je peux améliorer ton code en te disant que ton premier If ne sert à rien car si Count < 2 alors aucune boucle ne sera effectuée.

Maintenant si tu veux qu'on t'aide, il faut nous en dire un peu plus. Qu'est ce qui ne marche pas ? Ca ne fait pas ce que tu veux ou il y a une erreur ?

Salut leSeb,
Merci pour ton aide.

En fait je veut garder la feuil1 Nommée "MATRICE" et supprimer toutes les autres feuilles.
Si count = 2 supprimer la feuille 2. Si count = 10 supprimer les 9 dernières feuilles.
En fait ce code ne me fait aucune erreur il ne supprime tout simplement pas les feuilles.

FikoU:oops:

Citation:

---

En fait je veut garder la feuil1 Nommée "MATRICE" et supprimer toutes les autres feuilles.

---

Je confirme donc ce que je te disais, dans ce cas, le IF ne sert à rien.

Essaye un truc du style :

Code:

---

1 2 3 4 5

For j As Integer = 2 To classeur.Worksheets.Count xlApp.DisplayAlerts = False ' Supprime les messages de confirmation d'action. classeur.Sheets(j).Delete Next Classeur.Save()

---

xlApp est l'instance de l'application Excel contenant le classeur.

Bon courage

Bonjour,

Voila comment j'ai résolu mon prob :

Code:

---

1 2 3 4 5 6

If Classeur.Worksheets.Count > 1 Then Dim J As Integer = Classeur.Worksheets.Count For I = 1 To J - 1 Classeur.Sheets(2).DELETE() Next End If

---

ce bout de code me supprime toutes les feuils sauf la feuil 1

FikoU :yaisse2:

Pour faire plus simple tu peux faire.

Code:

---

1 2 3

Do While Classeur.Worksheets.Count > 1 Classeur.Sheets(2).Delete() Loop

---

Ce code supprime également toutes les feuilles SAUF LA 1.

OK MERCI :king:

FikoU