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
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