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 : Sélectionner tout - Visualiser dans une fenêtre à part
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.