Bonjour à tous,

Je travail sur un script qui va géocoder des adresses contenues dans une feuille excel puis remplir cette même feuille avec les latitudes et longitudes obtenues. Pour géocoder je créé un page web dynamiquement qui va interroger l'api google.

Je n'ai qu'un problème c'est comment récupérer les latitudes et longitudes pour les intégrer dans excel. Si quelqu'un avait un exemple même très basique je suis preneur.

Par exemple créer une page web dynamiquement qui va faire cellule 1.1 + cellule 1.2 (une fonction en javascript) et qui va renvoyer le résultat dans la cellule 1.3.

Le début du script pourrait ressembler à ça :
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
18
19
20
21
22
23
24
25
26
27
28
 
Sub RécupLatln()
Dim a as string
Dim b as string
a = cells(1,1). value
b = cells(1,2). value
 
Open "page test" For Output As #1
Print #1, Chr$(13) & "<html>"
Print #1, Chr$(13) & "      <head>"
Print #1, Chr$(13) & "          <script type=" & Chr(34) & "text/javascript" & Chr(34) & ">"
Print #1, Chr$(13) & " var ch1= " & a & ";"
Print #1, Chr$(13) & " var ch2= " & b & ";"
 
Print #1, Chr$(13) & "          function (){"
Print #1, Chr$(13) & " 			var ch1= " & a & ";"
Print #1, Chr$(13) & " 			var ch2= " & b & ";"
Print #1, Chr$(13) & "			Add=ch1+ch2; "
Print #1, Chr$(13) & "		}"
 
Print #1, Chr$(13) & "         </script>"
Print #1, Chr$(13) & "     </head>"
Print #1, Chr$(13) & "      <body >"
Print #1, Chr$(13) & "      </body>"
Print #1, Chr$(13) & "      </html>"
Close #1
 
End Sub
Ensuite il faudrait trouver un moyen de récupérer la valeur Add.

L'objectif final étant de faire tourner un script un WE complet pour récupérer des coordonnées d'un grand nombre d'adresse (l'api Google limite le géocodage).

Merci d'avance pour la réponse.