Parcourir un dossier et enregistrer les noms des fichiers

[micom59]

Bonjour,

j'aimerais savoir s'il est possible en vba de parcourir automatiquement un dossier comprenant plusieurs fichiers excel et d'enregistrer les noms de ces fichiers dans une feuille excel lors de son ouverture?

Merci d'avancxe pour votre réponse.

Mickaël.

 

[mromain]

Re : Parcourir un dossier et enregistrer les noms des fichiers

bonjour micom,

voici un code à adapter:

Sub test()

Dim fileName As String, folderPath As String, lineNum As Integer

folderPath = "C:\test\"

lineNum = 1
fileName = Dir(folderPath & "*.xls")
While fileName <> vbNullString
    ActiveSheet.Range("A" & lineNum).Value = folderPath & fileName
    lineNum = lineNum + 1
    fileName = Dir()
Wend

End Sub

a+

 

[micom59]

Re : Parcourir un dossier et enregistrer les noms des fichiers

merci, ca marche parfaitement, il ne me reste qu'un petit soucis,

comment faire pour que l'extension du fichier n'apparaisse pas?

j'ai modifié en

Sub test()

Dim fileName As String, folderPath As String, lineNum As Integer

folderPath = "Z:\INDDAY\"

lineNum = 1
fileName = Dir(folderPath)
While fileName <> vbNullString
ActiveSheet.Range("f" & lineNum + 1).Value = fileName
lineNum = lineNum + 1
fileName = Dir()
Wend

End Sub

 

[mromain]

Re : Parcourir un dossier et enregistrer les noms des fichiers

re,

remplacer
ActiveSheet.Range("f" & lineNum + 1).Value = fileName
par
ActiveSheet.Range("f" & lineNum + 1).Value = Left(fileName, Len(fileName) - 4)

a+