Discussion :

[opinette]

Bonjour,

Je cherche à importer un fichier de données XML dans une feuille EXCEL version 2000.

Les fonctionnalités XML, comme XMLImport ne sont helas disponibles qu'à partir de la version 2003 de d'Excel!

Je cherche donc à faire exactement la même chose que la methode XMLImport mais sans elle et en Excel 2000.

Si vous avez des astuces, codes VBA ou autre idées, ... je suis preneur

D'avance un grand Merci

[opinette]

La solution la plus simple pour moi a été d'utiliser l'analyseur Microsoft XML (MSXML).

Ex de code:

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
Sub XMLImport2000(Doc As String)
Dim xmlDoc As DOMDocument
Dim root_node As IXMLDOMElement
Dim i As Long
Dim j As Long
 
Set xmlDoc = New DOMDocument
 
xmlDoc.async = False
xmlDoc.Load Doc
 
Set root_node = xmlDoc.documentElement
 
For j = 0 To root_node.childNodes.Length - 1 'lecture de tous les enregistrements
   For i = 0 To root_node.childNodes.Item(j).childNodes.Length - 1
    If j = 0 Then
        Cells(1, i + 1).Font.Bold = True
        Cells(1, i + 1) = root_node.childNodes.Item(j).childNodes.Item(i).nodeName
    End If
    Cells(j + 2, i + 1) = root_node.childNodes.Item(j).childNodes.Item(i).nodeTypedValue
   Next
Next
 
End Sub

Note: Attention car des versions différentes de MSXML sont comprises dans différents produits Microsoft tels que Microsoft Windows, Microsoft Internet Explorer, Microsoft Office... MSXML est également mis à jour lorsque vous installez des mises à jour logicielles pour un certain nombre de produits Microsoft.
http://support.microsoft.com/kb/269238