Parcourir un dossier et enregistrer les noms des fichiers

micom59 · 20 Avril 2009

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 · 20 Avril 2009

Re : Parcourir un dossier et enregistrer les noms des fichiers

bonjour micom,

voici un code à adapter:

Code:

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 · 20 Avril 2009

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 · 20 Avril 2009

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+

Parcourir un dossier et enregistrer les noms des fichiers

micom59

Guest

mromain

XLDnaute Barbatruc

micom59

Guest

mromain

XLDnaute Barbatruc

Discussions similaires

Parcourir un dossier et enregistrer les noms des fichiers

micom59

Guest

mromain

XLDnaute Barbatruc

micom59

Guest

mromain

XLDnaute Barbatruc

Discussions similaires

Privacy & Transparency

Privacy & Transparency