Discussion :

[Sebphyto]

Bonjour à tous,

je viens vers vous car j'aimerai me connecter à un site avec login, password et 3 combox sur la page web jours/Mois/année
Je sais le faire avec un

Code :

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

CreateObject("InternetExplorer.Application")

Mais je ne sais pas commet procéder avec un

Code :

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

CreateObject("htmlfile")

je passe par une function

Code :

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

1
2
3
4
5
6
7
Public Function recupe_html(url)
    Dim REQ
    Set REQ = CreateObject("microsoft.xmlhttp")
    REQ.Open "POST", url, False
    REQ.send
    recupe_html = REQ.responseText
End Function

Et dans la sub

Code :

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

1
2
3
4
 With CreateObject("htmlfile")
        .write recupe_html(url)
       'etc........
End With

merci d'avance pour votre aide
seb