Bonjour à tous,
J'aimerais savoir s'il est possible d'importer un fichier XML et de le visualiser en Tree View sur Excel.
Merci d'avance :roll:
Version imprimable
Bonjour à tous,
J'aimerais savoir s'il est possible d'importer un fichier XML et de le visualiser en Tree View sur Excel.
Merci d'avance :roll:
Salut.
Tout dépend de ce que tu entends par "visualiser en treeview". Et tout dépend également de ton fichier xml. si c'est un simple arbre ou si tu as des attributs à placer également.
Nativement, il n'existe pas de contrôle de type treeview en vba. Je peux donc te proposer un code récursif qui place les noms des noeuds xml dans une "arborescence" visualisée par des décalages dans des cellules.
Pour réaliser cela en VBA, il faut ajouter la référence Microsoft XML V6.0
Avec le fichier xml suivant:
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13 <?xml version = "1.0" encoding="ISO8859-1" standalone="yes" ?> <aliments> <legumes> <carotte></carotte> <betterave></betterave> </legumes> <fruits> <pomme></pomme> <poire></poire> <abricot></abricot> </fruits> </aliments>
Et le code vba suivant:
Tu pourrais obtenir ceci: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
28 Sub ReadXMLDocument(Filename As String) Dim doc As IXMLDOMDocument2 Dim Root As IXMLDOMElement Set doc = New DOMDocument60 doc.async = False If doc.Load(Filename) Then Set Root = doc.DocumentElement ReadXMLNode Root, Range("a1") Else MsgBox "Erreur lors de l'ouverture du document" End If End Sub Sub ReadXMLNode(xmlNode As IXMLDOMNode, ByRef Cell As Range) Dim ChildNode As IXMLDOMNode Cell.Value = xmlNode.BaseName If xmlNode.HasChildNodes Then For Each ChildNode In xmlNode.ChildNodes Set Cell = Cell(2, 2) ReadXMLNode ChildNode, Cell Next Else 'Set Cell = Cell(1, 0) End If If Cell.Column > 1 Then Set Cell = Cell(1, 0) End Sub
Pièce jointe 344447
re
et mettre la plage resultante comme tel (avec indentation) dans une listbox ;)
ou une listview avec icon pourquoi pas si ta version d'excel le permet tu aurais une sorte de visuel d'un treeview