Précédent   Forum des professionnels en informatique > Logiciels > Microsoft Office > Excel > Macros et VBA Excel
Macros et VBA Excel Vos questions relatives aux macros Excel, à l'utilisation de VBA et à l'automatisation de vos classeurs Excel.
Partagez cette discussion sur d'autres réseaux sociaux : Viadeo Twitter Google Facebook Digg Delicious MySpace Yahoo
Réponse Proposer ce sujet en actualité
 
Outils de la discussion
Publicité
'
Vieux 11/08/2011, 14h30   #1
Membre habitué
 
Avatar de zangaloni
 
Étudiant
Inscription : mars 2009
Messages : 464
Détails du profil
Informations professionnelles :
Activité : Étudiant

Informations forums :
Inscription : mars 2009
Messages : 464
Points : 114
Points : 114
Par défaut problème avec le téléchargement web

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
zangaloni est déconnecté   Envoyer un message privé Réponse avec citation 00
Réponse Proposer ce sujet en actualité
Outils de la discussion



Fuseau horaire GMT +2. Il est actuellement 10h59.


 
 
 
 
Partenaires

Hébergement Web