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
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
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)
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
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 .....
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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 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
Vous avez un bloqueur de publicités installé.
Le Club Developpez.com n'affiche que des publicités IT, discrètes et non intrusives.
Afin que nous puissions continuer à vous fournir gratuitement du contenu de qualité, merci de nous soutenir en désactivant votre bloqueur de publicités sur Developpez.com.
Partager