affichage de répertoire

[kypassart]

Bonjours à tous
je ne suis pas encore très doué en VBA excel
Je viens donc vous demander votre aide
voilà je voudrais afficher dans une combobox le nom des différents répertoire contenu dans un répertoire mère

voilà merci d'avance
bonne journée

Ps j'essaie d'utiliser une UFS

 

[BOISGONTIER]

Re : affichage de répertoire

Bonjour,

Private Sub UserForm_Initialize()
   repertoire = ThisWorkbook.Path
   Set fs = CreateObject("Scripting.FileSystemObject")
   Set Dossier = fs.getfolder(repertoire)
   For Each d In Dossier.SubFolders
     Me.ComboBox1.AddItem d.Name
   Next
End Sub

JB
Formation Excel VBA JB

 

[MJ13]

Re : affichage de répertoire

Bonjour,

Merci JB pour ce petit code sympas.
Notons qu'on peut le mettre sur une listbox en remplaçant Combo par List.

 

[kypassart]

Re : affichage de répertoire

Merci beaucoup pour ce petit code

encore merci Bonne Journée