Récupérer et traiter tout les fichiers l'un après l'autre d'un répertoire donné [Résolu]

Signaler
Messages postés
20
Date d'inscription
mardi 2 août 2005
Statut
Membre
Dernière intervention
20 mai 2006
-
Messages postés
20
Date d'inscription
mardi 2 août 2005
Statut
Membre
Dernière intervention
20 mai 2006
-
Bonjour

J'aimerai savoir si l'on pouvait récupérer tout les fichiers d'un répertoire (*.csv) et les traiters les uns après les autres de la même facon

quelqu'un aurait une solution à m'apporter ?

merci d'avance

2 réponses

Messages postés
7393
Date d'inscription
mercredi 23 avril 2003
Statut
Membre
Dernière intervention
6 avril 2012
50
Salut,

Essaie de voir si ce qui suit peut t'aider.

Pas tester: mais normalement ca liste les fichier csv contenu dans MonRepertoire et ca appelle la fonction FonctionCSV (ici ne fais qu afficher le nom du fichier)

Private Sub Form_Load()
Dim MonRepertoire As String
Dim MonFichierCSV As String
MonRepertoire = "C:\DIRCSV"
MonFichierCSV = Dir(MonRepertoire & "*.csv") ' Extrait la première entrée.
Do While MonFichierCSV <> "" ' Commence la boucle.

' contenant le dossier courant.
If MonFichierCSV <> "." And MonFichierCSV <> ".." Then
Call FonctionCSV(MonFichierCSV)

End If
MonFichierCSV = Dir ' Extrait l'entrée suivante.
Loop


End Sub


Private Sub FonctionCSV(NomFichierCSV As String)
MsgBox NomFichierCSV
End Sub

Voili
@+, Julien
Pensez: Moteur de Recherche, Réponse Acceptée
3
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 123 internautes nous ont dit merci ce mois-ci

Messages postés
20
Date d'inscription
mardi 2 août 2005
Statut
Membre
Dernière intervention
20 mai 2006

apres quelque petite modif ca marche merci