Discussion :

[pijaku]

Le principe :
1- on cible le parent des font que tu cherches, ici Style grâce à : .SelectSingleNode("/Workbook/Styles/Style")
2- on récupère tous les noeuds enfant de ce Noeud "cible" se nommant "Font", grâce à : .SelectNodes("Font")
3- on boucle sur la collection des noeuds Font ayant comme parent Style
4- On récupère les attributs grâce à la collection Attributes
5- on boucle sur les attributs et on récupère leur nom et leur valeur (grâce à getAttribute)

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
25
26
27
28
29
30
31
32
33
34
Option Explicit
 
Public Sub AccessNode()
Dim MyXml As New MSXML2.DOMDocument
Dim Noeuds As IXMLDOMNodeList
Dim NoeudCible As IXMLDOMNode
Dim Noeud As IXMLDOMElement
Dim Attributs As IXMLDOMNamedNodeMap    'Collection
Dim A As IXMLDOMAttribute               'Pour boucler sur la collection
Dim vOut As String
 
    With MyXml
        If Not .LoadXML(Replace(Range("a1").Value(xlRangeValueXMLSpreadsheet), "ss:Data", "Data")) Then Err.Raise .parseError.ErrorCode, , .parseError.reason
        'accès au Noeud :
            '<Workbook>
                '<Styles>
                    '<Style>
        Set NoeudCible = .SelectSingleNode("/Workbook/Styles/Style")
        If Not NoeudCible Is Nothing Then
            Set Noeuds = NoeudCible.SelectNodes("Font")
            For Each Noeud In Noeuds
                Set Attributs = Noeud.Attributes
                For Each A In Attributs
                    vOut = Noeud.getAttribute(A.Name)
                    Debug.Print A.Name & "  " & vOut
                Next
            Next
        End If
    End With
    Set NoeudCible = Nothing
    Set Attributs = Nothing
    Set Noeud = Nothing
    Set MyXml = Nothing
End Sub

[Invité]

Bonjour,

[pijaku]

@Robert :


@Patrick :
Peut-être as tu recherché l'attribut "FontName" au lieu de "ss:FontName"...

J'ai fait une contribution (encore incomplète, mais qui attends vos désidératas) à ce sujet : ==ICI==