lycaon_58
Messages postés31Date d'inscriptionlundi 9 octobre 2006StatutMembreDernière intervention 1 février 2007
-
11 oct. 2006 à 18:10
lycaon_58
Messages postés31Date d'inscriptionlundi 9 octobre 2006StatutMembreDernière intervention 1 février 2007
-
11 oct. 2006 à 23:13
Bonjour,
Je dois appliquer une macro à de nombreux (+100) fichiers rangés dans le même dossier.
Est il possible que le "défilement" de fichier se fasse automatiquement et si oui, comment ?
cs_Jack
Messages postés14006Date d'inscriptionsamedi 29 décembre 2001StatutModérateurDernière intervention28 août 201579 11 oct. 2006 à 18:38
Salut
Oui, bien sûr, c'est même l'intérêt de l'informatique (automatiser des tâches), lol
En fait, il faut :
- Rendre paramétrable ta macro afin qu'elle utilise le nom du fichier X (pas de nom de fichier en dur)
- Lister les fichiers d'un répertoire : Facile avec un Do-Loop et un commande Dir
Dim Temp As String
Temp = Dir("C:\Mon répertoire\*.XLS")
Do While Len(Temp) <> 0
Call maMacro(Temp)
Temp = Dir
Loop
- Lancer ta macro en lui fournissant le nom du fichier pointé dans la boucle
- Faudra penser à stocker ta Macro dans le classeur de macros personnelles (PERSO.XLS sous Escel 97)
Vala
Jack, MVP VB
NB : Je ne répondrai pas aux messages privés
Champion du monde de boule de cristal - 2005 Le savoir est la seule matière qui s'accroit quand on