Discussion :

[gootsu]

Salut à tous et à tous et à tous et à toutes!
Pour avoir une combobox qui resemble à celle de windows explorer, Il faut utiliser "treeview"?
Mais comment puis-je avoir les images des dossiers devant chaque dossiers?
et Comment rentre ton les noms des dossiers de mes documents?

Merci

[SilkyRoad]

bonjour

pour ta 1ere question , ci joint un exemple testé avec Excel 97 & 2002
il faut ajouter un Imagelist en plus du treeView, pour stocker les images

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
Private Sub UserForm_Initialize()
Dim k As Byte, j As Byte
Dim Img1 As String, Img2 As String
 
Me.ImageList1.ListImages.Clear
 
Img1 = ThisWorkbook.Path & "\imageDossierferme.bmp"
Img2 = ThisWorkbook.Path & "\imageDossierOuvert.jpg"
 
Me.ImageList1.ListImages.Add 1, "Image1", LoadPicture(Img1)
Me.ImageList1.ListImages.Add 2, "Image2", LoadPicture(Img2)
 
Set Me.TreeView1.ImageList = Me.ImageList1
 
For k = 1 To 5
    TreeView1.Nodes.Add , , "maClé1" & k, "ParentNode" & k, "Image1", "Image2"
 
Next
 
For j = 1 To 5
    For k = TreeView1.Nodes.Count To TreeView1.Nodes.Count + 2
        TreeView1.Nodes.Add "maClé1" & j, tvwChild, "maClé2" & Str(k), _
        "ChildNode" & k, "Image1", "Image2"
    Next
Next
 
End Sub

pour ta 2eme question , tu peux essayer le classeur en piece jointe.
(cet exemple ne prend pas en compte ta 1ere question au sujet des images des dossiers)

Il te restera à adapter le chemin à explorer avant de lancer la macro
( Chemin = "C:\Documents and Settings\michel\dossier\general" )

Evite de faire des tests pour des répertoires et sous repertoires trop volumineux ( au dessus de 300 sous repertoires , le temps d'affichage de l'arborescence peut prendre beaucoup de temps )

le double clic dans la ListView permet l'ouverture du fichier sélectionné ( je n'ai pas pris en compte tous les types de fichier) si besoin , remplace FollowHyperlink par la fonction ShellExecute


bon apres midi
michel

[gootsu]

je te remerci beaucoup!!

merci !