Macro excel récup nom fichier d'un dossier

Question

Bonjour,

J'essaie de créer une macro qui récupère le nom de tous les fichiers excel présents dans un dossier. Je souhaite les récupérer dans des cellules d'une feuille excel.
Je n'arrive pas à définir le chemin d'accés du dossier. Pouvez-vous m'aider SVP

Voila ce que j'ai fait :

Sub Récup_nom_fichier()

Dim Dossier As Object
Dim Fichier As Object
Dim Ligne As Long

Dossier = ("C:\Dossier TDB")
Ligne = Sheets("Feuil1").Cells(1, 1)
Ligne1 = Ligne + 1

Fichier = ("C:\Dossier TDB\*.xls")

For Each Fichier In Dossier.Files
    Sheets("Feuil1").Cells(Ligne1, 1) = Fichier.Name

Next Fichier

End Sub

Gord21 · Answer

Bonsoir,
Tu peux utiliser par exemple :

Sub lister()
Dim i
Dim nom As String

i = 0
nom = Dir("C:\Dossier TDB\*.xls")

While nom <> ""
   Range("A1").Offset(i, 0).Value = nom
   nom = Dir
   i = i + 1
Wend

End Sub

Macro excel récup nom fichier d'un dossier

1 réponse

Votre réponse

Discussions similaires

Newsletters