Problème macro Google maps

[franzoose]

Bonjour à tous !
C'est encore moi, et de plus, avec la même macro.

J'ai quelques problèmes avec la macro Google maps que j'ai trouvé sur ce forum.
Je ne sais pas comment cela se fait, mais il semblerait que la macro fonctionne aléatoirement. Un coup ça marche, un coup ça marche à moitié, un coup ça marche pas du tout...

Derniere_ligne_profil = feuil_profil.Cells.Find(what:="*", SearchDirection:=xlPrevious).Row
    For i = 19 To Derniere_ligne_profil
        feuil_google.Cells.Clear
        PauseTime = 5    ' Définit la durée en seconde.
        Start = Timer    ' Définit l'heure de début.
        Do While Timer < Start + PauseTime
             Depart = feuil_profil.Cells(i, 22)
             Arrivee = feuil_profil.Cells(i, 23)
             If Not IsEmpty(Arrivee) Then
                            On Error Resume Next
                            feuil_profil.Cells(i, 24) = "Pb connexion"
                            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 = feuil_google.Cells.Find("Itinéraires possibles")
                            If Not Result Is Nothing Then
                                Start = Start - PauseTime
                            End If
             End If
        Loop
        If Not IsEmpty(Arrivee) Then
             If Result Is Nothing Then
                 feuil_profil.Cells(ligne_projet, 24) = "Itinéraire non trouvé !"
             Else
                 duree_un_trajet = Result.Offset(1, 0)
                 feuil_profil.Cells(ligne_projet, 24) = transformation_km_duree(duree_un_trajet)
             End If
        End If
    Next i

Quand cela fonctionne pas, je reçois un message d'erreur du genre:

'Erreur 1004'
'Vérifiez que le dossier spécifié existe'
'Vérifiez la non présence de caractères tels que [, *, ?
...

Quand je clisque sur debobage, la ligne suivante est mise en surbrillance :
.Refresh BackgroundQuery:=False

Cela fait deux jours que je cherche la solution mais je ne trouve pas. Je me suis demandé si ce n'est pas la présence d'un "?" dans l'adresse URL qui fait buguer la macro... Mais comment contourner le problème dans ce cas? Qu'en pensez-vous?

Merci beaucoup ;-)

 

[billou74]

Re : Problème macro Google maps

j'ai le même pb dans un de mes fichiers.
Meis je ne trouve pas la solution

 

[Littledave]

Re : Problème macro Google maps

Salut,

L'un de vous deux ne pourrait il pas mettre un fichier exemple en ligne ? On pourrait alors y regarder de plus près

@++
David