Bonjour tlm !

Après 3h30 de recherches infructueuses sur le net, je vous expose mon problème. Je dispose dans un treeview d'une liste de familles et de leurs sous familles (et leurs sous-sous-famille, etc ...)
ex:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
supFam1
   subfam1
     subfam1.1
     subfam1.2
     subfam1.3
   subfam2
     subfam2.1
Et je souhaite récupérer/afficher, lorsque l'utilisateur clic sur un élément de l'arbre, la liste de toutes les sous familles et sous-sous familles du noeud courant.

Je pense a l'utilisation d'une méthode récursive, mais je ne sais pas comment parcourir récursivement les noeuds fils d'un noeud donné (celui qui a été cliqué).

Je pars sur la base suivante:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
 
Private Sub TV1_NodeClick(ByVal Nde As Object)
  dim resultat as string 'par exemple
  resultat = ListerSousNoeuds(Nde)
End Sub
et bien entendu c'est la fonction ListerSousNoeuds(ByVal Nde As Object) qui me fait défaut

J'ai tenté d'utiliser des TreeNodes mais VBA/Access 2003 ne semble pas les reconnaître.

Merci de votre aide