Vérifier un fichier XML

Signaler
Messages postés
37
Date d'inscription
mercredi 1 mars 2006
Statut
Membre
Dernière intervention
22 mai 2008
-
Messages postés
37
Date d'inscription
mercredi 1 mars 2006
Statut
Membre
Dernière intervention
22 mai 2008
-
Bonjour à tous.
J'ai un problème avec la gestion des fichiers XML à l'aide de VBA.
voici un bout de code qui me permet de charger une étude.

Sub ChargerEtude(source As String)

Dim parser As DOMDocument

Set parser = CreateObject("Microsoft.XMLDOM")
parser.async = False
parser.Load (source)

'Changement de page, (pour etre sur)
wsControle.Activate

Call VerifierXML("""InfoEtude""", """EtudeRefClient""", 0)
Range("rgEtudeRefClient") = VarGlobale.getaa

end sub

Function VerifierXML(balise1 As String, balise2 As String, valeurDefaut As String)
Dim parser As DOMDocument

VarGlobale.setaa ("parser.documentElement.selectSingleNode(" & balise1 & ").selectSingleNode(" & balise2 & ").Text")

End Function

Voila.
le problème est que ce code écrit dans la cellule "rgEtuderefclient": parser.documentElement.selectSingleNode("InfoEtude").selectSingleNode("EtudeRefClient").text
alors que je voudrais que ca ecrive la valeur qui est dans le fichier XML.

pour info si j'ecris directement ça, ça fonctionne nickel...
'Range("rgEtudeRefClient") = parser.documentElement.selectSingleNode("InfoEtude").selectSingleNode("EtudeRefClient").Text

Où est le problème???
Merci beaucoup.

1 réponse

Messages postés
37
Date d'inscription
mercredi 1 mars 2006
Statut
Membre
Dernière intervention
22 mai 2008

up, quelq'un a une idée?
merci.