supprimer les feuilles par défaut sous excel

Question

Bonjour à tous,


Je suis actuellement en train de créer un script qui manipule des
fichiers excel. Mon problème, c'est que j'aimerais bien supprimer les
feuilles par défaut du fichier excel (je crée mes propres feuilles).
Vous me direz "rien de plus facile", mais mon souci est que mon script
doit être capable de tourner sur des Excel avec des paramètres
régionaux français, mais aussi anglais et roumains, voire indiens...


Pour ma configuration française, j'ai les lignes suivantes :


xlApp.Worksheets("Feuil1").delete

xlApp.Worksheets("Feuil2").delete

xlApp.Worksheets("Feuil3").delete


Pour les paramètres anglais, ça donne :



xlApp.Worksheets("Sheet1").delete


xlApp.Worksheets("Sheet2").delete


xlApp.Worksheets("Sheet3").delete


Pour l'indien et le roumain, aucune idée...


Comme je ne serai pas avec mes collègues roumains et indiens au moment
où ils vont faire tourner le script, je ne pourrai pas leur expliquer
qu'il faut changer le nom par défaut de ces feuilles dans le script.
Donc ma question est : y a-t-il une façon "universelle" de supprimer
ces feuilles par défaut ? Ou à défaut, est-il possible de créer un
fichier excel vide, sans aucune feuille, puis de les rajouter par la suite ?


Merci d'avance de vos réponses.

jrivet · Answer

Salut,

Pourquoi ne pas atteindre les feuilles par leur indice plutot que par le nom?

@+, Julien
Pensez: Moteur de Recherche, Réponse Acceptée
Mais Surtout: Règlement/FONT>

Mikaels35 · Answer

Salut

Tu peux déja limiter à 1 feuille le classeur que tu ouvres en réglant le paramètre dans EXCEL "options/général" !

Je ne pense pas que tu puisses supprimer toutes les feuilles à la création du classeur, mais je me trompe peut-être !


@+

johann91 · Answer

Merci pour vos réponses. La sélection par indices me paraît plutôt bien. J'ai essayé, mais ça me génère une erreur...


Avant de supprimer quoi que ce soit, j'ai 2 feuilles que j'ai créées et
remplies, + ces 3 feuilles par défaut de gauche à droite dans les
onglets. J'en ai déduit (peut-être à tort) que la feuille la plus à
gauche doit avoir l'indice 1 et la plus à droite l'indice 5. J'ai donc
supprimé les feuilles d'indices 3, 4 et 5. Mais a priori, ce n'est pas
bon...

jrivet · Answer

Sinon,

si tu connais le nom des feuilles que tu ajoutes, alors lorsque tu veux supprimer essaie la chose suivante.
(Attention je n'est rien teste)

Dim Ws as Worksheet

For Each Ws In xlApp.Worksheets
   If Ws.Name <> NomDeTesFeuilleCrees Then Call Ws.Delete
NExt 

@+, Julien
Pensez: Moteur de Recherche, Réponse Acceptée
Mais Surtout: Règlement/FONT>

johann91 · Answer

Merci Jrivet, en effet, le nom des feuilles que je crée est fixe dans
tous les cas.  J'accepterai ta réponse quand j'aurai testé. Je ne
maîtrise pas trop les For Each, mais la démarche me semble bonne. Après, faut voir si ça marche en VBScript après quelques légères modifs...

mortalino · Answer

Salut,

En gros le code de Julien veut dire ça :

Pour toutes les feuilles dans les feuilles d'excel (que t'as référencé)
  Si le nom de la feuille est différente des nom de feuilles crées (les noms sont à placer dans une variables ou entre "") ben alors elle est supprimée.
Feuille suivante (etc jusqu'à ce qu'il n'y en ait plus)

@++

  --Mortalino-- 
Le Mystérieux Chevalier "Provençal, le Gaulois"
N'oubliez pas de lire le règlement !

mortalino · Answer

Et pour les feuilles en Indiens, ca donne ça :

xlApp.Worksheets("Chien Enragé").delete
xlApp.Worksheets("Ugh!").delete
xlApp.Worksheets("Danse de la Pluie").delete

@++

  --Mortalino-- 
Le Mystérieux Chevalier "Provençal, le Gaulois"
N'oubliez pas de lire le règlement !

Supprimer les feuilles par défaut sous excel

7 réponses

Votre réponse

Discussions similaires