Discussion :

[fikou]

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

Code :

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

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

[leSeb]

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 ?

[fikou]

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

[leSeb]

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 :

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

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

[fikou]

Bonjour,

Voila comment j'ai résolu mon prob :

Code :

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

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

[leSeb]

Pour faire plus simple tu peux faire.

Code :

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

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

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

[fikou]

OK MERCI

FikoU