Recuperer tout les données de fichier xml dans une feuile excel

Dim wks As Worksheet
 
Private Sub BrowseChildNodes(root_node As IXMLDOMNode)
    Dim i As Long
    Dim c As Long
    Dim rng As Range
 
    For i = 0 To root_node.ChildNodes.Length - 1
        If root_node.ChildNodes.Item(i).NodeType <> 3 Then
            If wks.UsedRange.Cells.Count = 1 Then
                Set rng = wks.Cells(1)
            Else
                Set rng = wks.Cells(wks.UsedRange.Rows.Count + 1, 1)
            End If
            With rng
                .Value = root_node.ChildNodes.Item(i).BaseName
                .Offset(0, 1).Value = root_node.ChildNodes.Item(i).nodeTypeString
                .Offset(0, 2).Value = root_node.ChildNodes.Item(i).NodeValue
                .Offset(0, 3).Value = root_node.ChildNodes.Item(i).Node
                For c = 0 To root_node.ChildNodes.Item(i).Attributes.Length - 1
                   .Offset(0, c + 4).Value = root_node.ChildNodes.Item(i).Attributes.Item(c).BaseName
                   .Offset(0, c + 5).Value = root_node.ChildNodes.Item(i).Attributes.Item(c).NodeValue
               Next c
            End With
        End If
        BrowseChildNodes root_node.ChildNodes(i)
    Next
End Sub
 
Private Sub BrowseXMLDocument(ByVal filename As String)
    Dim xmlDoc As DOMDocument, root As IXMLDOMElement
    Dim i As Long
    Dim c As Long
 
    Set xmlDoc = New DOMDocument
    xmlDoc.async = False
    xmlDoc.Load filename
    Set root = xmlDoc.DocumentElement
    If Not root Is Nothing Then
        If wks.UsedRange.Cells.Count = 1 Then
            Set rng = wks.Cells(1)
        Else
            Set rng = wks.Cells(wks.UsedRange.Rows.Count + 1, 1)
        End If
        With rng
            .Value = root.BaseName
            .Offset(0, 1).Value = root.nodeTypeString
            .Offset(0, 2).Value = root.NodeValue
            .Offset(0, 3).Value = root.Text
            For c = 0 To root.Attributes.Length - 1
             .Offset(0, c + 4).Value = root.Attributes.Item(c).BaseName
             .Offset(0, c + 5).Value = root.Attributes.Item(c).NodeValue
            Next c
        End With
        BrowseChildNodes root
    End If
    wks.Cells(1).EntireRow.Insert xlShiftDown
    With wks.Cells(1)
        .Value = "baseName"
        .Offset(0, 1).Value = "nodeTypeString"
        .Offset(0, 2).Value = "nodeValue"
        .Offset(0, 3).Value = "text"
        c = 1
        For i = 4 To wks.UsedRange.Columns.Count - 1 Step 2
            .Offset(0, i).Value = "attribute" & c
            .Offset(0, i + 1).Value = "Value" & c
            c = c + 1
        Next i
    End With
    wks.Rows(1).Font.Bold = True
End Sub
 
Sub test()
    Set wks = Worksheets("Feuil28")
    BrowseXMLDocument "C:\Desktop\XML\211_DW10F-TTAP_EURO6.3_20200130_HH_V7_BROUILLON.XML"
End Sub