Simplement parce que le xml comporte d'autres balises (de mises en forme ou autre) je ne veux parser que ceraines balises.
With Workbooks.OpenXML("D:\toto.xml").ActiveSheet
titi = .UsedRange
.UsedRange.EntireRow.Delete
.Range(.Cells(1, 1), .Cells(UBound(titi, 1), UBound(titi, 2))) = titi
End With
Workbooks.OpenXML "c:\toto.xml"
<document>
<description>
<webuser><![CDATA[xxx]]></webuser>
<code_lang><![CDATA[000]]></code_lang>
</description>
<styles>
<style nom="VA_TOOLTIP"> color: #5F7890; background-color: #FFFFFF;</style>
</styles>
<schema>
<champ nom="col0" lib="Saison" tooltip="Saison article" type="VARCHAR" nature="C" align="left" />
<champ nom="col1" lib="Article" tooltip="Article" type="VARCHAR" nature="C" align="left" />
<champ nom="col2" lib="Image article" tooltip="Image article" type="IMAGE" nature="I" align="left" />
</schema>
<data>
<enregistrement>
<col0><![CDATA[B2E]]></col0>
<col1><![CDATA[VAB001]]></col1>
<col2><![CDATA001.bmp]></col2>
</enregistrement>
</data>
<!-- 0 seconde(s), 3 colonne(s), enregistrement(s) -->
</document>
<!-- 0 seconde(s) -->
j'ai aussi un impératif de temps de traitement...
a met juste les colonnes dans l'ordre d'excel mais pas dans l'ordre des noeuds .. genre col1 ; col10;col11;col2;col21... si tu sais comment faire pour les mettre en 1,2,3,4...,10,11 ce serait magique, sinon je vais gratter
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionApplication.ScreenUpdating = false
...
... ton traitement
...
Application.ScreenUpdating = true
25 févr. 2015 à 20:21