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.