Je dois réaliser une base de données à partir de differents fichier Excel (tous les fichier sont de la même forme).
Tous ces fichiers se trouvent dans des sous repertoires qui se trouvent dans un seul gros repertoire. (Repertoire_principalSous_repertoireFichier.xls)
J'ai donc besoin d'une macro qui va ouvrir le "Repertoire_principa"l , ouvrir chaque "Sous_repertoire" en automatique et ouvrir le "Fichier.xls "se trouvant dans le repertoire, recupèrer certaines données dans le fichier ( j'ai déja une macro qui permet de récupèrer ces données) les stocker dans un fichier Excel "Synthèse" et ainsi de suite..avec tous les fichiers Excel.
Je ne sais pas si j'ai été très clair, alors si vous avez besoin de plus de précisions n'hesitez pas.
Merci d'avance pour l'attention que vous accorderez à mon petit problème!
J'ai omis de mentionner que la procédure suivante ne pourra pas s'exécuter si tu n'ajoutes pas la référence suivante à partir du menu / insertion / références : tu coches celle-ci : "Microsoft Scripting Runtime"
Tu peux t'en passer si tu modifies le type ces variables comme ceci au début de la procédure : Dim Fs As Object, F As Object, Sf As Object au lieu de : Dim Fs As Scripting.FileSystemObject, F As Folder, Sf As Object
J'ai omis de mentionner que la procédure suivante ne pourra pas
s'exécuter si tu n'ajoutes pas la référence suivante à partir du
menu / insertion / références :
tu coches celle-ci : "Microsoft Scripting Runtime"
Tu peux t'en passer si tu modifies le type ces variables comme ceci
au début de la procédure :
Dim Fs As Object, F As Object, Sf As Object
au lieu de :
Dim Fs As Scripting.FileSystemObject, F As Folder, Sf As Object
J'ai omis de mentionner que la procédure suivante ne pourra pas s'exécuter si tu n'ajoutes pas la référence suivante à partir du menu / insertion / références : tu coches celle-ci : "Microsoft Scripting Runtime"
Tu peux t'en passer si tu modifies le type ces variables comme ceci au début de la procédure : Dim Fs As Object, F As Object, Sf As Object au lieu de : Dim Fs As Scripting.FileSystemObject, F As Folder, Sf As Object
modjow
Le mardi 28 Janvier 2014 à 11:58 par Modjow :
Bonjour,
Voici mon problème :
Je dois réaliser une base de données à partir de differents fichier Excel (tous les fichier sont de la même forme).
Tous ces fichiers se trouvent dans des sous repertoires qui se trouvent dans un seul gros repertoire. (Repertoire_principalSous_repertoireFichier.xls)
J'ai donc besoin d'une macro qui va ouvrir le "Repertoire_principa"l , ouvrir chaque "Sous_repertoire" en automatique et ouvrir le "Fichier.xls "se trouvant dans le repertoire, recupèrer certaines données dans le fichier ( j'ai déja une macro qui permet de récupèrer ces données) les stocker dans un fichier Excel "Synthèse" et ainsi de suite..avec tous les fichiers Excel.
Je ne sais pas si j'ai été très clair, alors si vous avez besoin de plus de précisions n'hesitez pas.
Merci d'avance pour l'attention que vous accorderez à mon petit problème!
J'ai essayé le code en tenant compte des toutes les modifications. Je lance la Macro via un bouton, la macro se lance pendant 20s puis plus rien. Pareil en mode pas a pas.
J'ai copié ton code dans le Module1, je ne sais pas si j'ai bien fait. Peut être je peux te donner d'autres informations?
Le mardi 28 Janvier 2014 à 11:58 par Modjow :
Bonjour,
Voici mon problème :
Je dois réaliser une base de données à partir de
differents fichier Excel (tous les fichier sont de la même forme).
Tous ces fichiers se trouvent dans des sous repertoires qui se trouvent dans un
seul gros repertoire. (Repertoire_principalSous_repertoireFichier.xls)
J'ai donc besoin d'une macro qui va ouvrir le "Repertoire_principa"l
, ouvrir chaque "Sous_repertoire" en automatique et ouvrir le
"Fichier.xls "se trouvant dans le repertoire, recupèrer
certaines données dans le fichier ( j'ai déja une macro qui
permet de récupèrer ces données) les stocker dans un
fichier Excel "Synthèse" et ainsi de suite..avec tous les
fichiers Excel.
Je ne sais pas si j'ai été très clair, alors si vous avez
besoin de plus de précisions n'hesitez pas.
Merci d'avance pour l'attention que vous accorderez à mon petit
problème!
J'ai essayé le code en tenant compte des toutes les modifications.
Je lance la Macro via un bouton, la macro se lance pendant 20s puis plus rien. Pareil en mode pas a pas.
J'ai copié ton code dans le Module1, je ne sais pas si j'ai bien fait. Peut être je peux te donner d'autres informations?
Je dois réaliser une base de données à partir de differents fichier Excel (tous les fichier sont de la même forme).
Tous ces fichiers se trouvent dans des sous repertoires qui se trouvent dans un seul gros repertoire. (Repertoire_principalSous_repertoireFichier.xls)
J'ai donc besoin d'une macro qui va ouvrir le "Repertoire_principa"l , ouvrir chaque "Sous_repertoire" en automatique et ouvrir le "Fichier.xls "se trouvant dans le repertoire, recupèrer certaines données dans le fichier ( j'ai déja une macro qui permet de récupèrer ces données) les stocker dans un fichier Excel "Synthèse" et ainsi de suite..avec tous les fichiers Excel.
Je ne sais pas si j'ai été très clair, alors si vous avez besoin de plus de précisions n'hesitez pas.
Merci d'avance pour l'attention que vous accorderez à mon petit problème!
J'ai essayé le code en tenant compte des toutes les modifications. Je lance la Macro via un bouton, la macro se lance pendant 20s puis plus rien. Pareil en mode pas a pas.
J'ai copié ton code dans le Module1, je ne sais pas si j'ai bien fait. Peut être je peux te donner d'autres informations?
MichD
Voici un fichier : http://cjoint.com/?DBfpPXvtmg7
Explications à l'intérieur. Tu n'as qu'à cliquer sur le bouton.
Voici un fichier : http://cjoint.com/?DBfpPXvtmg7
Explications à l'intérieur. Tu n'as qu'à cliquer sur le bouton.
