Discussion :

[lesteph]

Bonjour,

J'ai un problème pour créer un nouveau nouveau noeud dans une arborescence XML avec VBA Excel.

J'utilise le code VBA suivant :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
 
...
    Set node_u_rOB_X = node_Type.SelectSingleNode(DefinitionNodeName)
 
    If node_u_rOB_X Is Nothing Then
        Set node_u_rOB_X = xmlDoc.createElement(DefinitionNodeName)
        node_Type.appendChild (node_u_rOB_X)
    Else
...

Si je déclare ma variable node_u_rOB_X :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 
Dim node_Type As MSXML2.IXMLDOMNode
Dim node_u_rOB_X As MSXML2.IXMLDOMNode
ou
Dim node_u_rOB_X As MSXML2.IXMLDOMElement

J'ai l'erreur suivante lors de l'appel de la méthode appendChild :

Erreur d’exécution 438, propriété ou méthode non gérée par cet objet.

J'ai la même erreur si je code comme cela :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

node_Type.appendChild (xmlDoc.createElement(DefinitionNodeName))

Mais si je déclare ma variable :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Dim node_u_rOB_X As Variant

Ca fonctionne !
Et lorsque je regarde le type de ma variable node_u_rOB_X avec le debuggeur(espion) celle-ci est déclarée IXMLDOMElement après la commande Set !??

Est-ce un bug de la librairie Microsoft XML ou est-ce moi qui suis à côté de la plaque ?

J'utilise Excel 2007 sous Windows 7 64bits


Stéphane

[lesteph]

Il suffit de passer le paramètre à la méthode appendChild sans les ( )

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

node_Type.appendChild node_u_rOB_X

et dans ce cas je peux utiliser ma variable de type MSXML2.IXMLDOMNode



Je ne suis pas un pro VBA, je fais plutôt dans le C et C++, donc il y a surement une explication logique à ce K. Mais si je pouvais avoir une explication afin de combler mon manque je serais super content.

Merci Stéphane

[francis60]

il y a surement une explication logique à ce K

les parenthèses indiquent un passage d'argument par valeur (Forçage de ByVal par opposition à ByRef mode par défaut)

Les parenthèses ont dû rendre ton paramètre non modifiable en retour, je pense.

Je crois même me souvenir - mais il faudrait que je recherche le K - qu'il existe des exceptions où même en spécifiant ByRef dans la définition, le code n'en tient pas compte et ne modifie pas l'argument passé en référence par le code appelant et sans message d'alerte.

Un tableau résumé des modes d'appel

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
                               Function              Sub
Sans Call    ByRef            F(a,b)               S a, b
Sans Call    ByVal forcé      F((a), (b))          S (a), (b)
Avec Call    ByRef            Call F((a), (b))     Call S(a, b)
Avec Call    ByVal forcé      Call F(a, b)         Call S((a), (b))

On peut aussi combiner: S a, (b), c
Avec Call la fonction ne retourne rien.

Bienvenue @VBA