Listé dans une cellule les noms de fichier dans un dossier

[Meloman]

Bonjour à tous avant tous félicitation pour ce forum il m'a permis de partit de zero et de bien evoluer mais aujourdhuis j'ai décider de creer un compte car je me lance dans un projet ambitieux grace a des information tité par ci et par là je compte creer un programme de gestion musical je sais pas si se seras possible mais pour l'instant que le fais par étape.

Donc mon premier probleme es lier à la liste des musiques

je recherche une solution pour rapatrier les noms des titres musicaux présent dans mon dossier musical
vue que je peut pas mettre pour des raison legal des musiques sur le forum je vais décrire ce que je souhaiterais

mon dossier musicale se trouvent dans C:/Musique/
les nom dans ce dossier sont Artiste1 Artiste artiste ect

je souhaiterais grace à une macro relever automatiquement le nom de ses fichier et les copier en collone A

comment puis je proceder svp merci

 

[phlaurent55]

Re : Listé dans une cellule les noms de fichier dans un dossier

Bonjour Meloman, et bienvenue sur le forum,

en descendant un peu plus bas dans cette page tu trouveras la rubrique "Discussions similaires"

une réponse d’Éric Renaud ci-dessous
https://www.excel-downloads.com/threads/recup-tout-les-noms-dun-dossier-dans-une-feuille.84707/

à+
Philippe

 

[JNP]

Re : Listé dans une cellule les noms de fichier dans un dossier

Bonjour Meloman et bienvenue, salut Philippe ,
Comme il n'est pas dans les discussions similaires, je te propose ce lien qui va bien plus loin que ta première demande, mais comme ça finira par être ce que tu demanderas ...
Bonne suite

 

[Meloman]

Re : Listé dans une cellule les noms de fichier dans un dossier

Bonjour JNP

merci pour tes informations j'ai modifier un peu car j'avais des entêtes

Sub ExplorerRépertoire()
   unRép = Dir("L:\Musique\Style\SVG-2\Project\Musique\Sons\*.Mp3*", vbDirectory)    '// Extrait la première entrée
   Do While unRép <> ""    ' Commence la boucle.
      I = [Feuil1].Range("A" & Cells.Rows.Count).End(xlUp).Row + 1
      Cells(I, 1) = unRép
      unRép = Dir
   Loop
End Sub

merci encore pour ton aide

 

[Meloman]

Re : Listé dans une cellule les noms de fichier dans un dossier

Re JNP sur le meme sujet si je veut également copier le Path du fichier en collone B saurais tu comment faire svp merci

 

[JNP]

Re : Listé dans une cellule les noms de fichier dans un dossier

Re ,
Essaie

      Cells(i, 2) = "L:\Musique\Style\SVG-2\Project\Musique\Sons\" & unRép

A +

 

[Meloman]

Re : Listé dans une cellule les noms de fichier dans un dossier

Merci JNP de ton aide sa fonctionne à trés bientot et au fais bonne année