Remplir une Treeview

Bonjour à tous.

Je cherche à faire une TreeView dans un formulaire Access, dans l'objectif d'afficher l'arborescence des dossiers auquel un utilisateur Windows à accès.

Je cherche tout d'abord à comprendre le fonctionnement de la treeview, j'ai donc écrie un boue de code

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

Private Sub Form_Load()   Dim Tw As TreeView Dim Noeud As Node   Set Tw = Me.TV1 'parametrage treeview With Tw .Nodes.Clear .HideSelection = False .LineStyle = tvwRootLines End With 'Ajout des noeuds Set Noeud = Tw.Nodes.Add(, , "Titre", "Niveau 1") Set Noeud = Tw.Nodes.Add("Titre", "Niveau 2", "Toto") Set Noeud = Tw.Nodes.Add("Titre", "Niveau 2", "Titi")   End Sub

---

J'ai utilisé la fenêtre Contrôle Active x "Microsoft TreeView Controle, version 6.0"
Je problème que je rencontre est qu'il y a un problème d'incompatibilité de type sur :

Code:

---

Set Tw = Me.TV1

---

Comment déclare-t-on une Treeview?
Merci d'avance pour votre aide.

Bonsoir,
Simplifier

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

Private Sub Form_Load() Dim Noeud As Node 'parametrage treeview With Me!TV1 .Nodes.Clear .HideSelection = False .LineStyle = tvwRootLines 'Ajout des noeuds .Nodes.Add , 0, "Titre", "Niveau 1" .Nodes.Add "Titre", 4, "Niveau 2", "Toto" .Nodes.Add "Titre", 4, "Niveau 3", "Titi" End With End Sub

---

.Nodes.Add cle_pere, 4, clé, intitulé
0 pour un noeud père, 4 pour un noeud fils
la clé doit être unique

Je te remercie , pour ces explications.

Une petite correction : 0 c'est pour la racine
4 ensuite

Code:

---

1 2 3 4 5 6 7

.Nodes.Add , 0, "Titre", "Niveau 1" .Nodes.Add "Titre", 4, "Niveau 2", "Toto" .Nodes.Add "Niveau 2", 4, "Fils à Toto 1", "Pierre" .Nodes.Add "Niveau 2", 4, "Fils à Toto 2", "Paul" .Nodes.Add "Niveau 2", 4, "Fils à Toto 3", "Jacques" .Nodes.Add "Titre", 4, "Niveau 3", "Titi"

---