XL 2021 Vol d'oiseau - impossible de récupérer une donnée

[JLE]

Bonjour le Forum,

Ca doit être tout bête mais dans la macro suivante, je n'arrive pas à récupérer la donnée 'kmslinearecta' car elle ne ressort pas dans la requête alors que sur le web elle bien présente.

Public Const DIST = "http://www.distance2villes.com/recherche?source="
Sub Dstce()
            Url = DIST & "Paris" & "&destination=" & "Lille"
            With CreateObject("WINHTTP.WinHTTPRequest.5.1")
                .Open "GET", Url, False
                .send
                Txt = .responseText
            End With
            Range("E2").Value = Split(Split(Txt, "id=""distanciaRuta"">")(1), "</strong>")(0)
            Range("F2").Value = Split(Split(Txt, "id=""kmslinearecta"">")(1), "</strong>")(0) '--> ne récupère rien !? Grrrr
            Range("G2").Value = Split(Split(Txt, "id=""tiempo"">")(1), "</span>")(0)
End Sub

Vous avez une idée svp ?
Merci pour vos réponses.

 

[wDog66]

Bonjour JLE,

Cela me semble logique, puisque la ligne retournée est

<p id="results" style="clear:both">Il ya <strong id="kmslinearecta"></strong> de distance entre <strong class="origenName"></strong> et <strong class="destinoName"></strong> et il ya <strong id="distanciaRuta">220 km</strong> par la route.</p>

Vous pourrez constater que le nombre de Kms n'est pas indiqué

A+

 

[JLE]

Bonjour,

Et merci pour votre réponse.
J'avais fait le même constat, c'est pourquoi j'ai écrit sur ce forum.

N'y a t il pas une solution pour récupérer cette information tout de même (car elle apparait belle et bien sur le site !) ?

 

[gbinforme]

Vous avez une idée svp ?

Comme tu dis c'est tout bête car "id=""kmslinearecta"">") est créé vide puis affiché par une fonction javascript et donc dans ton texte récupéré il est vide.

 

[wDog66]

Bonjour le fil,

Voici un fichier avec seulement des formules 😜
qui permet de calculer la distance vol d'oiseau entre 2 villes

La v1 contient des fonctions qui ne fonctionnent que sur O365
La v2 contient des fonctions classiques et fonctionne sur Excel 2013 et postérieur

A+

 

[JLE]

Bonjour,

Merci pour vos réponses.
Malheureusement, le fichier ne semble pas fonctionné quand on change le code postal et la ville :

Ce n'est pas grave, car j'ai trouvé un autre moyen de faire ce que je voulais.
Merci à http://tatiak.canalblog.com/.
Grâce à son exemple j'ai pu récupérer de façon plus simple le temps, le km routier et le km oiseau.

Ci-joint le fichier.

Merci à tous !
JLE

 

[wDog66]

Re,

Le problème vient je pense de votre version d'Excel que vous n'avez pas indiqué dans votre profil 🙄
Ou du fait que vous n'avez pas activé le message en jaune, car ça fonctionne sans souci 😁

 

[Phil69970]

Bonjour à tous

@wDog66

Et ou est Récup2 ???

=CNUM(SUBSTITUE(GAUCHE([@Récup2];CHERCHE(",";[@Récup2])-1);".";","))

 

[JLE]

Re,.

Re,

Le problème vient je pense de votre version d'Excel que vous n'avez pas indiqué dans votre profil 🙄
Ou du fait que vous n'avez pas activé le message en jaune, car ça fonctionne sans souci 😁
Regarde la pièce jointe 1197004

Dans le titre de cette discussion, il y a la version d'Excel utilisée.
Et j'ai bien activé l'ensemble des demandes d'Excel (modification et serviceweb) à l'ouverture.
Je viens de réessayer, et je confirme que ça ne fonctionne pas chez moi (ce qui n'est pas grave en soi).

Bonjour à tous

@wDog66

Et ou est Récup2 ???

Il y a des colonnes masquées.

 

[Phil69970]

J'avais pas vu les colonnes masquées 😵
Ne fonctionne pas avec ma version d'excel, doit fonctionner avec 365 et peut être 2021

 

[wDog66]

Re,

Re,.
Dans le titre de cette discussion, il y a la version d'Excel utilisée.
Et j'ai bien activé l'ensemble des demandes d'Excel (modification et serviceweb) à l'ouverture.
Je viens de réessayer, et je confirme que ça ne fonctionne pas chez moi (ce qui n'est pas grave en soi).

Désolé, je ne m'y fais pas à cette version dans le titre, du coup je ne la vois pas 🤭

La V1 fonctionne uniquement sur O365, désolé 😉
Mais la V2 fonctionne avec la version 2013 et supérieure 😉

A+

 

[JLE]

Re,

Désolé, je ne m'y fais pas à cette version dans le titre, du coup je ne la vois pas 🤭

La V1 fonctionne uniquement sur O365, désolé 😉
Mais la V2 fonctionne avec la version 2013 et supérieure 😉

A+

Ca fonctionne effectivement , merci pour ce retour 🙂