Bonjour,

Je souhaite supprimer dans un fichier Excel tous les onglets sauf un. Pour cela, j'ai essayé le code suivant:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
        For i = 1 To (Sheets.Count - 1)
            Sheets(i).Delete
        Next i
Le problème: j'obtiens l'erreur d'exécution 9: "L'indice n'appartient pas à la sélection". Cette erreur n'apparaît au bout de quelques suppressions.

De plus, pour chaque suppression, une boîte de dialogue s'affiche et demande à l'utilisateur de confirmer la suppression. Pour la suppresion de 20 onglets, il faut donc cliquer 19 fois...

Est-ce que quelqu'un a une idée pour corriger ce problème ? Ou alors, y-a t-il un autre moyen de le faire ?

Merci