La Vouivre
XLDnaute Occasionnel
Bonsoir les Amis
je viens vous demander de l'aide ,car après une grande recherche sur le forum et d'autres sites,je n'arrive pas à trouver une solution à mon problème, voir fichier joint.
J'ai compilé plusieurs codes pour faire une macro ,qui fonctionne dans le module 1 du fichier nouvelle feuille.
cette macro copier la feuille 1 du fichier mère (j'ai 120 fichiers) dans un fichier "nouvelle feuille" après la feuille 1 et ensuite en faire une synthèse en feuille 1 ,ensuite je referme les fichiers et supprimes les feuilles copier sur le fichier "nouvelle feuille", et conserve que la feuille synthèse
le problème:
Ouvrir plusieurs fichiers en même temps qui sont tous dans un même dossier
J'ai un dossier " copie fichier" qui se trouve dans l'arborescence suivante
("O:\EXCEL\SYNTHESE DE FEUILLE\copie fichier\ ")
j'ai trouvé le code pour ouvrir un fichier
Workbooks.Open ThisWorkbook.path & "\fichier mere1.xlsx"
si je veux ouvrir plusieurs fichiers je dois recopier la ligne en changeant le nom du fichier mère à chaque fois,
mais j'ai environ 120 fichiers ,et je ne comprends pas comment faire une boucle pour ouvrir tous les fichiers d'un dossier en même temps.
De plus, ce dossier va migrer sur plusieurs postes,donc pas forcément le même chemin .
Pouvez-vous m'indiquer une solution pour faire une boucle pour ouvrir tous les fichiers dans un dossier ?
et une pour les refermer en fin de macro
Ce dossier sera toujours "copie fichier"
J'ai mis dans un module 2 du fichier "nouvelle feuille" les recherches que j'ai trouvées, si cela intéresse quelqu'un .
Par avance merci pour votre dévouement
Bonne soirée à tous
je viens vous demander de l'aide ,car après une grande recherche sur le forum et d'autres sites,je n'arrive pas à trouver une solution à mon problème, voir fichier joint.
J'ai compilé plusieurs codes pour faire une macro ,qui fonctionne dans le module 1 du fichier nouvelle feuille.
cette macro copier la feuille 1 du fichier mère (j'ai 120 fichiers) dans un fichier "nouvelle feuille" après la feuille 1 et ensuite en faire une synthèse en feuille 1 ,ensuite je referme les fichiers et supprimes les feuilles copier sur le fichier "nouvelle feuille", et conserve que la feuille synthèse
le problème:
Ouvrir plusieurs fichiers en même temps qui sont tous dans un même dossier
J'ai un dossier " copie fichier" qui se trouve dans l'arborescence suivante
("O:\EXCEL\SYNTHESE DE FEUILLE\copie fichier\ ")
j'ai trouvé le code pour ouvrir un fichier
Workbooks.Open ThisWorkbook.path & "\fichier mere1.xlsx"
si je veux ouvrir plusieurs fichiers je dois recopier la ligne en changeant le nom du fichier mère à chaque fois,
mais j'ai environ 120 fichiers ,et je ne comprends pas comment faire une boucle pour ouvrir tous les fichiers d'un dossier en même temps.
De plus, ce dossier va migrer sur plusieurs postes,donc pas forcément le même chemin .
Pouvez-vous m'indiquer une solution pour faire une boucle pour ouvrir tous les fichiers dans un dossier ?
et une pour les refermer en fin de macro
Ce dossier sera toujours "copie fichier"
J'ai mis dans un module 2 du fichier "nouvelle feuille" les recherches que j'ai trouvées, si cela intéresse quelqu'un .
Par avance merci pour votre dévouement
Bonne soirée à tous