affichage de répertoire

BOISGONTIER

XLDnaute Barbatruc

Repose en paix

• 15 Avril 2008

• #2

Re : affichage de répertoire

Bonjour,

Code:

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

 

Vote positif 0 Vote négatif

MJ13

XLDnaute Barbatruc

• 15 Avril 2008

• #3

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.

 

Dernière édition: 15 Avril 2008

Vote positif 0 Vote négatif

K

kypassart

XLDnaute Nouveau

• 15 Avril 2008

• #4

Re : affichage de répertoire

Merci beaucoup pour ce petit code

encore merci Bonne Journée

 

Vote positif 0 Vote négatif