Windows 7 et erreur d'exécution 1004

[salva_sls]

Bonjour,
J'ai un souci avec un code VBA sous excell 2003 qui fonctionne très bien avec Windows XP mais qui ne marche pas avec Windows 7.😕

Le but de ce code est d'obtenir via Google Maps le kilométrage entre 2 adresse postale et de remplir un tableau excell.

Avec Windows 7, le code s'arrête sur la ligne ".Refresh BackgroundQuery:=False" et affiche un message "erreur d'exécution 1004".

Est-ce que quelqu'un a une idée pour résoudre ce problème ?

Merci d'avance un extrait du code ci-dessous.

For Each x In Sheets("CalculKM").Range("H2:" & Sheets("CalculKM").Range("H65536").End(xlUp).Address)
Sheets("Traitement").Cells.Clear
Depart = x.Value
Arrivee = x.Offset(0, 1).Value

With Sheets("Traitement").QueryTables.Add(Connection:="URL;http://maps.google.fr/maps?f=d&saddr=" & Depart & "&daddr=" & Arrivee, Destination:=Sheets("Traitement").Range("A1"))
.Name = "itinéraire"
.BackgroundQuery = True
.WebSelectionType = xlEntirePage
.WebFormatting = xlWebFormattingNone
.Refresh BackgroundQuery:=False
End With

Set Result = Sheets("Traitement").Cells.Find("Itinéraire en voiture")
If Result Is Nothing Then
x.Offset(0, 2) = "Itinéraire non trouvé !"
Else
x.Offset(0, 2) = Result.Offset(1, 0)
km = Split(Result.Offset(1, 0), " km")
x.Offset(0, 3) = km(0)
End If
Next

 

[salva_sls]

Re : Windows 7 et erreur d'exécution 1004

Bonjour,
J'ai trouver la raison de mon problème, il faut simplement supprimer les fichiers internet temporaires.
Est-ce que quelqu'un sait comment on peut supprimer ces fichiers avec une macro VBA ?

Merci et meilleurs voeux.

 

[kiki29]

Re : Windows 7 et erreur d'exécution 1004

Salut,

Option Explicit

Sub Clear_Temp_Files()
    Shell "RunDll32.exe InetCpl.cpl,ClearMyTracksByProcess 8 "
End Sub

 

[salva_sls]

Re : Windows 7 et erreur d'exécution 1004

Merci beaucoup Kiki29, ça marche impeccable.