Discussion :

[modus57]

Bonjour,

En utilisant des bouts de codes piochés dans diverses discussions dans ce forum, j'ai créé un Userform qui contient un Treeview et un ListBox.

Pas de soucis pour le Treeview.

Je me heurte à un petit problème que je n'arrive à résoudre lorsque je clic sur un nœud pour lister dans la ListBox les fichiers contenus dans le répertoire.

Cela ne doit pas être compliqué, mais je n'arrive pas à formuler le code (voir fichier joint).



Pourriez me donner un petit coup de pouce svp.

Merci d'avance.

[boisgontierjacques]

Bonjour,

cf PJ

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
28
29
30
31
32
33
34
35
36
37
38
39
 
Dim tw As MSComctlLib.TreeView, fs
Private Sub UserForm_Initialize()
  pere = ChoixDossier   ' ou "C:\xxxxxx"
  If pere = "C:\" Then Stop
  Set tw = Me.MonArbre
  p = InStrRev(pere, "\"): tmp = Mid(pere, p + 1)
  tw.Nodes.Add(, , "NoeudMat" & pere, tmp).Expanded = True  ' Racine arbre
  Set fs = CreateObject("Scripting.FileSystemObject")
  Set dossier_racine = fs.getfolder(pere)
  Lit_dossier dossier_racine, 1
End Sub
 
Sub Lit_dossier(ByRef dossier, ByVal niv)
    pere = dossier.Path
    For Each d In dossier.SubFolders
      fils = d.Path
      p = InStrRev(fils, "\"):   tmp = Mid(fils, p + 1)
      tw.Nodes.Add("NoeudMat" & pere, tvwChild, "NoeudMat" & d.Path, tmp).Expanded = True
      Lit_dossier d, niv + 1
    Next
End Sub
 
Private Sub MonArbre_NodeClick(ByVal Node As MSComctlLib.Node)
  If Left(Node.Key, 8) = "NoeudMat" Then
    Me.Textbox1 = Mid(Node.Key, 9)
    rép = Me.Textbox1
      Me.ListBox1.Clear
      nf = Dir(rép & "\*.*")
      n = 0
      Do While nf <> ""
        Me.ListBox1.AddItem nf
        Me.ListBox1.List(n, 1) = rép
        n = n + 1
        nf = Dir
      Loop
      Me.Textbox2 = n
  End If
End Sub

Boisgontier

[modus57]

Bonjour et bon dimanche.

Merci pour votre réponse, toujours très efficace.

Cela résout mon problème.

Je me permets une question complémentaire : comment changer la couleur de fond du TreeView ?

[modus57]

Bonsoir,

J'ai trouvé sur un un autre site lle code qui convient pour changer la couleur de fond d'un TreeView.

Le seul inconvénient le fond reste blanc devant chaque nœud.

Comment corriger ce petit problème ?