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