Dim oCustXMLPart As CustomXMLPart
For Each oCustXMLPart In ThisWorkbook.CustomXMLParts
‘Debug.Print oCustXMLPart.SelectSingleNode(« /* »).BaseName
If (oCustXMLPart.SelectSingleNode(« /* »).BaseName = « SCH_DEF ») Then
Debug.Print oLANG_XMLPart.SelectSingleNode(« /SCH_DEF/ENGLISH/A11/LC_NB[@value=’3530’] »).Text
End If
Next
Je vais le modifier… Formatage du texte.