Discussion :

[GuimB]

Bonjour,

Je dois récupérer un fichier Excel téléchargeable à une URL donné et je souhaite donc réaliser une macro qui, en l'exécutant, va télécharger et récupérer ce fichier.

J'ai réalisé une macro comme suit, à l'aide de ce que j'ai trouvé :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Option Explicit
 
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
 
Private Const ERROR_SUCCESS As Long = 0
 
 
Sub LancementProcedure()
    DownloadFile _
        "http://www.statistiques.developpement-durable.gouv.fr/fileadmin/documents/Themes/Logement-Construction/Construction/Logements/L_essentiel_en_chiffres/2015-06-taba1-fe-lgt-aut.xls", "C:\test.xls"
End Sub
 
 
Public Function DownloadFile(ByVal sURL As String, _
    ByVal sLocalFile As String) As Boolean
 
    Dim lngRetVal As Long
    DownloadFile = URLDownloadToFile(0&, sURL, _
        sLocalFile, 0&, 0&) = ERROR_SUCCESS
End Function

Mais cela ne fait rien lorsque j'exécute cette macro .....

Merci de regarder ce code et je vous remercie pour votre aide.

[mayekeul]

Bonjour, tu peux t'inspirer de ceci si tu veux:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Sub DownloadFile()
 
    Dim myURL As String, oStream
    myURL = "https://LeSiteWeb/?LesParametres"
 
    Dim WinHttpReq As Object
    Set WinHttpReq = CreateObject("Microsoft.XMLHTTP")
    WinHttpReq.Open "GET", myURL, False ', utilisateur, MotDePasseUltraSecret 
    WinHttpReq.send
 
    myURL = WinHttpReq.responseBody
    If WinHttpReq.Status = 200 Then
        Set oStream = CreateObject("ADODB.Stream")
        oStream.Open
        oStream.Type = 1
        oStream.Write WinHttpReq.responseBody
        oStream.SaveToFile DESTINATION_CHEMIN, 2 ' 1 = no overwrite, 2 = overwrite
        oStream.Close
    End If
 
End Sub

[GuimB]

Parfait merci pour cette réponse rapide

Le bonjour chez toi !