VBA- ouvrir tous les fichiers csv d'un dossier

bonjour,

je souhaiterais creer une macro affectée à un bouton "traitement" permettant:
- d'ouvrir un dossier precis (chercher dans un dossier precis)
- ouvrir tous les N°.csv de ce dossier
(exple: ouvrir N°1.csv + traitement fichier N°1 + enregistrer le fichier en N°1_traité.xlsx dans un nouveaux dossier"fichiers traités")
recommencer l'operation jusqu'au dernier N+1.csv

merci de votre aide

Fabrice

bonsoir
Fait une recherche sur:

1 la fonction "Dir" pour boucler sur les items d'un dossier
2 workbooks.open (chemin complet du fichierdufichier) local:= true
;)

Salut, pour lister tu peux déjà utiliser ceci : Liste des fichiers d'un dossier + Liens

Citation:

---

Envoyé par patricktoulon

bonsoir
Fait une recherche sur:

1 la fonction "Dir" pour boucler sur les items d'un dossier
2 workbooks.open (chemin complet du fichierdufichier) local:= true
;)

---

merci

j'ai testé avec ces DIR et workbooks.open et fait une boucle, mais j'ai toujours le dernier fichier qui s'ouvre!!!

voici le code:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

Private Sub Workbook_Open() Dim chemin As String Dim extension As String   chemin = "\\intra\profils\D003\r812374\D\Desktop\tests macro\"   Do Until extension = "csv"   Workbooks.Open (chemin & "*.csv"), local:=True ' ouvre fichier csv Dir (chemin) ' cherche dans le repertoire   MsgBox ("fichier ouvert: " & Dir), vbOKOnly   Workbooks.Open (chemin & "*.csv"), local:=True ' ouvre fichier csv extension = Dir(chemin & "*.csv")   Loop   End Sub

---

avez vous une idée?

purrée un peu d'effort
tape F1 dans vbe et dir dans le moteur de recherche de l'aide
tu obtiens
Pièce jointe 189757
c'est pourtant pas compliqué