Discussion :

[gangsterus]

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.

[ouskel'n'or]

Et si tu mets

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

        Workbooks.Open Chemin & "\" & Fichier

[gangsterus]

Hello!

Eh ben tu sais quoi, CA MARCHE!

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

Encore merci.