Telecharger un fichier sur internet [Résolu]

[tissam89]

Bonjour,
Je voulais telecharger un fichier d'internet en appuyant sur un bouton,ca marche bien on donnant le lien directe de fichier sur internet:

Code :

IE.navigate chemin & "https://chemin"

Apres il ya une fenetre qui apparait pour me demander ou est ce que je peux l'enregistrer.
moi je veux pas voir cette fenetre,une methode qui permet de l'enregistrer directement dans le repertoire que je veux.
J'ai essayé ce code:

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
Private Sub Telecharger_Click()
Dim FileNum As Long
Dim FileData() As Byte
Dim MyFile As String
Dim whttp As Object
 
 
On Error Resume Next
Set whttp = CreateObject("WinHTTP.WinHTTPrequest.5") 'Réglez whttp = CreateObject ("WinHTTP.WinHTTPrequest.5")
If Err.Number <> 0 Then
Set whttp = CreateObject("WinHTTP.WinHTTPrequest.5.1") ' Réglez whttp = CreateObject ("WinHTTP.WinHTTPrequest.5.1")
End If
On Error GoTo 0
 
MyFile = " Chemin ici "
 
whttp.Open "GET", MyFile, False
whttp.send
FileData = whttp.responseBody
Set http = Nothing
If Dir(" G:\test ", vbDirectory) = Empty Then MkDir " c:\test "
 
FileNum = FreeFile
Open " the file I downloaded " For Binary Access Write As #FileNum
Put #FileNum, 1, FileData
Close #FileNum
 
MsgBox "Open the folder [ c:\test ] for the downloaded file..."
 
End Sub

Mai je recoi cette erreur dans cette ligne :

Code :

whttp.Open "GET", MyFile, False

The URL doesn't use a recognized protocol

[tissam89]

Je ne recois pas de l'aide moi
mon probléme est si compliqué?

[LedZeppII]

Bonjour,

Regarde l'exemple que j'ai posté ici.

Tu as aussi la première méthode de Comment récupérer le contenu d'un fichier txt placé sur internet ?

A+

[tissam89]

Merci pour me repondre
J'ai essayé ton code,mais je recoi cette erreur:
Connection with the srver couldn"t be established
à cette ligne

Code :

wq.send