Bonjour,

Je travaille à la création d'un fichier Xml depuis une feuille Excel. Le traitement est assez complexe ce qui rend le code quelque peu touffu et j'aimerais l'aérer quelque peu en déléguant certaines opérations a des procédures.

Imaginons que dans le code principal je crée XmlDOc

Code : Sélectionner tout - Visualiser dans une fenêtre à part
Set xmlDoc = CreateObject("Microsoft.XMLDOM")
Que j'y ajoute un élément à la racine ou non

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
Set Products = xmlDoc.createElement("product")
xmlDoc.appendchild (Products)

Imaginons maintenant que je veuille déléguer la création d'autre éléments via une procédure genre addField(XmlDoc,element, valeur )
ou xmldoc ferait référence à l'objet xmlDoc crée dans le code principal et élément un élément crée précédemment comme product pour valeur il faudrait passer une chaine je suppose

par exemple dans le code principal


Code : Sélectionner tout - Visualiser dans une fenêtre à part
addField( xmlDoc,Product,Valeur)

le code de la procédure

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
Set Field = xmlDoc.createElement("field")
Product.appendchild (Field)
Field.setAttribute "id", "2106"
Set Value = xmlDoc.createElement("value")  
Field.appendchild (Value)
Value.Text = Valeur
le ou je bloque c'est comment déclarer la procédure pour lui passer comme arguments ( xmlDoc et element ) ?


Merci à vous