Corrigé 19.6 Lire directement un fichier XML
Sub NomRando()
Dim strNomRando As String
Dim objetXML As MSXML2.DOMDocument60
Dim strCheminRessources As String
Dim noeudname As MSXML2.IXMLDOMElement
Dim blnOK As Boolean
...