importer données de fichiers csv via macro

Bonjour

J'ai lu cette discussion.

Merci :D pour cette macro qui m'aura posé qq soucis :weird:
Mais elle fonctionne :lol:

Serait-il possible d'ajouter une fonction à cette macro ?
Récupérer le nom des fichiers en plus des données :calim2:

Merci d'avance
Sébastien

Salut, tous les éléments sont déjà sous tes yeux :

dans la procédure Private Sub ListeFichiersDossier(sChemin As String, bInclureSousDossiers As Boolean), il suffit de rajouter une ligne ShParam.Cells(NbFichiers, 1)

Code:

---

1 2 3 4 5 6 7 8

..... If Fichier <> ThisWorkbook.Name And UCase(TypeFichier) = UCase(FSO.GetExtensionName(Fichier)) Then NbFichiers = NbFichiers + 1 ReDim Preserve TabFichiers(1 To NbFichiers) TabFichiers(NbFichiers) = sPath ShParam.Cells(NbFichiers, 1) = sPath End If .....

---

Cela après avoir placer un ShParam.Columns("A:A").ClearContents à l'endroit idoine dans SelDossier

Code:

---

1 2 3 4

..... ShParam.Columns("A:A").ClearContents ListeFichiersDossier .SelectedItems(1), True .....

---

Bonjour et merci du temps que vous m'accordez

Après plusieurs essais, je crois avoir réussi :lol: Mais la macro m'affiche le nom des dossiers dans la feuille "Param".
Ce dont j'aurai besoin est un peu différent :
-Je voudrais conserver sur chaque ligne de données récupérées, le nom du fichier en entier (première colonne dans la feuille "data").

Enfin, cette macro est top mais pour être idéale à mon usage il me faudrait pouvoir :
- Copier le contenu des dossiers à la suite des précédents dans la même feuille "data" (et non les écraser pour les remplacer)
et/ou
- Pouvoir choisir les fichiers au sein des dossiers sélectionnés

Merci bcp
Sébastien

Salut, tous les éléments sont déjà sous tes yeux.

A lire