slt world,
soit le xml suivant à générer en vba:
avec le code vba suivant
je ne vois pas pourquoi il est impossible de créer l'élément metadata et de lui attribuer des attributs
si quelqu'un peut m'expliquer ou se trouve mon erreur je lui serai très reconnaissant
soit le xml suivant à générer en vba:
Code:
<?xml version="1.0" encoding="UTF-8"?>
<File att1="http://" att2="1.5" att3="fichier.txt" att4="2014-04-29" att5="" att6=".xls">
<metadata att1="MAC" att2="0" att3="portable/tour" att4="5" att5="23">
<nomOrder att1="or" att2="il" />
<routage>
<secretfait att1="08" att2="mc" att3="50" att3="1" att4="0"/>
<nom att="0" att2="0" att3="0">
<cle att1="0" att2="None" att3="0"><acle att1=" " att2="Interdit" att3=""/></cle>
</nom>
</routage>
<Mod att1="0" att2="0" att3="bb" att4="ff"/>
</metadata>
</File>
avec le code vba suivant
Code:
Private Sub Form_Load()
Dim dom, node, attr, root
On Error GoTo ErrorHandler
Set dom = CreateDOM
' creation du preprocesseur.
Set node = dom.createProcessingInstruction("xml", "version='1.0' encoding='UTF-8'")
dom.appendChild node
Set node = Nothing
Set root = dom.createElement("File")
' création de l'émément racine et attributions des attributs
Set attr = dom.createAttribute("att1")
attr.Value = "http://"
root.setAttributeNode attr
Set attr = Nothing
Set attr = dom.createAttribute("att2")
attr.Value = "1.5"
root.setAttributeNode attr
Set attr = Nothing
Set attr = dom.createAttribute("att3")
attr.Value = "fichier.txt"
root.setAttributeNode attr
Set attr = Nothing
Set attr = dom.createAttribute("att4")
attr.Value = "2014-04-29"
root.setAttributeNode attr
Set attr = Nothing
Set attr = dom.createAttribute("att5")
attr.Value = ""
root.setAttributeNode attr
Set attr = Nothing
Set attr = dom.createAttribute("att6")
attr.Value = ".xsl"
root.setAttributeNode attr
Set attr = Nothing
' ajout d'un element et de ces sous elements.
Set node = dom.createElement("metadata")
Set frag = dom.createDocumentFragment
' Add a newline + tab + tab.
frag.appendChild dom.createTextNode(vbNewLine + vbTab + vbTab)
frag.appendChild dom.createElement("nomOrder")
' Set attr = frag.appendChild.createAttribute("routage")
' attr.Value = ""
'frag.setAttributeNode attr
Set attr = Nothing
root.appendChild node
' saut de ligne
root.appendChild dom.createTextNode(vbNewLine)
Set node = Nothing
' Savegarde du document xml sur le hdd.
dom.Save ("c:\temp\dynamDom.xml")
Set root = Nothing
Set dom = Nothing
Exit Sub
ErrorHandler:
MsgBox Err.Description
End Sub
je ne vois pas pourquoi il est impossible de créer l'élément metadata et de lui attribuer des attributs
si quelqu'un peut m'expliquer ou se trouve mon erreur je lui serai très reconnaissant