Ouverture fichiers .csv

Bonjour,

J'ai déjà fait quelques recherches pour faire une macro qui va permettre d'ouvrir chaque fichier .csv d'un répertoire et copier les données de ces fichiers.

Code:

---

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

Sub Copiedonnees()   Dim Fichier As String, Chemin As String   Chemin="E:\Dossier" Fichier=Dir(Chemin & "\*.csv")   Do   Workbooks.Open Fichier   Fichier = Dir   Loop Until Fichier = ""   End Sub

---

J'ai commencé en fonction de ce que je trouvais sur ce forum, mais quand je lance la macro pour au moins ouvrir chaque fichier, ça me donne ça:

Erreur d'exécution '1004'

Le nom du fichier est correct et j'ai vérifié l'emplacement...
La version utilisée doit être Excel 2003.

Ce code semble simple mais j'ai certainement fait une boulette quelque part.

Merci d'avance et bonne journée.

Et si tu mets

Code:

---

Workbooks.Open Chemin & "\" & Fichier

---

Hello!

Eh ben tu sais quoi, CA MARCHE!

Merci, t'es un chef comme d'habitude. :yaisse2:
Je me doutais que c'était une petite boulette.
Reste plus qu'à faire la suite.

Encore merci.