Discussion :

[Elstak]

hello,

voilà j'ai un petit souci de telechargement de fichier texte.

Si le fichier est d'assez petite taille, aucun souci, mais pour un fichier plus gros (ici 10 mo), Le telechargement ne se termine pas toujours et, plus génant, aucun message d'erreur

voici mon code (ce code se trouve seul dans un module et je l'ai trouvé sur le forum):

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Declare Function URLDownloadToFile 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
 
Public Sub Copy_File()
    Dim URL As String
    Dim Destination As String
 
    URL = "http://nomsite/nomfichier.txt"
    Destination = "C:\nomfichier.txt"
 
    URLDownloadToFile 0, URL, Destination, 0, 0 'chargement du fichier texte
 
 
 End Sub

Voilà alors en fait des fois j'ai le fichier complet, des fois il fait 8 mo...

Je voudrais savoir si il y a une méthode plus "sure" qui permette d'avoir le fichier complet à tout les coups ou au moins réussir à avoir une erreur si le telechargement est interrompu (pour pouvoir relancer)

Merci de vos réponses car je ne trouve rien à ce sujet

PS: je ne comprend pas ce morceau de code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Lib "urlmon" Alias "URLDownloadToFileA"

[ouskel'n'or]

Un truc comme ça, ça t'irait ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub Timer_OnTime() 'selon bbil
 Application.OnTime Now + TimeValue("00:00:10"), "MessageFinChargement"
 MsgBox "Je commence à charger " & Now   'Débutchargement du fichier
 'Je charge
End Sub
 
Sub MessageFinChargement()
Dim i as integer
for i = 1 to 100
      beep
      DoEvents
Next
MsgBox "Il s'est écoulé 10 secondes, ton fichier devrait être copié !"
End Sub

A+

[Elstak]

hmm bah en fait c'est sans espoir je pense
ton idée est pas mal mais je pense que c'est un probleme du serveur car en affichant le fichier texte avec IE, des fois il se coupe aussi...

mais j'ai une autre idée car je sais comment doit etre le contenu de la derniere ligne (je creerai surement un nouveau post pour demander comment faire, enfin si je bloque )

voilà donc je met ce sujet comme resolu