Discussion :

[monac]

Bonjour !!!

En ce moment je cherche un moyen simple de géocoder des adresses sur google map. Pour cela j'ai un petit outil bien pratique sur excel pour faire tout ça, le seul hic c'est qu'après une 15 aines d'adresses géocoder, la macro ne suit plus et celle ci indique qu'il y a trop de requête simultanée. pour cela je pense qu'il faudrait que je mette un delai minimum d'exécution de la requête entre chaque requête mais je ne sais pas trop comment m'y prendre. Ou alors c'est un autre problème mais je ne vois pas trop lequel, je m'arrache un peu les cheveux. Je vous appelle à la rescousse je ne sais pas trop ou casé ça et comment, des petits indices ? ou si vous avez d'autre idées je suis preneuse

Voila une partie du code

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
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

Merci d'avance pour votre aide