Nom de dossier dans dossier

[gillesdu64]

Bonjour a tous,

j'ai un petit probleme sur Excel 2000 pro.

En fait je cherche à gerer des fichier et dossier mais pas des fichier excel.
En fait je cherche à pouvoir mettre les noms de dossier dans une combobox situé dans ma feuille excel. Or je ne sais pas comment récuperer le nom d'un dossier je sais pour un fichier c'est:

// code//
Dim I As Integer, Chemin As String, Fichier As String
Chemin = "P:\Customer Services\ESNA\QHSE\Incident Investigation\*.*"
Fichier = Dir(Chemin)
Do While (Len(Fichier) > 0)
Me.ComboBox1.AddItem Fichier
Fichier = Dir()
Loop

ceci marche mais je veux aussi récuperer le nom des dossier qu'il y a,.

merci

 

[gillesdu64]

Re : Nom de dossier dans dossier

Es que quelqun ma entendu?????????????????

 

[bqtr]

Re : Nom de dossier dans dossier

Bonjour gillesdu64

Essaye ce bout de code :

Dim FSO As Scripting.FileSystemObject
Dim Rep As Scripting.Folder
Dim SousRep As Scripting.Folder
Dim Chemin As String, R as Long

Chemin = "Q:"
Columns(1).Cells.Clear

    Set FSO = New Scripting.FileSystemObject
    Set Rep = FSO.GetFolder(Chemin)
 
        For Each SousRep In Rep.SubFolders
              R = R + 1
              ComboBox1.AddItem SousRep.Name
        Next SousRep
             
    Set Rep = Nothing
    Set FSO = Nothing

Tu adaptes la variable Chemin.
Il faut que la référence Microsoft Scripting Runtime soit cochée.
Dans VBA, Menu Outlis/Références...

A+

 

[gillesdu64]

Re : Nom de dossier dans dossier

merci beaucoup ca marche nikel ..
ca faisait bien 2 jours que j'étais dessus et j'avais trouver presque le meme code mais je avais pas pour le scriptiong à ciché.....

 

[bqtr]

Re : Nom de dossier dans dossier

Re,

Heu, là ligne : Columns(1).Cells.Clear ne sert à rien dans l'exemple présent 😱
J'ai juste recopié un bout de code qui me servait à lister des dossiers dans la colonne A d'une feuille. Il faut l'effacer.

A+