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) :
Quand j'exécute cette macro ça mouline mais ne donne rien au final.
Si vous pourriez m'éclairer ce serait cool.
Merci.
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) :
Code:
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.