Discussion :

[seb31085]

Bonjour

J'ai lu cette discussion.

Merci pour cette macro qui m'aura posé qq soucis
Mais elle fonctionne

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

Merci d'avance
Sébastien

[kiki29]

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 :

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

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 :

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

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

[seb31085]

Bonjour et merci du temps que vous m'accordez

Après plusieurs essais, je crois avoir réussi 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

[kiki29]

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

A lire