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
Set xmlDoc = CreateObject("Microsoft.XMLDOM")
Que j'y ajoute un élément à la racine ou non
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
addField( xmlDoc,Product,Valeur)
le code de la procédure
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
Partager