Afficher liste de fichiers

[Phiph]

Salut,
je débute vraiment sue Excel soyez indulgents, je ne sais pas si ce que je veux faire sera faisable en VBA ou autrement.
je cherche à afficher la liste des fichiers présents dans un répertoire donné et ainsi affecter la chaine de caractères correspondant au nom du fichier dans une cellule.
Merci de me répondre
Phiph

 

[jp14]

Bojour

Voici une macro qui liste les fichiers dans le répertoire actif

Sub listefichiers()
Dim ligne As Integer' première ligne à écrire
Dim monfichier As String
ligne = 1
monfichier = Dir('*.xls')
Do Until monfichier = ''
Sheets('Feuil1').Cells(ligne, 1) = monfichier
ligne = ligne + 1
monfichier = Dir
Loop
End Sub

Bon courage

JP