Calcul distance en voiture

[SALAH]

Bonjour le forum

J'ai un petit souci pour le calcul de km entre deux villes
à la place du resultat j' ai "plus d'infos"
Faut-il cocher quelque chose dans Outils et preference

Voir PJ

Merci pour votre aide

 

[R@chid]

Re : Calcul distance en voiture

Bonsoir,
Pourquoi faire compliqué quand on peut faire simple ??
Un simple B2-A2 fera l'affaire

@ + +

 

[Compte Supprimé 979]

Re : Calcul distance en voiture

Bonsoir Salah

Il faut surtout tout décocher
Tout ce qui est coché ne sert strictement à rien pour ce code !?

Le voici corrigé

Sub Test()
  For Each x In Sheets("Trajet").Range("A2:" & Sheets("Trajet").Range("A65536").End(xlUp).Address)
    Sheets("Feuil2").Cells.Clear
    Depart = x.Value
    Arrivee = x.Offset(0, 1).Value
    With Sheets("Feuil2").QueryTables.Add(Connection:="URL;http://maps.google.fr/maps?f=d&saddr=" & Depart & "&daddr=" & Arrivee, Destination:=Sheets("Feuil2").Range("A1"))
      .Name = "itinéraire"
      .BackgroundQuery = True
      .WebSelectionType = xlEntirePage
      .WebFormatting = xlWebFormattingNone
      .Refresh BackgroundQuery:=False
    End With


    'Set Result = Sheets("Feuil2").Cells.Find("Itinéraire en voiture")
    Set Result = Sheets("Feuil2").Cells.Find("Itinéraires possibles")
    If Result Is Nothing Then
      x.Offset(0, 2) = "Itinéraire non trouvé !"
    Else
      x.Offset(0, 2) = Result.Offset(1, 0)
      'X.Offset(0, 3).FormulaR1C1 = "=LEFT(RC[-1],FIND("" km"",RC[-1]))*1" 'Solution 1
      x.Offset(0, 3) = Left(x.Offset(0, 2), InStr(1, x.Offset(0, 2), " km"))  'Solution 2
    End If
  Next
End Sub

A+

 

[Compte Supprimé 979]

Re : Calcul distance en voiture

Salut L'ami R@chid,

Tu n'as pas dû tout lire, ce sont des codes postaux !?

A+

 

[SALAH]

Re : Calcul distance en voiture

Bonjour le Forum,BrunoM45, R@achid

J' ai tout décocher et cela marche parfaitement sa faisait des jours que je suis dessus Par contre y a t il moyen d'utiliser viamichelin plutot que google maps

Merci

 

[Compte Supprimé 979]

Re : Calcul distance en voiture

Re,

A ma connaissance, ce n'est pas possible sur viamichelin (dommage pour eux)

A+

 

[SALAH]

Re : Calcul distance en voiture

Bonjour le forum

BrunoM45
Ok pour viamichelin, pourrait on séparer les kms et le temps parcouru ?

Merci

 

[Compte Supprimé 979]

Re : Calcul distance en voiture

Re,

Je te renverrais bien vers ce sujet
https://www.excel-downloads.com/thr...nce-entre-deux-villes-via-google-maps.106712/

Dis nous

 

[SALAH]

Re : Calcul distance en voiture

bonjour le forum, R@achid, BrunoM45

Merci je vais jeter un coup d' oeil

Merci encore