Telechargement et import fichier xls

[lelotois]

Bonjour,

Je voudrais faire une macro permettant de télécharger et d'importer un fichier excel (.xls) depuis un serveur nécessitant une identification par id et mdp.
J'ai bien essayé quelques trucs mais ça n'a rien donné (voir ci-dessous) :

Sub Bouton1_Cliquer()

Dim myURL As String
myURL = "http://MonLienDeTelechargement"

Dim WinHttpReq As Object
Set WinHttpReq = CreateObject("Microsoft.XMLHTTP")
WinHttpReq.Open "GET", myURL, False, "username", "password"
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 "D:\file.xls", 2 ' 1 = no overwrite, 2 = overwrite
    oStream.Close
End If

End Sub

Quand j'exécute cette macro ça mouline mais ne donne rien au final.

Si vous pourriez m'éclairer ce serait cool.
Merci.