Tester l'existence d'un attribut XML

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:

---

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

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 :)

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 ?

Re salut,

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

Code:

---

Set xmlAttrib = xmlDoc.getElementsByTagName("*")

---

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

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 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.