Discussion :

[phoenix974]

Bonjour

J'aimerai votre aide pour solutionner mon problème:

J'utilise un fichier qui me permet de calculer des itinéraires en fonction d'adresse.

J'ai créé une liste de 33 destinations possible dans l'onglet "Destination".

Lorsque je rentre une adresse l'onglet "Départ" et dans l'onglet "itinéraire" et que je clic sur multi destination, cela me calcule la distance pour les 33 itinéraires possible dans l'onglet "Sauvegarde".

J'aimerais pouvoir automatiser la recherche pour toutes les communes de l'onglet "Communes" et copier la distance et le nom de la ville la plus proche (distance minimale) de l'onnglet "Sauvegarde" dans les colonnes correspondant de l'onglet "Communes".



Merci d'avance

[davido84]

Tu devrais t'adresser au concepteur de ce fichier.
A+

[phoenix974]

Je l'ai fait aussi ne t'en fait pas mais il a peu etre autre chose a faire aussi, donc je tente ma chance aussi ici.

[clementmarcotte]

Presque personne de sensé n'ouvre les pièces jointes à la première question; surtout, surtout, surtout les fichiers de macros.

Presque personne de moindrement intègre ne va modifier un fichier d'un auteur vivant et rejoignable. Les règles du droit d'auteur s'appliquent aux fichiers et aux macros Excel, comme toute oeuvre littéraire.

[patricktoulon]

reafin de pas heurter la sensibilité de clement et afin que tu puisse sortir de ta torpeur je te propose de reprendre l'exercice depuis le début afin aussi que tu puisse en comprendre le cheminement alors donc je te propose d'analyser ce petit bout de code qui utilise un object xmlhttp pour faire une requête ce qui n'a rien de compliqué dans cette exemple je t'ai fait une petite fonction qui récupère le texte du json cette fonction est appelée par la sub test dans laquelle j'injecte en argument le depart et l'arrivée tu a donc dans la fenêtre d'execution(debug) le texte du JSON qui est assez facile a parser entre nous il te sera possible apres dans une boucle injecter la valeur d'une cellule pour le depart et pareil pour l'arrivée tu aura ainsi un automat pour télecharger les données mais en attendant voila la requete

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Sub test()
Debug.Print itineraire("toulon 83000", "paris 75000")
End Sub

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Function itineraire(dep, fin)
Dim REQ As Object, url As String
Set REQ = CreateObject("microsoft.xmlhttp")
url = "http://maps.google.fr/maps/api/directions/json?origin=" & Replace(dep, " ", "") & ",&destination=" & Replace(fin, " ", "")
With REQ
.Open "POST", url, False
.SetRequestHeader "Accept", "text/html, application/xhtml+xml, */*"
.SetRequestHeader "Accept-Language", "fr-FR"
.SetRequestHeader "User-Agent", "Mozilla/5.0 (Windows NT 6.1; WOW64; Trident/7.0; rv:11.0) like Gecko"
.SetRequestHeader "Accept-Encoding", "gzip, deflate"
.SetRequestHeader "Host", "maps.google.fr"
.SetRequestHeader "Connection", "Keep - Alive"
.SetRequestHeader "Cache-Control", "no-cache"
.send
itineraire = .responsetext
End With
End Function

[patricktoulon]

Bonjour
Aujourd'hui je suis allé un peu plus loin
j'ai repris l'idée du tableau sur le sheets j'ai viré toutes les macros et boutons
j'utilise l'object Microsoft.xmlhttp pour faire une requête
une fois la requête reçu je parse le responstext de celle ci
et je créé mon tableau du detail de parcours ( a droite)
et je renseigne aussi le tableau de gauche( résumé)

tu a toujours les deux possibilité soit le N° et adresse soit le code postal et la ville cela se fait tout seul en fonction de la cellule que tu remplie
c2 ou c3 pour le départ et c4 ou c5 pour l'arrivée
je n'ai pas encore fait l'enregistrement je voudrais ajouter des options supplémentaires bien sympathiques


voici mon model en version 1.0
ET IL EST AUSSI VALABLE POUR 32 BITS OU 64 BITS