CHRISTOPHEAGPM
XLDnaute Nouveau
Bonsoir à tous, je viens vers vous et vous mets à nouveau à contribution pour m'aider à résoudre un problème qui me pose quelques difficultés.
J'ai un dossier nommé "origine" contenant un certain nombre de fichiers (ce nombre peut varier), dans chacun de ces fichiers une macro nommée import me permet de les mettre à jour.
Mon objectif est de creer un nouveau classeur "routine.xls" contenant une macro qui aura pour objectif d'ouvrir les uns apres les autres chacun des classeurs contenus dans "origine" et de lancer à chaque fois la macro "import" de ceux-ci.
c'est à dire la macro ouvre le premier fichier, lance la macro import de celui-ci, et une fois le traitement terminé enregistre les changements et passe au classeur suivant.
Voici ou j'en suis actuellement grace au différentes participation trouvées sur le forum :
La macro bloque sur : Application.Run monclass.import
Merci beaucoup pour votre aide et je suis a votre disposition si mes explications ne sont pas claires...
Christophe
J'ai un dossier nommé "origine" contenant un certain nombre de fichiers (ce nombre peut varier), dans chacun de ces fichiers une macro nommée import me permet de les mettre à jour.
Mon objectif est de creer un nouveau classeur "routine.xls" contenant une macro qui aura pour objectif d'ouvrir les uns apres les autres chacun des classeurs contenus dans "origine" et de lancer à chaque fois la macro "import" de ceux-ci.
c'est à dire la macro ouvre le premier fichier, lance la macro import de celui-ci, et une fois le traitement terminé enregistre les changements et passe au classeur suivant.
Voici ou j'en suis actuellement grace au différentes participation trouvées sur le forum :
Code:
Sub LancerMacroClasseur2()
Dim MonChemin$
Dim Monclass
MonChemin = "C:\Documents and Settings\moi\Bureau\suivi prod\origine\" 'Définit CheminFic = le dossier où se trouvent les fichiers clients
MesFic = Dir(MonChemin) 'Définit le dossier sur lequel on va boucler
While MesFic <> "" 'Démarrage de la boucle. Tant qu'on récupere un nom de fichier.
Workbooks.Open MonChemin & MesFic
Monclass = MesFic
Application.Run monclass.import
MesFic = Dir 'On passe au suivant
Wend 'On boucle
Calculate
ActiveWorkbook.Save
ActiveWorkbook.Close
End Sub
La macro bloque sur : Application.Run monclass.import
Merci beaucoup pour votre aide et je suis a votre disposition si mes explications ne sont pas claires...
Christophe