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

Résolu
diablot2 Messages postés 20 Date d'inscription mardi 2 août 2005 Statut Membre Dernière intervention 20 mai 2006 - 24 févr. 2006 à 11:32
diablot2 Messages postés 20 Date d'inscription mardi 2 août 2005 Statut Membre Dernière intervention 20 mai 2006 - 24 févr. 2006 à 12:15
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

jrivet Messages postés 7392 Date d'inscription mercredi 23 avril 2003 Statut Membre Dernière intervention 6 avril 2012 60
24 févr. 2006 à 11:54
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
diablot2 Messages postés 20 Date d'inscription mardi 2 août 2005 Statut Membre Dernière intervention 20 mai 2006
24 févr. 2006 à 12:15
apres quelque petite modif ca marche merci
0
Rejoignez-nous