Discussion :

[CobolProgrammator]

Bonjour, sur le site Boursorama on peut faire une demande pour récupérer des cours (via Excel). Je vois bien la requète que je soumets (récupérée via Temper Data):

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Host=www.boursorama.com
User-Agent=Mozilla/5.0 (Windows; U; Windows NT 5.1; fr; rv:1.9.1.3) Gecko/20090824 Ant.com Toolbar 1.4 Firefox/3.0, Ant.com Toolbar 1.3
Accept=text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8
Accept-Language=fr,fr-fr;q=0.8,en-us;q=0.5,en;q=0.3
Accept-Encoding=gzip,deflate
Accept-Charset=ISO-8859-1,utf-8;q=0.7,*;q=0.7
Keep-Alive=300
Connection=keep-alive
Referer=http://www.boursorama.com/outils/telechargement/telechargement.phtml
Cookie=TestIfCookieP=ok; pbw=%24b%3D203%3B%24o%3D1%3B%24c%3D49%3B%3B%24sh%3D3%3B%24sw%3D5; pid=8867356405896677982; __utma=88976520.3161424626525977000.1249201752.1253476650.1253518305.123; __utmz=88976520.1253473187.121.2.utmcsr=google|utmccn=(organic)|utmcmd=organic|utmctr=telecharger%20cours%20boursorama%20automatiquement; __utmv=88976520.WEB-MEMBER; __utma=88976520.3161424626525977000.1249201752.1253476650.1253518305.123; __utmz=208367252.1249321561.4.2.utmcsr=google|utmccn=(organic)|utmcmd=organic|utmctr=boursorama; __utmv=88976520.WEB-MEMBER; pbwmaj=y; ebNewBandWidth_.www.boursorama.com=1002%3A1252834539823; ebPanelFrequency_.www.boursorama.com=1822570%3A2%3A1%3A1252920937851; PHPSESSIONID=ce3f2eff5d6c98018fbf23f4da7d5bca; vs=177=3535896; __utmb=88976520.0.10.1253518305; __utmc=88976520; __utmb=88976520.1.10.1253518305; __utmc=88976520; OBJECT_BOURSORAMA=1; SESSION_SERVER_NUM=session2; LOG_KEY=YmlsbDc1MTE%3D91d26ee139ff0b0239a9478d73d90503; perfvisite316585=1
Content-Type=application/x-www-form-urlencoded
Content-Length=213
POSTDATA=hid_date=ok&MARCHE=LISTE&CODE=&A_LIBELLE=1&A_SICO=1&A_DATE=1&A_OUV=1&A_HAUT=1&A_BAS=1&A_CLOT=1&A_VOL=1&jour1=18&mois1=09&annee1=2009&jour2=21&mois2=09&annee2=2009&FILE_FORMAT=EXCEL&ISINY=N&download=T%E9l%E9charger

mais je voudrais l'envoyer depuis une macro VBA (afin de pouvoir automatiser et modifier certains paramètres).
==>> comment puis je envoyer cette requête svp ?

PS J'ai bien trouvé des pistes :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
Public Sub DoHttpRequest()
    Dim strPost
    Dim objHTTP, replyTXT
    Set objHTTP = CreateObject("Msxml2.ServerXMLHTTP")
    strPost = "http://xxx.yyy.com?id=" & getAddON
    objHTTP.setOption 2, 13056
    objHTTP.Open "GET", strPost, False
    objHTTP.send ""
    replyTXT = objHTTP.responseText
    MsgBox (replyTXT)
End Sub

Mais je ne sais pas ce qu'il faut modifier ...

[datacell33]

A tout hasard, as-tu essayé la fonction d'import de données externes ?
sous XL 2003, menu "données - données externes - nouvelle requete sur le web".
Si tu enregistres le code avec l'enregistreur de macro, tu verras que tu peux modifier facilement ta requete avec les paramètres que tu veux (sur de sites php pour lesquels les param sont passés dans l'url...). Encore faut-il que l'import Excel de HTML te ramène les données que tu cherches, c'est pas toujours le cas.
A essayer tout de même, j'ai eu de bons résultats avec ça.
Mais il doit y avoir mieux !
Cdlt.