Liste des fichiers d'un répertoire dans un ListBox
Sur cet exemple, nous obtenons la liste des fichiers du répertoire du classeur où est situé le code.
FormListBoxFichiers
Private Sub UserForm_Initialize()
repertoire = ThisWorkbook.Path & "\" ' adapter
nf = Dir(repertoire & "*.*") ' premier fichier
Do While nf <> ""
Me.ListBox1.AddItem nf
nf = Dir ' fichier suivant
Loop
End Sub
À+
Sur cet exemple, l'opérateur choisit le répertoire.
ListeFichiersRépertoireListBox