Récupérer les chemins complets d'une liste de sous-dossiers et fichiers d'un dossier, dans un doc xls

Chères et chers amies et amis :aie:

C'est très simple (dire ça avec un énorme seveu sur la langue) :

- j'ai une sheet excel avec, en colonne "A", une belle liste de noms de sous-dossiers et de fichiers (extraits grâce au génialissime repprinter),
-> je rêve de retrouver, en colonne "B", sur leurs lignes correspondantes évidemment, leurs chemins complets respectifs... (Via une petite macro par exemple)

Celui ou celle qui me trouvera ça m'épargnera une MEGA prise de tête évidemment, et j'érigerai sa statue - s'il neige, ou même en glace comme dans "un jour sans fin" - dans mon jardin... :mrgreen:

1000 Merci au génie éventuel, bon week-end à toutes et tous !

Marc

'lut

As-tu un fichier exemple. Il faut un point de départ car dans ton cas tes données de initiales peuvent être de plusieurs formats.

PS; si tu trouves solutions grâce à nous on veut les photos de la statue.

Citation:

---

Envoyé par Alex020181

'lut

As-tu un fichier exemple. Il faut un point de départ car dans ton cas tes données de initiales peuvent être de plusieurs formats.

PS; si tu trouves solutions grâce à nous on veut les photos de la statue.

---

C'est à dire que j'assigne le dossier dont le contenu est visé à repprinter et il fait l'extraction : c'est un fichier txt "tout con" que je plaque dans une feuille Excel (joint ici). Le dossier en question ne contient que des sous-dossiers et des fichiers pdf et word, uniquement.
Je cherche à récup les liens pour les assigner justement aux noms respectifs de la liste dans excel, pour pouvoir les ouvrir évidemment à partir de ladite liste...

Voir le fichier joint

J'ai bien conscience que c'est une demande à la con... :aie:

PS : ha bah c'est sûr que ce sera documenté, je n'érige pas des statues tous les jours !....:aie:

Un truc comme ça ? (voir PJ).

La colonne B est purement informative. Tu peux supprimer sa création en mettant en commentaire ou en supprimant la ligne

Code:

---

1 2	Sheets("resultat_scan").Range("B" & ligne_ecrire) = objet_fichier.ParentFolder & "\"

---

Il suffit de cliquer sur le bouton puis de sélectionner le répertoire à scanner. Tu n'as même plus besoin de passer par d'étapes intermédiaires avec le fichier texte.

Si ça te va j'insère des commentaires. C'est que je tiens à ma statut.

OH p...., trop bien !!!!
Je commande la tronçonneuse à glace !

Ha rien que pour ça le Net méritait d'être inventé... MERCI, vraiment c'est top !
C'est frustrant de ne pas pouvoir apporter l'aide qu'on vous apporte en retour... Un jour peut-être !
BON WE !

Marc.