Lister les dossiers contenus dans un répertoire réseau et alimenter un combobox

[Profane]

Bonjour a tous,
j'ai beau regarder dans les exemples (nombreux) de Michel,
je ne trouve pas de solution à mon probléme
je voudrais a partir d un repétoire réseau contenant les dossiers clients, en obtenir la liste de facon dynamique et en alimenter un combobox sur mon userform, ceci pour dans un prochain temps obtenir des informations sur celui ci (mais c est un autre problème)
merci d'avance a ceux qui consacreront du temps à mon soucis
Cordialement

 

[Profane]

Re : Lister les dossiers contenus dans un répertoire réseau et alimenter un combobox

up up up 🙂

 

[Profane]

Re : Lister les dossiers contenus dans un répertoire réseau et alimenter un combobox

Bonjour
alors j'ai trouvé pour avoir la liste de tous les sous répertoires la macro suivante sur le fofo
Sub SousRepRepActuel()
[$A$2:$A$2000].Clear
Racine = "m:\clients" ' Répertoire
Set fs = CreateObject("Scripting.FileSystemObject")
Set Dossier = fs.getfolder(Racine)
[A2].Select
For Each d In Dossier.SubFolders
ActiveCell = d.Name
ActiveCell.Offset(1, 0).Select
Next
End Sub

par contre , je ne sais pas comment "exporter" le resultat de façon automatique dans la propriété list de mon combobox...
si quelqu'un a une idée...
en attendant j'ai codé une macro qui récupere le résultat sur la feuille

 

[Pierrot93]

Re : Lister les dossiers contenus dans un répertoire réseau et alimenter un combobox

Bonjour,

au lieu de :

ActiveCell = d.Name

tu mets :

ComboBox1.AddItem d.Name

peut être précisé nom de l'usf ou de la feuille où est placé ton combo, fonction également où le code est placé (module standard ou de feuille ou usf).... sans plus de détails....

bonne journée
@+

 

[Profane]

Re : Lister les dossiers contenus dans un répertoire réseau et alimenter un combobox

merci Pierrot, ca marche nickel 🙂