[VBA]ajouter nouvelle Node a XML fichier

Bonjour
je veux avec VBA une Fichíer XML modifier:
le fichier existe deja et je veux ajouter une Node au milieux:
j´ai fais une image de mon Xml fichier et l´endroit de l´ajout.
je veux ajouter un nouveau Port:

Citation:

---

<P-PORT-PROTOTYPE>
<SHORT-NAME>PpDaCoNr</SHORT-NAME>
<PROVIDED-COM-SPECS></PROVIDED-COM-SPECS>
<PROVIDED-INTERFACE-TREF DEST="CALPRM-INTERFACE">/PortInterface/PiDaCoNr</PROVIDED-INTERFACE-TREF>
</P-PORT-PROTOTYPE>

---

je utilise MSXML2
es ce que c´est possible?
merci

Déjà posté là : http://www.developpez.net/forums/d12...e-xml-fichier/

mais c´est pour une document text, mon document et xml

j´ai utiliser cette code mais ca ne foctionne pas, j´ai une erreur dans la compilation,dans l´avant dernier ligne(4)

Code:

---

1 2 3 4 5

xmlDoc.LoadXML ("//TOP-LEVEL-PACKAGES/AR-PACKAGE/ELEMENTS/CALPRM-COMPONENT-TYPE/PORTS/P-PORT-PROTOTYPE") Set xmlNode = xmlDoc.SelectSingleNode("//TOP-LEVEL-PACKAGES/AR-PACKAGE/ELEMENTS/CALPRM-COMPONENT-TYPE/PORTS/P-PORT-PROTOTYPE") Set xmlElement = xmlDoc.createElement("port_test") xmlDoc.ChildNodes.NextNode.appendChild (xmlElement) xmlDoc.Save ("C:\temp Ordner\auf6\App.xml")

---