charly2812
Messages postés37Date d'inscriptionmercredi 1 mars 2006StatutMembreDernière intervention22 mai 2008
-
11 mai 2008 à 17:39
charly2812
Messages postés37Date d'inscriptionmercredi 1 mars 2006StatutMembreDernière intervention22 mai 2008
-
12 mai 2008 à 16:00
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
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