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
29
30
31
32
33
34
35
36
| Function googleGeocode( MaPage As String, Address As String, Accuracy As String, CountryNameCode As String, AdministrativeAreaN ame As String, SubAdministrativeAr eaName As String, LocalityName As String, DependentLocalityNa me As String, ThoroughfareName As String, PostalCodeNumber As String, Longitude As String, Latitude As String, Rq As String) As Boolean
Dim MaStr As String
Dim Repere As String
Dim BlocAdr As String
Dim Adresses() As String
Dim Choix() As String
Dim fRepere As String
Dim drepere As String
Dim coordinates As String
fRepere = "</"
googleGeocode = False
Repere = "<code>"
If InStr(MaPage, Repere) Then
MaPage = Right(MaPage, Len(MaPage) - InStr(MaPage, Repere) - Len(Repere) + 1)
Rq = Left(MaPage, InStr(MaPage, "<") - 1)
Select Case Rq
Case 200
Rq = "Succès"
Case 500
Rq = "Erreur serveur"
Case 601
Rq = "Erreur de requête"
Case 602
Rq = "Adresse inconnue"
Case 603
Rq = "Adresse confidentielle"
Case 610
Rq = "Clé Google Maps invalide"
Case 620
Rq = "Trop de requetes simultanées"
End Select
End If |
