Trouver les onglets

Résolu
cire2003 Messages postés 101 Date d'inscription samedi 8 novembre 2003 Statut Membre Dernière intervention 8 septembre 2010 - 8 mars 2007 à 19:42
cire2003 Messages postés 101 Date d'inscription samedi 8 novembre 2003 Statut Membre Dernière intervention 8 septembre 2010 - 8 mars 2007 à 22:53
Bonjour

Je suis en train de faire un code VBA pour excel qui va chercher le nom des fichiers dans un dossier précis. Dans ce dossier, il n'y a que des fichiers .xls. Mon objectif est d'aller chercher dans chaqu'un des fichiers du dossier le nom des onglets puis de les inscrire dans un fichier "maitre". Comment faire pour aller chercher le nom des onglets dans un fichier différent à celui que l'on travail dedans (j'ai le nom des fichiers à partir d'une fonction)?

Merci!

http://monstershost.com/images/pub.swf 

2 réponses

cs_MPi Messages postés 3877 Date d'inscription mardi 19 mars 2002 Statut Membre Dernière intervention 17 août 2018 23
8 mars 2007 à 22:51
Il faut que tu ouvres chaque fichier
Workbooks.open "CheminFichier.xls"

Ensuite tu dois lire chaque nom d'onglet
For each Feuille In WorkSheets
    Nom = Feuille.Name
Next

Là, tu as différentes solutions
Soit tu lis un onglet et tu vas l'inscrire dans le fichier maître,
Soit tu ajoutes tous les noms d'onglets dans un tableau (dynamique ou non, selon le cas)
Une fois toutes les feuilles lues, tu retournes dans le fichier maître et tu copies ces noms.

Personnellement, j'irais avec la 2e option, ce qui évite les va-et-vient
Même qu'avec un tableau dynamique, tu pourrais conserver tous les noms d'onglets de tous les fichiers et ne revenir dans le fichier maître qu'à la toute fin et les inscrire une seule fois.

MPi
3
cire2003 Messages postés 101 Date d'inscription samedi 8 novembre 2003 Statut Membre Dernière intervention 8 septembre 2010
8 mars 2007 à 22:53
merci beaucoup, tu me sauve la vie!
http://monstershost.com/images/pub.swf 
0
Rejoignez-nous