Discussion :

[jefcoq]

Bonjour,

Je cherche à automatiser la connexion a un site web ('http://wds.iea.org/WDS/Common/Login/login.aspx') user GUEST Password GUEST,
puis recuperer un fichier (par ex:RD&D Budgets SummaryDownload)
tout ceci avec une macro excel.

Apparement c'est possible avec la bibliotheque 'MSXML2.XMLHTTP'
et ce genre de code:
mais j'avoue ne pas trop connaitre HTML et donc je n'arrive pas a l'adapter a mon cas.
Quelqu'un aurait-il une solution, ou un tutorial duquel je pourrais m'inspirer ?
merci a tous

ex de code:

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
Function LoginAndDownload2(LoginLink As String, Request As Variant, DownloadLink As String, file As String)
Dim XMLHTTP As Object, tempfile As Long, Response() As Byte
Set XMLHTTP = CreateObject("MSXML2.XMLHTTP")
XMLHTTP.Open "POST", LoginLink, False
XMLHTTP.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
XMLHTTP.Send Request
Do While XMLHTTP.READYSTATE <> 4
DoEvents
Loop
XMLHTTP.Open "POST", DownloadLink, False
XMLHTTP.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
XMLHTTP.Send Request
Do While XMLHTTP.READYSTATE <> 4
DoEvents
Loop
'Response = XMLHTTP.responseBody
tempfile = FreeFile
If Dir(file) <> "" Then Kill file
Open file For Binary As #tempfile
Put #tempfile, , Response
Close #tempfile
Set XMLHTTP = Nothing
End Function

[ted the Ors]

Il y a peut être la solution ici : https://codingislove.com/http-requests-excel-vba/