Inserer des commentaires dans un fichier XML

[Creepy]

Bonjour à toutes & tous,

Je cherche à inserer un commentaire dans un fichier XML que je crée mais je n'y arrive pas !

Et voici mon code :

Sub test()
'On définit xml : c'est lui qui contiendra le document final xml
Dim Xml As New MSXML2.DOMDocument40
'xdoc est l'élément principal : ici le fichier
Dim Xdoc As IXMLDOMElement
 'les différentes 'entrées'
Dim Xheader As IXMLDOMElement, Xconfig As IXMLDOMElement, Xtemp As IXMLDOMElement
'Call Etat_Mlp
'On crée l'élément principal différent pour chaque fichier = en-tête
Set Xdoc = Xml.createElement('test') 'Noeuds)
'On modifie ses attributs : contenus dans la balise
' Petit coup de date pour la maintenace
Dim Comment As IXMLDOMComment
Set Comment = Xml.createComment('This is a comment.')
Dim Aa As IXMLDOMElement
Xdoc.setAttribute 'DATE', Format(Now, 'dd/mm/yyyy hh:mm')
Set Xtemp = Xml.createElement('FICHIER') ' Creation du premier parent
Xtemp.setAttribute 'NOM', 'Test Nom'
   
Set Xconfig = Xtemp
Xdoc.appendChild Xtemp 'Et hop, xtemp est un fils de FICHIER
Set Xtemp = Xml.createElement('VERSION')
Xtemp.Text = 'Test Version'
Xconfig.appendChild Xtemp 'Sous branche de Fichier
Set Xtemp = Xml.createElement('CHEMIN_RESEAU')
Xtemp.Text = 'test rep'
Xconfig.appendChild Xtemp
'Puis on définit l'élément principal de xml comme étant xdoc
Set Xml.documentElement = Xdoc
'Et on enregistre le tout dans un fichier
Xml.save 'C:\\\\Documents and Settings\\\\Datser17\\\\Bureau\\\\test.xml'
End Sub

Comment faire ?

Merci d'avance de votre aide

Creepy

Message édité par: Creepy, à: 27/06/2006 17:02

PS EDIT : Impossible de mettre des balises XML le forum les interprete. L'exemple de mon XML est en PJ désolé !

Message édité par: Creepy, à: 27/06/2006 17:06

 

[Creepy]

Re all,

Pfff la galère !!!

Voila en PJ mon fichier

Erffff je suis bête c'est vrai que les PJ ont été stoppées !!!

Rohhhh le boulet !!!

Bref donc je veux inserer des commentaire dans mon fichier XML en VBA.

Merci

@+

Creepy

 

[Temjeh]

Bonjour

Je ne comprend pas trop ton code mais pour insert comment j'avais ceci:

Dim MyCmt As String
Dim LaCell As Range
Set LaCell = Application.InputBox('Cliquez sur une cellule', Default:=ActiveCell.Address, Type:=8)

MyCmt = InputBox('Inscrivez votre commentaire')
On Error Resume Next

With LaCell
.AddComment
With .Comment
.Visible = True
.Text Text:=MyCmt
End With
End With

A+

Temjeh

Message édité par: temjeh, à: 27/06/2006 18:28

 

[MichelXld]

bonjour chers Creepy et Temjeh

tu peux tester cette synthaxe

Dim Cmt As IXMLDOMComment
Set Cmt = objDOM.createComment('This is a comment.')
Set Cmt = objDOM.insertBefore(Cmt, objDOM.childNodes.Item(0))


bonne soiree
MichelXld

 

[Creepy]

Bonjour à toutes & tous,

Merci bcp michel pour ton aide ca marche impeccable.

Temjeh désolé mais je crois qu'il y a eu incomprehension, je souhaite créer des commentaires dans un ficheir XML directement !

Bonne journée

Creepy