Soucis de telechargement en VBA Excel

Bonjour

j'ai realiser une feuille de calcul excel, sur laquelle j'ai plusieurs liens de telechargement de fichier de mise a jour des bases de données CC.

Une macro me permet de lancer ces telechargements sans mon intervention.

Ca marche pour la plupart, sauf une ....

voici le code de cette macro en VBA (j'ai remplacer les .com par .con, n'ayant pas encore le droit de mettre des liens)

=================================

[Option Explicit

Private Declare Function TelechargerFichierURL Lib "urlmon" _

Alias "URLDownloadToFileA" _

(ByVal pCaller As Long, _

ByVal szURL As String, _

ByVal szFileName As String, _

ByVal dwReserved As Long, _

ByVal lpfnCB As Long) As Long

Private Const ERROR_SUCCESS As Long = 0

Private Const BINDF_GETNEWESTVERSION As Long = &H10

Public Function TelechargerFichierInternet(SourceUrl As String, FichierLocal As String) As Boolean

TelechargerFichierInternet = TelechargerFichierURL(0&, SourceUrl, FichierLocal, BINDF_GETNEWESTVERSION, 0&) = ERROR_SUCCESS

End Function

Sub telechargementcarteslucampers()

On Error Resume Next

Dim fichier_internet As String

Dim fichier_local As String

fichier_internet = "

"

fichier_local = "d:\\downloads\speedcam.zip"

Call TelechargerFichierInternet(fichier_internet, fichier_local)

fichier_internet = "

"

fichier_local = "d:\\downloads\pack-carte-total.zip"

Call TelechargerFichierInternet(fichier_internet, fichier_local)

End Sub

===========================================

comme je vous l'ai dit, ca marche tres bien pour le dossier speedcam.zip et d'autres

mais pour le dossier pack-carte-total.zip, lorsque je veux le decompresser, j'ai une "erreur de fin de fichier"

alors qu'en copier/coller mon lien directement dans un navigateur c'est OK

Quelle erreur ai je commise ?