des dossiers dans une combobox...

[babap1]

Bonjour le forum,

je n'arrive pas à trouver d'infos qui répondraient à mes questions..
En PJointe, j'ai un exemple de ce que je veux faire avec 2 UForm :

• AddForm contient une combobox qui liste des fichiers Xml
• EquiType contient une combobox qui est censé lister des nom de dossier.

Voila mon problème, grace au forum j'arrive bien à lister des fichiers qui sont dans un dossier de mon DDur mais je n'arrive pas à lister le nom des dossiers qui sont dans.. un dossier de mon DDur !

Dim EquiType As String  'Equipment type
    
    'Thanks to http://www.excel-downloads.com/forum/ for that code
    Path = ActiveCell.Value
    EquiType = Dir("D:\Documents and Settings\Xml\*")
    
    Do While EquiType <> ""
        If EquiType <> ThisWorkbook.Name Then Cbx_EquiType.AddItem EquiType
        EquiType = Dir
    Loop

Est-ce que je pourrai avoir vos lumières sur le sujet ? 🙂
Merci d'avance,

Bap

 

[gilbert_RGI]

Re : des dossiers dans une combobox...

Bonjour

Ceci fait-il l'affaire ?

Ce lien n'existe plus

Cdlt

RGI

 

[babap1]

Re : des dossiers dans une combobox...

Bonjour gilbert_RGI,

merci pour ta réponse mais ce n'est pas ce que je voulais faire.. en effet, dans les combobox tu listes ce qu'il y a dans ma liste (colonne A) alors que je voulais lister le nom de tous les dossiers présents dans C:\ par exemple...

 

[gilbert_RGI]

Re : des dossiers dans une combobox...

Ok alors ceci

Ce lien n'existe plus

il faut que le fichier soit décompressé et sur le disque dur pour que ça fonctionne

Cdlt

RGI

 

[babap1]

Re : des dossiers dans une combobox...

Bravo et merci gilbert_RGI, c'est exactement ce que je voulais ! 😉

J'aimerai juste découper une chaine de caractère et je n'y arrive pas.
C'est à dire que j'aimerai réccupérer uiquement le dernier dossier :

folder = "C:\Program Files\SNEC Tool\Input files\Database SNEC\Xml"
folderXml = Right(folder , InStr(len(folder), folder , "\"))

-> pour avoir folderXml = Xml

 

[pierrejean]

Re : des dossiers dans une combobox...

bonjour babap1

en supposant que j'aie compris

folder = "C:\Program Files\SNEC Tool\Input files\Database SNEC\Xml"
x=split(folder,"\")
folderXml = x(ubound(x))

 

[babap1]

Re : des dossiers dans une combobox...

Bonjour pierrejean,

en supposant que j'aie compris

Et bien tu m'as bien déchiffré, merci.

 

[gilbert_RGI]

Re : des dossiers dans une combobox...

Bonjour l'arrivant

remplacer dans le module
le code

    EquiType.ComboBox1.AddItem folderItem.Path

par le code suivant

EquiType.ComboBox1.AddItem Right(folderItem.Path, Len(folderItem.Path) - Len(nRep))

 

[gilbert_RGI]

Re : des dossiers dans une combobox...

Qu'en est-il ?

Cdlt

RGI

 

[babap1]

[Resolu] des dossiers dans une combobox...

Bonjour gilbert_RGI, Pierre-Jean, le forum

merci pour votre coup de main. J'ai mixé vos idées et j'ai pondu quelque chose qui me va :

Private Sub UserForm_Initialize()
    Dim fs As Object
    Dim MonRep As Object
    Dim ColRep As Object
    Dim nRep, folderItem, XmlFolder
    Set fs = CreateObject("Scripting.FileSystemObject")
    
    Me.Cbx_EquiType = Range("B2").Value
    
    'Folder test
    x = Split(ActiveWorkbook.Path, "\")
    nRep = x(UBound(x))
    
    If (nRep = "Excel") Then
        Set MonRep = fs.GetFolder("..\Xml\")
        Set ColRep = MonRep.SubFolders
        
        For Each folderItem In ColRep
            y = Split(folderItem, "\")
            EquiTypeFolder = y(UBound(y))
            If (EquiTypeFolder <> "lib") Then Me.Cbx_EquiType.AddItem EquiTypeFolder
        Next
        
        'Initilalize
        Set ColRep = Nothing
        Set MonRep = Nothing
        Set fs = Nothing
    End If
End Sub

maintenant j'essaye juste de faire un reload de ma combobox mais j'ai posté ça dans un autre sujet...

Merci pour votre aide,
Cordialement.

Bap