Traiter plusieurs fichiers en série [Résolu]

Signaler
Messages postés
31
Date d'inscription
lundi 9 octobre 2006
Statut
Membre
Dernière intervention
1 février 2007
-
Messages postés
31
Date d'inscription
lundi 9 octobre 2006
Statut
Membre
Dernière intervention
1 février 2007
-
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 ?

Merci,

Lycaon

2 réponses

Messages postés
14008
Date d'inscription
samedi 29 décembre 2001
Statut
Modérateur
Dernière intervention
28 août 2015
74
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
Messages postés
31
Date d'inscription
lundi 9 octobre 2006
Statut
Membre
Dernière intervention
1 février 2007

ok merci beaucoup
je vais tester ça et si je n'y arrive pas, je reposterai un truc....

Merci encore

++