HLitPremier(Société,NomSociété)
TANTQUE pas h.endehors
HLitRecherchePremier(Contacts,NomSociété,Société.NomSociété)
TANTQUE HTrouve(Contacts)
ArbreAjoute (Arbre1,"Annuaire"+TAB+Société.NomSociété+TAB+Contacts.Nom,aDéfaut,aDéfaut)
HLitSuivant(Contacts,NomSociété)
FIN
HLitSuivant(Société,NomSociété)
FIN
Cette contribution était de : http://old.wdforge.org/newbb/viewtopic.php?forum=14&topic_id=3252&post_id=13797