Discussion :

[doowy38]

Bonjour,

Dans ma macro je manipule un fichier XML, mais je ne sais pas comment faire pour tester si un attribut spécificque existe dans une balise spécifique.

En gros, le code ci-dessous en rouge ne marche pas mais c'est ce que je cherche à faire :

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
Sub EURUSD()

Dim xmlDoc, xmlAttrib
Dim i As Integer
Dim cond As Boolean
 
Set xmlDoc = CreateObject("Microsoft.XMLDOM")
xmlDoc.async = "false" ' loads file completely before doing anything on it
xmlDoc.Load ("http://www.ecb.europa.eu/stats/eurofxref/eurofxref-daily.xml")

Set xmlAttrib = xmlDoc.getElementsByTagName("Cube")
i = 0
cond = False

While cond = False
    If xmlAttrib(i).getAttribute("currency") <> Nothing Then
        If xmlAttrib(i).getAttribute("currency") <> "USD" Then
            i = i + 1
        Else
            cond = True
        End If
    Else
        i = i + 1
    End If
Wend

MsgBox xmlAttrib(i).getAttribute("rate")

Set xmlAttrib = Nothing
Set xmlDoc = Nothing

End Sub

Savez-vous comment faire ? Sur google je ne trouve rien qui s'applique au VBA...
Par avance merci

[Jean-Philippe André]

Salut,

en partant de l'item sur MSDN
http://msdn.microsoft.com/en-us/libr...=vs.85%29.aspx

j'ai tendance à penser que la valeur à tester ici serait soit "" (chaîne de caractères vide), soit Null.

La façon la plus simple de traiter le cas de figure ici (on part du principe qu'on ne sait pas quel type de valeur on obtient si pas de node Currency) :
- ajout d'un espion sur l'item pour voir la valeur contenue
- ajout d'un On Error GoTo ou On Error Resume Next avec test sur la valeur de Err

[doowy38]

Salut et merci jpcheck,

Entre-temps j'ai testé avec False et ça fonctionne (coup de chance).
Ceci dit, j'ai une question supplémenataire :

Dans le code que je donne, je ne parcours que les noeuds "Cube".
Mais est-il possible de parcourir toutes les balises du fichier XML, un par un ?
J'ai bien vu des méthodes pour parcourir les noeuds, puis les sous-noeuds, mais s'il y a des sous-sous-noeuds et des sous-sous-sous-noeuds etc. on ne s'en sort pas...

Sinon, encore plus simple, repérer la balise en fonction de la valeur de l'attribut currency, mais ça ne semble pas possible...

Des idées là-dessus ?

[doowy38]

Re salut,

J'ai trouvé la soution pour parcourir toutes las balises, une à une :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Set xmlAttrib = xmlDoc.getElementsByTagName("*")

Voilà mon code complet, avec en vert les corrections :

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
Sub EURUSD()

Dim xmlDoc, xmlAttrib
Dim i As Integer
Dim cond, find As Boolean
 
Set xmlDoc = CreateObject("Microsoft.XMLDOM")
xmlDoc.async = "false" ' loads file completely before doing anything on it
xmlDoc.Load ("http://www.ecb.europa.eu/stats/eurofxref/eurofxref-daily.xml")

Set xmlAttrib = xmlDoc.getElementsByTagName("*")
i = 0
cond = False
find = True

While cond = False
    If i < xmlAttrib.Length Then
        If xmlAttrib(i).getAttribute("currency") <> False Then
            If xmlAttrib(i).getAttribute("currency") <> "USD" Then
                i = i + 1
            Else
                cond = True
            End If
        Else
            i = i + 1
        End If
    Else
        cond = True
        find = False
    End If
Wend

If find = True Then
    MsgBox xmlAttrib(i).getAttribute("rate")
Else
    MsgBox "Could not find value"
End If

Set xmlAttrib = Nothing
Set xmlDoc = Nothing

End Sub

Je n'ai plus qu'à écrire la veleur dans une cellule (plutôt que faire une MsgBox), et faire un bouton pour déclencher la macro !

Merci jpcheck, et j'espère que ça pourra aider d'autres personnes.