Dim oDOC As New MSXML2.DOMDocument Dim oNOEUD As MSXML2.IXMLDOMElement Dim oINSTRUCTION As MSXML2.IXMLDOMProcessingInstruction Set oDOC = Nothing Set oINSTRUCTION = oDOC.createProcessingInstruction("xml", "version='1.0' encoding='ISO-8859-1'") Call oDOC.insertBefore(oINSTRUCTION, oDOC.childNodes.Item(0)) Set oNOEUD = oDOC.createElement(sRootName) oNOEUD.setAttribute "Version", "0.1" oNOEUD.setAttribute "Date_Creation", Format(Now, "dd/mm/yyyy") oNOEUD.setAttribute "Heure_Creation", Format(Now, "hh:mm:ss") oDOC.appendChild oNOEUD oDOC.save sFile Set oINSTRUCTION = Nothing Set oNOEUD = Nothing Set oDOC = Nothing
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionSet oDoc = New MSXML2.DOMDocument 'par Set oDoc = New DOMDocument60