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