[VBa-E] TreeView comme Windows Explorer?

Salut à tous et à tous et à tous et à toutes!:lol:
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?:oops:

Merci

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:

---

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

je te remerci beaucoup!! :D

merci !