J'ai un XML Comme suit
j'utilise la fonction
(ajout de la Réference = Microsoft XML, V3)
Dim sXMLFile As DOMDocument30
Set sXMLFile = New DOMDocument30
x = sXMLFile.selectSingleNode("//PRODUCT").Text
Mais comme j'ai plusieurs "PRODUCT" je n'arrive pas a faire boucler le programme pour qu'il lise chacune des infos qui sont contenues dans le XML et pour pouvoir les stocker dans une DB
<?xml version="1.0" encoding="UTF-8" ?>
- <FWLABJOB>
- <ORDER>
+ <ORDERINFO>
<ORDERID>126504</ORDERID>
<ORDERDATE>20040405</ORDERDATE>
<PLATFORM>TrucMuch</PLATFORM>
</ORDERINFO>
+ <CUSTOMERINFO>
<TITLE>M.</TITLE>
<FIRSTNAME>Nicolas</FIRSTNAME>
<LASTNAME>Coucou</LASTNAME>
<ADDRESS1>Rue</ADDRESS1>
<ZIPCODE>98230</ZIPCODE>
<CITY>PERWEZ</CITY>
<COUNTRY>France</COUNTRY>
<PHONE>000000000</PHONE>
</CUSTOMERINFO>
+ <PAYMENTINFO>
<PAYMENTMEAN />
<CURRENCY>EUR</CURRENCY>
<NETTAXES>11.16</NETTAXES>
<SHIPPINGPRICE>1.24</SHIPPINGPRICE>
<VAT>2.34</VAT>
<ATI>13.50</ATI>
<VATRATE>20.6</VATRATE>
<GIFT>0</GIFT>
</PAYMENTINFO>
+ <SHIPPINGINFO>
<SHIPPINGMODE>Standard</SHIPPINGMODE>
<TITLE>M.</TITLE>
<FIRSTNAME>Nicolas</FIRSTNAME>
<LASTNAME>coucou</LASTNAME>
<COMPANY>MAMAISON</COMPANY>
<ADDRESS1>chee</ADDRESS1>
<ZIPCODE>11703</ZIPCODE>
<CITY>BOITard</CITY>
<COUNTRY>France</COUNTRY>
</SHIPPINGINFO>
- <PRODUCT>
<PRODUCTID>AA</PRODUCTID>
<LABEL>Tirage(s) 10x15</LABEL>
<QUANTITY>2</QUANTITY>
<FILENAME>AA_126504_0000_2.JPG</FILENAME>
<COMPANY>Gauth</COMPANY>
<SERVICE />
</PRODUCT>
- <PRODUCT>
<PRODUCTID>AA</PRODUCTID>
<LABEL>Tirage(s) 10x15</LABEL>
<QUANTITY>2</QUANTITY>
<FILENAME>AA_126504_0001_2.JPG</FILENAME>
<COMPANY>Gauth</COMPANY>
<SERVICE />
</PRODUCT>
+ <PRODUCT>
<PRODUCTID>AA</PRODUCTID>
<LABEL>Tirage(s) 10x15</LABEL>
<QUANTITY>2</QUANTITY>
<FILENAME>AA_126504_0002_2.JPG</FILENAME>
<COMPANY>Gauth</COMPANY>
<SERVICE />
</PRODUCT>
</ORDER>
</FWLABJOB>