Passage de paramétre procedure

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:

---

Set xmlDoc = CreateObject("Microsoft.XMLDOM")

---

Que j'y ajoute un élément à la racine ou non

Code:

---

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:

---

addField( xmlDoc,Product,Valeur)

---

le code de la procédure

Code:

---

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