Automatisation macro

fredo35m Messages postés 244 Date d'inscription jeudi 14 avril 2005 Statut Membre Dernière intervention 12 juillet 2006 - 17 févr. 2006 à 16:20
cs_Jack Messages postés 14006 Date d'inscription samedi 29 décembre 2001 Statut Modérateur Dernière intervention 28 août 2015 - 17 févr. 2006 à 19:55
Bonjour,

j'ai plusieurs fichiers dans un même répertoire et je souhaite pouvoir effectué la même manipulation sur l'ensemble des fichiers de ce répertoire, afin d'avoir en résultat un fichier avec le nom du fichier traiter_trt.csv

ex : fichier1.csv
je le traite, j'obtiens un fichier = fichier1_trt.csv

Mais je souahite faire cela pour l'ensemble des fichiers d'un répertoire !!! est-ce possible de faire cela ?? et si oui comment ??!! je ne suis pas un expert !!!!! du tout du tout !!! par avance merci !!

1 réponse

cs_Jack Messages postés 14006 Date d'inscription samedi 29 décembre 2001 Statut Modérateur Dernière intervention 28 août 2015 79
17 févr. 2006 à 19:55
Salut
Il suffit de lister les noms des fichiers dans ton répertoire :
Dim Temp As String
Temp = Dir("C:\mon répertoire\Fichier*.csv")
Do While Len(Temp) <> 0
' Faire le traitement ici, sachant que le nom du fichier sélectionné (sans le répertoire) est contenu dans Temp
Temp = Dir ' Fichier suivant
DoEvents ' pour laisser souffler la machine
Loop

Vala
Jack, MVP VB
NB : Je ne répondrai pas aux messages privés

Le savoir est la seule matière qui s'accroit quand on la partage. (Socrate)
0
Rejoignez-nous