Bonjour,
Je travaille sur une évolution d'une application en VBA, j'utilise excel 2010
Et actuellement je bloque sur l'affichage de certaines données spécifiques d'un fichier xml (sélectionné en entrée) sous format arbre,
Voici un exemple de ce fichier :
Code xml : 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 <?xml version="1.0" encoding="UTF-8" standalone="yes"?> <ns3:Uos xmlns:ns2="http://standards.iso.org/iso/ts/10303/-3000/-ed-1/tech/xml-schema/common" xmlns:ns3="http://standards.iso.org/iso/ts/10303/-3001/-ed-1/tech/xml-schema/bo_model"> <Header> .... </Header> <DataContainer xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xsi:type="ns3:AP242DataContainer"> <Classification uid="APID1001"> ... </Classification> <FormatProperty uid="APID1003"> ... </FormatProperty> <File xsi:type="ns3:DigitalFile" uid="ID_669"> ...... </File> <Part uid="ID_0"> <Id id="REF0200461"/> <Name> <LocalizedString uid="APID1057" lang="en-uk"></LocalizedString> <LocalizedString uid="APID1084">Vis</LocalizedString> </Name> </Part> .... <Part uid="ID_n"> <Id id="REF0200485"/> <Name> <LocalizedString uid="APID2485" lang="en-uk"></LocalizedString> <LocalizedString uid="APID1045">Roue</LocalizedString> </Name> </Part> </DataContainer> </ns3:Uos>
Sur une fenêtre j'ai un bouton pour sélectionner le fichier et un treeview2 ou j'affiche les données, j'ai déjà pu affiché tous les nœuds du document sur le treeview2,
Mon objectif pour l'instant est d'afficher l'arborescence des balises "Part" sur treeview2 comme suit:
et si j'ai un nœud fils <Part> dans la balise <Part> il doit s'afficher également selon le niveau de l'arborescence.NomRacine_généré
|+______[Valeur élément id du nœud Id de Part0]:le texte de la deuxième balise<LocalizedString> de Part:Name]
|+______...
|+______[Valeur élément id du nœud Id de Part0]:le texte de la deuxième balise<LocalizedString> de Part:Name]
A côté de chaque nœud je dois une icone affichée (image stockée dans un composant ImageList)
Voici le morceau de code avec lequel j'ai commencé, j'ai testé plusieurs manières en cherchant sur internet mais ça ne me donne pas le résultat attendu, je ne trouve plus de pistes:
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 Sub Mod_Init() Dim sFic As String ' Selection du fichier STEP de NPDM sFic = Application.GetOpenFilename(fileFilter:="Fichier STEP NPDM (*.xml), *.xml") Set XmlDoc = CreateObject("Microsoft.XMLDOM") XmlDoc.async = "false" XmlDoc.Load (sFic) If (sFic = "Faux") Then Exit Sub ' a partir d'ici j'ai essayé d'utiliser des propriétés comme firstChild mais j'ai des problèmes de types End Sub
Je suis bloquée dessus depuis un moment , Je serais reconnaissante à toute personne qui peut m'aider
Si vous avez besoin d'une information pour éclaircir le contexte n'hésitez pas. Merciiiiii d'avance!!
Partager