Macro import fichier

Bonjour à tous,

J'ai un petit souci concernant la réalisation d'une macro :

Mon but est de faire une macro permettant d'importer un fichier (un excel).

Le fichier vient d'un serveur nécessitant un id et un mot de passe pour s'y connecter, et est mis à jour tous les jours, donc son nom change quotidiennement.

Le nom du fichier (d'aujourd’hui) se présente comme cela : to9288910_06_15_2_30_53.xls

J'ai commencé à faire un code mais il n'est pas fonctionnel :

Sub Bouton1_Cliquer()

Dim myURL As String
myURL = "URL téléchargement"

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 "C:\file.csv", 2 ' 1 = no overwrite, 2 = overwrite
    oStream.Close
End If

End Sub

Avez vous des pistes pour résoudre mon problème ?

Merci !

Guillaume