cire2003
Messages postés101Date d'inscriptionsamedi 8 novembre 2003StatutMembreDernière intervention 8 septembre 2010
-
8 mars 2007 à 19:42
cire2003
Messages postés101Date d'inscriptionsamedi 8 novembre 2003StatutMembreDerniè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)?
cs_MPi
Messages postés3877Date d'inscriptionmardi 19 mars 2002StatutMembreDernière intervention17 août 201823 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.