Bonjour a tous j'ai un probleme avec mon parseur xml
il fonctionne correctement sauf lorsque j'arrive à une balise vide il me créer un erreur car normalement je dois récuperer les infos se trouvant entre les balises dans un tableau de type string or arrivé à la balise ou il n'y a pas d'infos le tableau ne récupère rien il me créer object not set .
j'ai essayé d'y remedié avec une condition si "" alors on fait cela mais rien a faire est-ce qu'il y aurait une methode pour régler ce pbm.
Merci.

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
 
 
If Enfants_de_mv.nodeName = "moid" Then
 
'ActiveSheet.Cells(intL, 3).Value = Enfants_de_mv.nodeTypedValue
 'intL = intL + 1
 
 ReDim Preserve tab_moid(1 To i_moid)
 
 
' *********cas ou on est dans les balise ou il n'y a pas de tetxe            
 
   If Enfants_de_mv.nodeTypedValue = "" Then
 
                tab_moid(i_moid) = ""
                  i_moid = i_moid + 1
 
   End If
 '*****************************************                                                
 
 tab_moid(i_moid) = Enfants_de_mv.nodeTypedValue
 
   i_moid = i_moid + 1
 
   'End If
 
    End If
 
 
 
 
intL = 7
 
                    For i_moid = LBound(tab_moid) To UBound(tab_moid)
                    ActiveSheet.Cells(intL, 3).Value = tab_moid(i_moid)
 
                    intL = intL + 1
 
                    Next i_moid
 
                    Erase tab_moid