[XL-2003] problème avec le téléchargement web

[zangaloni]

Bonjour,
j'utilise le code suivant pour télécharger un fichier d'un site web.
sur mon pc il marche très bien, sur un autre parfois il marche parfoisil télécharge le fichier vide.
Qu'elle peut bien être la raison derrière ??

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Sub downFLash()
 
    Dim sURL    As String
    Dim LocalFilename   As String
    Dim filename As String
    Dim date_souhaiT As Date
 
    date_souhaiT = Sheets("exmple").Cells(4, 2).Value
       Const UNC = "C:\Documents and Settings\Mes documents\"
    filename = "courbe_bam.xls"
    sURL = "http://www.bkam.ma/wps/PA_1_G_15H/LoadOperationMarMon?dateDe=" & date_souhaiT & "&locale=fr"
    LocalFilename = UNC & filename
 
    Debug.Print DownloadFile(sURL, LocalFilename)
 
End Sub