Lister des fichiers .xls dans une listbox

Bonjour à tous,

Malgré toutes mes recherches et de nombreux essais infructueux je me tourne vers vous.

A l'ouverture de mon classeur, un Userform apparaît avec une Listbox. J'aimerais que la liste des fichiers .xls contenu dans le répertoire D:\Users\Damien\Desktop\ apparaissent dans cette Listbox.

J'ai trouvé quelques pistes, et j'ai testé plusieurs codes proposés sur le forum mais je n'arrive pas à les adapter à mon projet.

Donc si quelqu'un a une idée, je suis tout ouïe....

Merci d'avance

Bonjour,

essaye ceci, pour une "listbox" placer sur un "userform", code à utiliser dans le module de ce dernier :

Option Explicit
Private Sub UserForm_Initialize()
Dim repertoire As String, fichier As String
repertoire = "D:\Users\Damien\Desktop\"
fichier = Dir(repertoire & "*.xls")
Do While fichier <> ""
    ListBox1.AddItem fichier
    fichier = Dir
Loop
End Sub

bonne journée

@+

Un grand merci Pierrot!

C'est exactement ce qu'il me fallait....juste parfait!