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...
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 ;-)
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...
Code:
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
'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 ;-)