extraction de donnees d'un fichier xml vers excel (vba)

**gibba88** · 14/04/2012, 15h18

bonjour
,je suis étudiant en deuxiéme année génie électrique et informatique industriel . j'ai besoin de votre aide sur un probléme que j'arrive toujour pas à résoudre.

je dois extraire une partie des donnees d'un fichier xml sur excel .En faite ,le fichier à l'origine était du type .OCC (logiciel OMICRON) et comme je pouvais pas l'extraire directement sous excel ,j'ai décidé je le convertir en XML et à partir de là ,extraire les balises que je veux sous excel.
Mais je viens de découvrir le VBA et j'ai des soucis pour manipuler le fichier XML.

En espérant une aide de votre part ,je vous joins le fichier XML (c'est la balise "MEASUREMENT" que je dois extraire).
Merci à l'avance .j'attends vos propositions.

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
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
 
 
<?xml version="1.0" standalone="yes"?>
<TestUniverseExport xmlns="http://www.omicron.at/dataexport">
  <Test_Report>
    <TestReportID>395c9762-b371-4883-8be3-caed76ac8076</TestReportID>
    <Title>n/a</Title>
    <Subject>n/a</Subject>
    <Category>n/a</Category>
    <Keywords>n/a</Keywords>
    <DateTested>2012-04-04T08:21:07+02:00</DateTested>
    <UserField1>n/a</UserField1>
    <UserField2>n/a</UserField2>
    <UserField3>n/a</UserField3>
    <UserField19>n/a</UserField19>
    <UserField20>n/a</UserField20>
    <NumberModulesChecked>6</NumberModulesChecked>
    <NumberModulesPassed>6</NumberModulesPassed>
    <NumberModulesFailed>0</NumberModulesFailed>
  </Test_Report>
  <Seq_Measurement>
    <TestReportID>395c9762-b371-4883-8be3-caed76ac8076</TestReportID>
    <TestReportOrder>4</TestReportOrder>
    <MeasNumber>1</MeasNumber>
    <Assessment>NORESULT</Assessment>
  </Seq_Measurement>
  <Seq_Measurement>
    <TestReportID>395c9762-b371-4883-8be3-caed76ac8076</TestReportID>
    <TestReportOrder>12</TestReportOrder>
    <MeasNumber>1</MeasNumber>
    <Name>TPHA</Name>
    <IgnoreBefore>Défaut en TPHA</IgnoreBefore>
    <Start>Défaut en TPHA</Start>
    <Stop>Entr.bi. 1 1&gt;0</Stop>
    <Tnom>0.8</Tnom>
    <TdevN>0</TdevN>
    <TdevP>0.1</TdevP>
    <Tact>0.821</Tact>
    <Tdev>0.021</Tdev>
    <Assessment>PASSED</Assessment>
  </Seq_Measurement>
  <Seq_Measurement>
    <TestReportID>395c9762-b371-4883-8be3-caed76ac8076</TestReportID>
    <TestReportOrder>12</TestReportOrder>
    <MeasNumber>2</MeasNumber>
    <Name>TPHAEV</Name>
    <IgnoreBefore>Défaut en TPHAEV</IgnoreBefore>
    <Start>Défaut en TPHAEV</Start>
    <Stop>Entr.bi. 1 1&gt;0</Stop>
    <Tnom>0.2</Tnom>
    <TdevN>0</TdevN>
    <TdevP>0.1</TdevP>
    <Tact>0.2643</Tact>
    <Tdev>0.0643</Tdev>
    <Assessment>PASSED</Assessment>
  </Seq_Measurement>
  <Seq_Measurement>
    <TestReportID>395c9762-b371-4883-8be3-caed76ac8076</TestReportID>
    <TestReportOrder>21</TestReportOrder>
    <MeasNumber>1</MeasNumber>
    <Name>THA</Name>
    <IgnoreBefore>Défaut en TPVH</IgnoreBefore>
    <Start>Défaut en TPVH</Start>
    <Stop>ARR 1.1 1&gt;0</Stop>
    <Tnom>3</Tnom>
    <TdevN>0</TdevN>
    <TdevP>0.1</TdevP>
    <Tact>3.0369</Tact>
    <Tdev>0.0369</Tdev>
    <Assessment>PASSED</Assessment>
  </Seq_Measurement>
  <Seq_Measurement>
    <TestReportID>395c9762-b371-4883-8be3-caed76ac8076</TestReportID>
    <TestReportOrder>21</TestReportOrder>
    <MeasNumber>2</MeasNumber>
    <Name>THAEV</Name>
    <IgnoreBefore>Défaut en THAEV</IgnoreBefore>
    <Start>Défaut en THAEV</Start>
    <Stop>ARR 1.1 1&gt;0</Stop>
    <Tnom>0.2</Tnom>
    <TdevN>0</TdevN>
    <TdevP>0.1</TdevP>
    <Tact>0.2748</Tact>
    <Tdev>0.0748</Tdev>
    <Assessment>PASSED</Assessment>
  </Seq_Measurement>
  <Seq_Measurement>
    <TestReportID>395c9762-b371-4883-8be3-caed76ac8076</TestReportID>
    <TestReportOrder>28</TestReportOrder>
    <MeasNumber>1</MeasNumber>
    <Assessment>NORESULT</Assessment>
  </Seq_Measurement>
  <TM_Ramping>
    <TestReportID>395c9762-b371-4883-8be3-caed76ac8076</TestReportID>
    <TestReportOrder>8</TestReportOrder>
    <StateCount>3</StateCount>
    <Mode>Sorties CMC/Amplificateur</Mode>
    <StepCount>203</StepCount>
    <TotalTime>27.52</TotalTime>
    <ExecutionCount>1</ExecutionCount>
    <RampedSignal1>I  IA;IB;IC</RampedSignal1>
    <RampedSignal1Function>MAGNITUDE</RampedSignal1Function>
  </TM_Ramping>
  <TM_Ramping>
    <TestReportID>395c9762-b371-4883-8be3-caed76ac8076</TestReportID>
    <TestReportOrder>18</TestReportOrder>
    <StateCount>3</StateCount>
    <Mode>Sorties CMC/Amplificateur</Mode>
    <StepCount>53</StepCount>
    <TotalTime>187</TotalTime>
    <ExecutionCount>1</ExecutionCount>
    <RampedSignal1>U L1-E</RampedSignal1>
    <RampedSignal1Function>MAGNITUDE</RampedSignal1Function>
  </TM_Ramping>
  <Ramp_Setting>
    <TestReportID>395c9762-b371-4883-8be3-caed76ac8076</TestReportID>
    <TestReportOrder>8</TestReportOrder>
    <RampNumber>0</RampNumber>
    <RampName>Rampe 1</RampName>
    <Signal1From>0</Signal1From>
    <Signal1To>0</Signal1To>
    <Signal1Delta>0</Signal1Delta>
    <Signal1DDT>0</Signal1DDT>
    <DeltaTStep>0.1</DeltaTStep>
    <TotalSteps>1</TotalSteps>
    <TotalTime>0.1</TotalTime>
    <TriggerName>Aucun</TriggerName>
    <DelayTime>0</DelayTime>
    <StepBack>Non</StepBack>
  </Ramp_Setting>
  <Ramp_Setting>
    <TestReportID>395c9762-b371-4883-8be3-caed76ac8076</TestReportID>
    <TestReportOrder>8</TestReportOrder>
    <RampNumber>1</RampNumber>
    <RampName>Rampe 2</RampName>
    <Signal1From>1.9375</Signal1From>
    <Signal1To>1.9375</Signal1To>
    <Signal1Delta>0</Signal1Delta>
    <Signal1DDT>0</Signal1DDT>
    <DeltaTStep>3.3</DeltaTStep>
    <TotalSteps>1</TotalSteps>
    <TotalTime>3.3</TotalTime>
    <TriggerName>Aucun</TriggerName>
    <DelayTime>0</DelayTime>
    <StepBack>Non</StepBack>
  </Ramp_Setting>
  <Ramp_Setting>
    <TestReportID>395c9762-b371-4883-8be3-caed76ac8076</TestReportID>
    <TestReportOrder>8</TestReportOrder>
    <RampNumber>2</RampNumber>
    <RampName>Rampe 3</RampName>
    <Signal1From>3.4875</Signal1From>
    <Signal1To>4.2625</Signal1To>
    <Signal1Delta>0.003875</Signal1Delta>
    <Signal1DDT>0.032292</Signal1DDT>
    <DeltaTStep>0.12</DeltaTStep>
    <TotalSteps>201</TotalSteps>
    <TotalTime>24.12</TotalTime>
    <TriggerName>Bin </TriggerName>
    <DelayTime>0</DelayTime>
    <TriggerLogic>OU</TriggerLogic>
    <StepBack>Non</StepBack>
  </Ramp_Setting>
  <Ramp_Setting>
    <TestReportID>395c9762-b371-4883-8be3-caed76ac8076</TestReportID>
    <TestReportOrder>18</TestReportOrder>
    <RampNumber>0</RampNumber>
    <RampName>Rampe 1</RampName>
    <Signal1From>75</Signal1From>
    <Signal1To>75</Signal1To>
    <Signal1Delta>0</Signal1Delta>
    <Signal1DDT>0.1</Signal1DDT>
    <DeltaTStep>0.1</DeltaTStep>
    <TotalSteps>1</TotalSteps>
    <TotalTime>0.1</TotalTime>
    <TriggerName>Aucun</TriggerName>
    <DelayTime>0</DelayTime>
    <StepBack>Non</StepBack>
  </Ramp_Setting>
  <Ramp_Setting>
    <TestReportID>395c9762-b371-4883-8be3-caed76ac8076</TestReportID>
    <TestReportOrder>18</TestReportOrder>
    <RampNumber>1</RampNumber>
    <RampName>Rampe 2</RampName>
    <Signal1From>11.1482</Signal1From>
    <Signal1To>11.1482</Signal1To>
    <Signal1Delta>0</Signal1Delta>
    <Signal1DDT>0</Signal1DDT>
    <DeltaTStep>3.3</DeltaTStep>
    <TotalSteps>1</TotalSteps>
    <TotalTime>3.3</TotalTime>
    <TriggerName>Aucun</TriggerName>
    <DelayTime>0</DelayTime>
    <StepBack>Non</StepBack>
  </Ramp_Setting>
  <Ramp_Setting>
    <TestReportID>395c9762-b371-4883-8be3-caed76ac8076</TestReportID>
    <TestReportOrder>18</TestReportOrder>
    <RampNumber>2</RampNumber>
    <RampName>Rampe 3</RampName>
    <Signal1From>11.1482</Signal1From>
    <Signal1To>9.121255</Signal1To>
    <Signal1Delta>-0.040539</Signal1Delta>
    <Signal1DDT>-0.011261</Signal1DDT>
    <DeltaTStep>3.6</DeltaTStep>
    <TotalSteps>51</TotalSteps>
    <TotalTime>183.6</TotalTime>
    <TriggerName>Bin </TriggerName>
    <DelayTime>0.5</DelayTime>
    <TriggerLogic>OU</TriggerLogic>
    <StepBack>Non</StepBack>
  </Ramp_Setting>
 
 --------------la partie que je dois extraire---------------------------
  <Measurements>
    <TestReportID>395c9762-b371-4883-8be3-caed76ac8076</TestReportID>
    <TestReportOrder>8</TestReportOrder>
    <MeasurementNumber>1</MeasurementNumber>
    <ExecutionNumber>1</ExecutionNumber>
    <MeasurementName>SEUIL</MeasurementName>
    <RampNumber>2</RampNumber>
    <RampedQuantity>I  IA;IB;IC</RampedQuantity>
    <Trigger>Entr.bi. 1 1-&gt;0</Trigger>
    <Nom>3.875</Nom>
    <Act>3.83625</Act>
    <NegativeTolerance>0.03875</NegativeTolerance>
    <PositiveTolerance>0.03875</PositiveTolerance>
    <Deviation>-0.0387</Deviation>
    <Assessment>PASSED</Assessment>
    <Tact>0.025</Tact>
  </Measurements>
  <Measurements>
    <TestReportID>395c9762-b371-4883-8be3-caed76ac8076</TestReportID>
    <TestReportOrder>18</TestReportOrder>
    <MeasurementNumber>1</MeasurementNumber>
    <ExecutionNumber>1</ExecutionNumber>
    <MeasurementName>SEUIL</MeasurementName>
    <RampNumber>2</RampNumber>
    <RampedQuantity>U L1-E</RampedQuantity>
    <Trigger>DJ fermé 1-&gt;0</Trigger>
    <Nom>10.134728</Nom>
    <Act>10.013111</Act>
    <NegativeTolerance>0.202695</NegativeTolerance>
    <PositiveTolerance>0.202695</PositiveTolerance>
    <Deviation>-0.1216</Deviation>
    <Assessment>PASSED</Assessment>
    <Tact>3.0368</Tact>
  </Measurements>
  ----------------------------------------------------------------------
  <Test_Object>
    <TestReportID>395c9762-b371-4883-8be3-caed76ac8076</TestReportID>
    <TestReportOrder>1</TestReportOrder>
    <Name>Paramètre Réglage</Name>
    <NumberPhases>3</NumberPhases>
    <Fnom>50</Fnom>
    <Vnom>100</Vnom>
    <Vprimary>110000</Vprimary>
    <Inom>1</Inom>
    <Iprimary>1000</Iprimary>
    <CTRatio>1000</CTRatio>
    <PTRatio>1100</PTRatio>
  </Test_Object>
  <FC_Name>
    <TestReportID>395c9762-b371-4883-8be3-caed76ac8076</TestReportID>
    <TestReportOrder>4</TestReportOrder>
    <StateNumber>1</StateNumber>
    <Name1>Etat1</Name1>
    <Name2>Sorties CMC/Amplificateur</Name2>
  </FC_Name>

**Daniel.C** · 14/04/2012, 16h44

Bonjour,

On va peut-être se compléter, parce que, pour moi, XML, c'est de l'hébreu. Poste le résultat que tel que tu le souhaites.

**SfJ5Rpw8** · 14/04/2012, 18h43

Bonjour,

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
16
17
18
19
20
21
22
23
24
25
26
27
28
29
'
' AJOUTER la référence à Microsoft XML au projet.
'
Sub LectureXML()
Dim xmlDoc As New DOMDocument
Dim oNode As IXMLDOMElement
Dim oElement As IXMLDOMElement
xmlDoc.async = "false"
 
'Charger le document e mémoire
 
If xmlDoc.Load("d:\tmp\OMICRON.xml") Then
    For Each oNode In xmlDoc.getElementsByTagName("Measurements")
        Debug.Print "---------------------------------------------"
        'Pour boucler dans les balises..
       For Each oElement In oNode.childNodes
            Debug.Print oElement.baseName & " = " & oElement.Text
       Next
 
 
        '----------------- Pour accéder à un élément particulier
        Set oElement = oNode.getElementsByTagName("TestReportID")(0)
           Debug.Print "Un élément particulier : " & oElement.baseName & " = " & oElement.Text
    Next
 
 Else
    MsgBox "Erreur ouverture document"
End If
End Sub

http://vb.developpez.com/faqvbs/?page=II.5

**gibba88** · 15/04/2012, 17h29

ok merci

,je vais essayé ,je vous tiendrais au courant

**gibba88** · 15/04/2012, 23h12

salut c'est encore moi..

dire que c'est pas facile quand on est débutant en programmation. en fait j'ai quelques soucis à la compulation .je crois défaut de librairie MSXML.dll. je voudrais savoir comment ajouter la référence Microsoft XML au projet VBA?
encore Merci d'avance

**gibba88** · 16/04/2012, 17h07

bonjour enfait j'arrive à afficher mes données que j'ai extraite sur la console. mais là j'aimerais les afficher sur la feuille de calcul excel.
voici le programme que j'ai fais .mais j'arrive pas à afficher toute la partie "Measurement"

MeasurementName RampNumber RampedQuantity Trigger Nom

seuil 2 I IA;IB;IC Entr.bi. 1 1->0 3.875

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
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
 
Sub LectureXML2()
' LectureXML Macro
 
'
 
'
' AJOUTER la référence à Microsoft XML au projet.
'
 
Dim xmlDoc As New DOMDocument
Dim oNode As IXMLDOMElement
Dim oElement As IXMLDOMElement
xmlDoc.async = "false"
 
 
Dim oChildren As IXMLDOMNodeList
Dim oChild As IXMLDOMNode
Dim oRoot As IXMLDOMNode
 
'Charger le document e mémoire
 
If xmlDoc.Load("C:\Documents and Settings\ousmane.djiba\Bureau\Ousmane_DJIBA\fichiers_exportés\.xml") Then
    For Each oNode In xmlDoc.getElementsByTagName("Measurements")
        'Debug.Print "---------------------------------------------"
 
       ' compteur de lignes.
        intI = 5
         ' Supprimer les informations précédentes.
        'ActiveSheet.Cells(4, 1).CurrentRegion.ClearContents
        'ActiveSheet.Shapes(2).Delete
 
        ' en-têtes de colonnes.
        ActiveSheet.Cells(4, 1) = "MeasurementName"
        ActiveSheet.Cells(4, 2) = "RampNumber"
        ActiveSheet.Cells(4, 3) = "RampedQuantity"
        ActiveSheet.Cells(4, 4) = "Trigger"
        ActiveSheet.Cells(4, 5) = "Nom."
        ActiveSheet.Cells(4, 6) = "Act"
        ActiveSheet.Cells(4, 7) = "NegativeTolerance"
        ActiveSheet.Cells(4, 8) = "PositiveTolerance"
        ActiveSheet.Cells(4, 9) = "Deviation"
        ActiveSheet.Cells(4, 10) = "Assessment"
        ActiveSheet.Cells(4, 11) = "Tact"
 
 
        'Set oNode = xmlDoc.ChildNodes
        'Pour boucler dans les balises..
       For Each oElement In oNode.ChildNodes
            'Debug.Print oElement.BaseName & " = " & oElement.Text
 
            'Set oAttributes = oMeasurements.Attributes
               ' Passez par tous les noeuds filles de Measurement
                 Set oChildren = oElement.ChildNodes
 
                If oElement.nodeName = "MeasurementName" Then
                 ActiveSheet.Cells(intI, 1) = oChild.nodeTypedValue
                End If
                If oChild.nodeName = "RampNumber" Then
                 ActiveSheet.Cells(intI, 2) = oChild.nodeTypedValue
                End If
                If oChild.nodeName = "RampedQuantity" Then
                 ActiveSheet.Cells(intI, 3) = oChild.nodeTypedValue
                End If
                If oChild.nodeName = "Trigger>" Then
                 ActiveSheet.Cells(intI, 4) = oChild.nodeTypedValue
                End If
                If oChild.nodeName = "Nom." Then
                 ActiveSheet.Cells(intI, 5) = oChild.nodeTypedValue
                End If
                If oChild.nodeName = "Act" Then
                 ActiveSheet.Cells(intI, 6) = oChild.nodeTypedValue
                End If
                If oChild.nodeName = "NegativeTolerance>" Then
                 ActiveSheet.Cells(intI, 7) = oChild.nodeTypedValue
                End If
                If oChild.nodeName = "PositiveTolerance" Then
                 ActiveSheet.Cells(intI, 8) = oChild.nodeTypedValue
                End If
                If oChild.nodeName = "Deviation" Then
                 ActiveSheet.Cells(intI, 9) = oChild.nodeTypedValue
                End If
                If oChild.nodeName = "Assessment" Then
                 ActiveSheet.Cells(intI, 10) = oChild.nodeTypedValue
                End If
                If oChild.nodeName = "Tact" Then
                 ActiveSheet.Cells(intI, 11) = oChild.nodeTypedValue
                End If
 
 
       Next oElement
 
 
 
    Next
 
 
 Else
    MsgBox "Erreur ouverture document"
End If
 
 
End Sub

**gibba88** · 16/04/2012, 22h38

bonsoir ,quelqu'un pourait corriger mon programme? enfait je dois extraire des données d'un fichier xml et l'affiché sous Excel .

voici le fichier XML et en dessous vous trouverez mon programme d'extraction.

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
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
<?xml version="1.0" standalone="yes"?>
<TestUniverseExport xmlns="http://www.omicron.at/dataexport">
  <Test_Report>
    <TestReportID>395c9762-b371-4883-8be3-caed76ac8076</TestReportID>
    <Title>n/a</Title>
    <Subject>n/a</Subject>
    <Category>n/a</Category>
    <Keywords>n/a</Keywords>
    <DateTested>2012-04-04T08:21:07+02:00</DateTested>
    <UserField1>n/a</UserField1>
    <UserField2>n/a</UserField2>
    <UserField3>n/a</UserField3>
    <UserField19>n/a</UserField19>
    <UserField20>n/a</UserField20>
    <NumberModulesChecked>6</NumberModulesChecked>
    <NumberModulesPassed>6</NumberModulesPassed>
    <NumberModulesFailed>0</NumberModulesFailed>
  </Test_Report>
  <Seq_Measurement>
    <TestReportID>395c9762-b371-4883-8be3-caed76ac8076</TestReportID>
    <TestReportOrder>4</TestReportOrder>
    <MeasNumber>1</MeasNumber>
    <Assessment>NORESULT</Assessment>
  </Seq_Measurement>
  <Seq_Measurement>
    <TestReportID>395c9762-b371-4883-8be3-caed76ac8076</TestReportID>
    <TestReportOrder>12</TestReportOrder>
    <MeasNumber>1</MeasNumber>
    <Name>TPHA</Name>
    <IgnoreBefore>Défaut en TPHA</IgnoreBefore>
    <Start>Défaut en TPHA</Start>
    <Stop>Entr.bi. 1 1&gt;0</Stop>
    <Tnom>0.8</Tnom>
    <TdevN>0</TdevN>
    <TdevP>0.1</TdevP>
    <Tact>0.821</Tact>
    <Tdev>0.021</Tdev>
    <Assessment>PASSED</Assessment>
  </Seq_Measurement>
  <Seq_Measurement>
    <TestReportID>395c9762-b371-4883-8be3-caed76ac8076</TestReportID>
    <TestReportOrder>12</TestReportOrder>
    <MeasNumber>2</MeasNumber>
    <Name>TPHAEV</Name>
    <IgnoreBefore>Défaut en TPHAEV</IgnoreBefore>
    <Start>Défaut en TPHAEV</Start>
    <Stop>Entr.bi. 1 1&gt;0</Stop>
    <Tnom>0.2</Tnom>
    <TdevN>0</TdevN>
    <TdevP>0.1</TdevP>
    <Tact>0.2643</Tact>
    <Tdev>0.0643</Tdev>
    <Assessment>PASSED</Assessment>
  </Seq_Measurement>
  <Seq_Measurement>
    <TestReportID>395c9762-b371-4883-8be3-caed76ac8076</TestReportID>
    <TestReportOrder>21</TestReportOrder>
    <MeasNumber>1</MeasNumber>
    <Name>THA</Name>
    <IgnoreBefore>Défaut en TPVH</IgnoreBefore>
    <Start>Défaut en TPVH</Start>
    <Stop>ARR 1.1 1&gt;0</Stop>
    <Tnom>3</Tnom>
    <TdevN>0</TdevN>
    <TdevP>0.1</TdevP>
    <Tact>3.0369</Tact>
    <Tdev>0.0369</Tdev>
    <Assessment>PASSED</Assessment>
  </Seq_Measurement>
  <Seq_Measurement>
    <TestReportID>395c9762-b371-4883-8be3-caed76ac8076</TestReportID>
    <TestReportOrder>21</TestReportOrder>
    <MeasNumber>2</MeasNumber>
    <Name>THAEV</Name>
    <IgnoreBefore>Défaut en THAEV</IgnoreBefore>
    <Start>Défaut en THAEV</Start>
    <Stop>ARR 1.1 1&gt;0</Stop>
    <Tnom>0.2</Tnom>
    <TdevN>0</TdevN>
    <TdevP>0.1</TdevP>
    <Tact>0.2748</Tact>
    <Tdev>0.0748</Tdev>
    <Assessment>PASSED</Assessment>
  </Seq_Measurement>
  <Seq_Measurement>
    <TestReportID>395c9762-b371-4883-8be3-caed76ac8076</TestReportID>
    <TestReportOrder>28</TestReportOrder>
    <MeasNumber>1</MeasNumber>
    <Assessment>NORESULT</Assessment>
  </Seq_Measurement>
  <TM_Ramping>
    <TestReportID>395c9762-b371-4883-8be3-caed76ac8076</TestReportID>
    <TestReportOrder>8</TestReportOrder>
    <StateCount>3</StateCount>
    <Mode>Sorties CMC/Amplificateur</Mode>
    <StepCount>203</StepCount>
    <TotalTime>27.52</TotalTime>
    <ExecutionCount>1</ExecutionCount>
    <RampedSignal1>I  IA;IB;IC</RampedSignal1>
    <RampedSignal1Function>MAGNITUDE</RampedSignal1Function>
  </TM_Ramping>
  <TM_Ramping>
    <TestReportID>395c9762-b371-4883-8be3-caed76ac8076</TestReportID>
    <TestReportOrder>18</TestReportOrder>
    <StateCount>3</StateCount>
    <Mode>Sorties CMC/Amplificateur</Mode>
    <StepCount>53</StepCount>
    <TotalTime>187</TotalTime>
    <ExecutionCount>1</ExecutionCount>
    <RampedSignal1>U L1-E</RampedSignal1>
    <RampedSignal1Function>MAGNITUDE</RampedSignal1Function>
  </TM_Ramping>
  <Ramp_Setting>
    <TestReportID>395c9762-b371-4883-8be3-caed76ac8076</TestReportID>
    <TestReportOrder>8</TestReportOrder>
    <RampNumber>0</RampNumber>
    <RampName>Rampe 1</RampName>
    <Signal1From>0</Signal1From>
    <Signal1To>0</Signal1To>
    <Signal1Delta>0</Signal1Delta>
    <Signal1DDT>0</Signal1DDT>
    <DeltaTStep>0.1</DeltaTStep>
    <TotalSteps>1</TotalSteps>
    <TotalTime>0.1</TotalTime>
    <TriggerName>Aucun</TriggerName>
    <DelayTime>0</DelayTime>
    <StepBack>Non</StepBack>
  </Ramp_Setting>
  <Ramp_Setting>
    <TestReportID>395c9762-b371-4883-8be3-caed76ac8076</TestReportID>
    <TestReportOrder>8</TestReportOrder>
    <RampNumber>1</RampNumber>
    <RampName>Rampe 2</RampName>
    <Signal1From>1.9375</Signal1From>
    <Signal1To>1.9375</Signal1To>
    <Signal1Delta>0</Signal1Delta>
    <Signal1DDT>0</Signal1DDT>
    <DeltaTStep>3.3</DeltaTStep>
    <TotalSteps>1</TotalSteps>
    <TotalTime>3.3</TotalTime>
    <TriggerName>Aucun</TriggerName>
    <DelayTime>0</DelayTime>
    <StepBack>Non</StepBack>
  </Ramp_Setting>
  <Ramp_Setting>
    <TestReportID>395c9762-b371-4883-8be3-caed76ac8076</TestReportID>
    <TestReportOrder>8</TestReportOrder>
    <RampNumber>2</RampNumber>
    <RampName>Rampe 3</RampName>
    <Signal1From>3.4875</Signal1From>
    <Signal1To>4.2625</Signal1To>
    <Signal1Delta>0.003875</Signal1Delta>
    <Signal1DDT>0.032292</Signal1DDT>
    <DeltaTStep>0.12</DeltaTStep>
    <TotalSteps>201</TotalSteps>
    <TotalTime>24.12</TotalTime>
    <TriggerName>Bin </TriggerName>
    <DelayTime>0</DelayTime>
    <TriggerLogic>OU</TriggerLogic>
    <StepBack>Non</StepBack>
  </Ramp_Setting>
  <Ramp_Setting>
    <TestReportID>395c9762-b371-4883-8be3-caed76ac8076</TestReportID>
    <TestReportOrder>18</TestReportOrder>
    <RampNumber>0</RampNumber>
    <RampName>Rampe 1</RampName>
    <Signal1From>75</Signal1From>
    <Signal1To>75</Signal1To>
    <Signal1Delta>0</Signal1Delta>
    <Signal1DDT>0.1</Signal1DDT>
    <DeltaTStep>0.1</DeltaTStep>
    <TotalSteps>1</TotalSteps>
    <TotalTime>0.1</TotalTime>
    <TriggerName>Aucun</TriggerName>
    <DelayTime>0</DelayTime>
    <StepBack>Non</StepBack>
  </Ramp_Setting>
  <Ramp_Setting>
    <TestReportID>395c9762-b371-4883-8be3-caed76ac8076</TestReportID>
    <TestReportOrder>18</TestReportOrder>
    <RampNumber>1</RampNumber>
    <RampName>Rampe 2</RampName>
    <Signal1From>11.1482</Signal1From>
    <Signal1To>11.1482</Signal1To>
    <Signal1Delta>0</Signal1Delta>
    <Signal1DDT>0</Signal1DDT>
    <DeltaTStep>3.3</DeltaTStep>
    <TotalSteps>1</TotalSteps>
    <TotalTime>3.3</TotalTime>
    <TriggerName>Aucun</TriggerName>
    <DelayTime>0</DelayTime>
    <StepBack>Non</StepBack>
  </Ramp_Setting>
  <Ramp_Setting>
    <TestReportID>395c9762-b371-4883-8be3-caed76ac8076</TestReportID>
    <TestReportOrder>18</TestReportOrder>
    <RampNumber>2</RampNumber>
    <RampName>Rampe 3</RampName>
    <Signal1From>11.1482</Signal1From>
    <Signal1To>9.121255</Signal1To>
    <Signal1Delta>-0.040539</Signal1Delta>
    <Signal1DDT>-0.011261</Signal1DDT>
    <DeltaTStep>3.6</DeltaTStep>
    <TotalSteps>51</TotalSteps>
    <TotalTime>183.6</TotalTime>
    <TriggerName>Bin </TriggerName>
    <DelayTime>0.5</DelayTime>
    <TriggerLogic>OU</TriggerLogic>
    <StepBack>Non</StepBack>
  </Ramp_Setting>

--------------la partie que je dois extraire---------------------------

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
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
 <Measurements>
    <TestReportID>395c9762-b371-4883-8be3-caed76ac8076</TestReportID>
    <TestReportOrder>8</TestReportOrder>
    <MeasurementNumber>1</MeasurementNumber>
    <ExecutionNumber>1</ExecutionNumber>
    <MeasurementName>SEUIL</MeasurementName>
    <RampNumber>2</RampNumber>
    <RampedQuantity>I  IA;IB;IC</RampedQuantity>
    <Trigger>Entr.bi. 1 1-&gt;0</Trigger>
    <Nom>3.875</Nom>
    <Act>3.83625</Act>
    <NegativeTolerance>0.03875</NegativeTolerance>
    <PositiveTolerance>0.03875</PositiveTolerance>
    <Deviation>-0.0387</Deviation>
    <Assessment>PASSED</Assessment>
    <Tact>0.025</Tact>
  </Measurements>
  <Measurements>
    <TestReportID>395c9762-b371-4883-8be3-caed76ac8076</TestReportID>
    <TestReportOrder>18</TestReportOrder>
    <MeasurementNumber>1</MeasurementNumber>
    <ExecutionNumber>1</ExecutionNumber>
    <MeasurementName>SEUIL</MeasurementName>
    <RampNumber>2</RampNumber>
    <RampedQuantity>U L1-E</RampedQuantity>
    <Trigger>DJ fermé 1-&gt;0</Trigger>
    <Nom>10.134728</Nom>
    <Act>10.013111</Act>
    <NegativeTolerance>0.202695</NegativeTolerance>
    <PositiveTolerance>0.202695</PositiveTolerance>
    <Deviation>-0.1216</Deviation>
    <Assessment>PASSED</Assessment>
    <Tact>3.0368</Tact>
  </Measurements>
  ----------------------------------------------------------------------
  <Test_Object>
    <TestReportID>395c9762-b371-4883-8be3-caed76ac8076</TestReportID>
    <TestReportOrder>1</TestReportOrder>
    <Name>Paramètre Réglage</Name>
    <NumberPhases>3</NumberPhases>
    <Fnom>50</Fnom>
    <Vnom>100</Vnom>
    <Vprimary>110000</Vprimary>
    <Inom>1</Inom>
    <Iprimary>1000</Iprimary>
    <CTRatio>1000</CTRatio>
    <PTRatio>1100</PTRatio>
  </Test_Object>
  <FC_Name>
    <TestReportID>395c9762-b371-4883-8be3-caed76ac8076</TestReportID>
    <TestReportOrder>4</TestReportOrder>
    <StateNumber>1</StateNumber>
    <Name1>Etat1</Name1>
    <Name2>Sorties CMC/Amplificateur</Name2>
  </FC_Name>

voici le programme que j'ai fais .je dois extraire seulement la partie "Measurement" et l'affiché sur la feuille de calcul excel

Code vba :

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
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
Sub LectureXML2()
' LectureXML Macro
 
'
 
'
' AJOUTER la référence à Microsoft XML au projet.
'
 
Dim xmlDoc As New DOMDocument
Dim oNode As IXMLDOMElement
Dim oElement As IXMLDOMElement
xmlDoc.async = "false"
 
 
Dim oChildren As IXMLDOMNodeList
Dim oChild As IXMLDOMNode
Dim oRoot As IXMLDOMNode
 
'Charger le document e mémoire
 
If xmlDoc.Load("C:\Bureau\fichiers_exportés\doc.xml") Then
    For Each oNode In xmlDoc.getElementsByTagName("Measurements")
 
 
       ' compteur de lignes.
        intI = 5
         ' Supprimer les informations précédentes.
        'ActiveSheet.Cells(4, 1).CurrentRegion.ClearContents
        'ActiveSheet.Shapes(2).Delete
 
        ' en-têtes de colonnes.
        ActiveSheet.Cells(4, 1) = "MeasurementName"
        ActiveSheet.Cells(4, 2) = "RampNumber"
        ActiveSheet.Cells(4, 3) = "RampedQuantity"
        ActiveSheet.Cells(4, 4) = "Trigger"
        ActiveSheet.Cells(4, 5) = "Nom."
        ActiveSheet.Cells(4, 6) = "Act"
        ActiveSheet.Cells(4, 7) = "NegativeTolerance"
        ActiveSheet.Cells(4, 8) = "PositiveTolerance"
        ActiveSheet.Cells(4, 9) = "Deviation"
        ActiveSheet.Cells(4, 10) = "Assessment"
        ActiveSheet.Cells(4, 11) = "Tact"
 
 
        'Set oNode = xmlDoc.ChildNodes
        'Pour boucler dans les balises..
       For Each oElement In oNode.ChildNodes
 
               ' Passez par tous les noeuds filles de Measurement
                 Set oChildren = oElement.ChildNodes
 
                If oElement.nodeName = "MeasurementName" Then
                 ActiveSheet.Cells(intI, 1) = oElement.nodeTypedValue
                End If
                If oElement.nodeName = "RampNumber" Then
                 ActiveSheet.Cells(intI, 2) = oChild.nodeTypedValue
                End If
                If oChild.nodeName = "RampedQuantity" Then
                 ActiveSheet.Cells(intI, 3) = oElement.nodeTypedValue
                End If
                If oElement.nodeName = "Trigger>" Then
                 ActiveSheet.Cells(intI, 4) =oElement.nodeTypedValue
                End If
                If oElement.nodeName = "Nom." Then
                 ActiveSheet.Cells(intI, 5) = oElement.nodeTypedValue
                End If
                If oElement.nodeName = "Act" Then
                 ActiveSheet.Cells(intI, 6) = oElement.nodeTypedValue
                End If
                If oElement.nodeName = "NegativeTolerance>" Then
                 ActiveSheet.Cells(intI, 7) = oElement.nodeTypedValue
                End If
                If oElement.nodeName = "PositiveTolerance" Then
                 ActiveSheet.Cells(intI, 8) = oElement.nodeTypedValue
                End If
                If oElement.nodeName = "Deviation" Then
                 ActiveSheet.Cells(intI, 9) =oElement.nodeTypedValue
                End If
                If oElement.nodeName = "Assessment" Then
                 ActiveSheet.Cells(intI, 10) = oElement.nodeTypedValue
                End If
                If oElement.nodeName = "Tact" Then
                 ActiveSheet.Cells(intI, 11) = oElement.nodeTypedValue
                End If
 
 
       Next oElement
 
 
    Next
 
 
 Else
    MsgBox "Erreur ouverture document"
End If
 
 
End Sub

**Daranc** · 17/04/2012, 11h42

omicron n'exporte pas ses données en CSV

**hadd_reezy** · 30/04/2012, 11h37

Bonjour,

je suis également étudiant et pour mon projet, j'ai besoin d'extraire des données d'un fichier xml, pour les utiliser sous forme d'un tableau dans excel par la suite. J'utilise un logiciel qui s'appelle inSSIDer qui mesure la puissance des signaux wifi des alentours. Dans le fichier xml auquel j'ai accès, j'aimerais recueillir les données concernant plusieurs balises: nom de l'émetteur, puissance du signal, coordonnées gps, temps.

je vous joins un extrait du fichier xml en question:

<name>Panasonic Display1</name>
<Placemark>
<visibility>1</visibility>
<Style id="sn_shaded_dot">
<IconStyle>
<Icon>
<href>http://maps.google.com/mapfiles/kml/paddle/wht-blank.png</href>
</Icon>
<color>ffffffff</color>
<scale>2.46666666666667</scale>
</IconStyle>
<LabelStyle>
<color>ffffffff</color>
<scale>1</scale>
</LabelStyle>
</Style>
<name>Panasonic Display1: -63</name>
<description>Panasonic Display1 [BA:6D:5A:B9:4B:4A]
Open
-63dBm
Channel 11
GPS
Lat,Lon,Alt 0,0,0
Speed (km/h) 0
Time (UTC) 2012-04-12T12:39:47.825Z
Precision
Satellite Count 0
Fix Mode
VDOP 0
HDOP 0
PDOP 0
</description>

Sur cet exemple j'aimerais obtenir un fichier excel sous la forme:

Name Lat Long Alt Time RSSI
Panasonic Display1 0 0 0 12:39:825 -63dbm

Je ne m'y connais pas du tout en VBA, et j'ai vu à droite à gauche qu'utiliser des parseurs com DOM, ou SAX était peut être plus simple.
Pouvez vous me venir en aide s'il vous plait?
Merci d'avance

**hadd_reezy** · 02/05/2012, 15h29

Bonjour,

pour compléter mon message précédent, j'ai fais quelques recherches et j'ai décidé d'utiliser la bibliothèque TinyXML pour parser mon document en C++. Par contre j'ai toujours une question concernant l'obtention des données que je veux. Comment faire pour extraire les informations concernant la puissance, la latitude, longitude, altitude, et le temps sachant qu'elles ne sont pas explicitement des attributs du noeud description?

Merci pour votre aide.

extraction de donnees d'un fichier xml vers excel (vba)

Excel

Discussions similaires

Partager

Partager