[VBA] Problème de variable non définie

[Vaati]

Bonjour à tous
Je vous expose mon problème
J'ai trouvé un code pour calculer des temps de trajets (à l'aide de google map) , code que voici

Function get_driving_time(place_a, place_b)
my_xml_path = "http://maps.google.fr/maps?saddr=" & place_a & "&daddr=" & place_b & "&ie=utf-8&v=2.1&cv=4.0.2744&hl=fr&output=kml"
Set xmlDoc = CreateObject("MSXML2.DOMDocument")
xmlDoc.async = False
xmlDoc.Load (my_xml_path)
Set nodelist = xmlDoc.getElementsByTagName("description")
my_raw_string = nodelist.Item(nodelist.Length - 1).firstchild.nodevalue
get_driving_time = Monextract(my_raw_string, "environ ", ")")
get_driving_time = Replace(get_driving_time, "minutes", "")
If InStr(get_driving_time, "heure") = 0 Then get_driving_time = "00:" & get_driving_time
get_driving_time = Replace(get_driving_time, "heures", ":")
get_driving_time = Replace(get_driving_time, "heure", ":")
get_driving_time = get_driving_time & ":00"
get_driving_time = Replace(get_driving_time, " ", "")
get_driving_time = TimeValue(get_driving_time)
End Function

Function Monextract(machaine, debut, fin)
PosH1 = InStr(1, machaine, debut)
PosH2 = InStr(1, machaine, fin)
long_first = Len(debut)
Leng = PosH2 - PosH1 - long_first
Monextract = Mid(machaine, PosH1 + long_first, Leng)
End Function

cependant quand je l'exécute, le compilateur me sort une erreur 91 "Variable objet ou variable de bloc with non définie" en me pointant la ligne
my_raw_string = nodelist.Item(nodelist.Length - 1).firstchild.nodevalue


pourriez vous m'aider à résoudre ce problème?
En vous remerciant d'avance.

 

[Caillou]

Re : [VBA] Problème de variable non définie

Bonjour,

J'ai testé, ça marche!
Par contre on peut saisir des villes (entre guillemets et sans accent)
ou des codes-postaux (là sans guillemets)

Caillou

 

[Vaati]

Re : [VBA] Problème de variable non définie

Chez moi ca ne marche toujours pas , est ce que tu pourrais me dire quelles références tu as activé?
J'ai vu que la syntaxe était bonne, puisque j'arrive a récupérer le fichier kml à l'aide de l'addresse.
L'erreur est toujours la même et est toujours située au même endroit.

Merci pour la présente et les futures réponses

 

[Caillou]

Re : [VBA] Problème de variable non définie

Re,

Aucune référence partielle n'a besoin d'être activée. (j'ai fait le test sous Excel 2002)
A mon avis, ton problème vient de l'utilisation. Essayes ceci :
Dans Visual Basic Editor, Affichage/Fenêtre exécution, puis dans la fenêtre d'exécution, tapes:
?get_driving_time("bordeaux","paris")et appuies sur Entrée
Tu dois avoir ceci :
05:22:00

A+

 

[Vaati]

Re : [VBA] Problème de variable non définie

J'ai envoyé mon fichier à un ami qui a exécuté la macro, et chez lui ca marche, et le même fichier avec la même macro ne marche pas chez moi.
Je vais donc lui envoyer mon fichier pour qu'il génère mes résultats, arrêter l'informatique et me mettre au jardinage ma tour fera un tres joli pot pour des plans de tomates!

Merci Caillou pour ton aide.