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

[patricktoulon]

bonjour sebphyto

Mais je ne sais pas commet procéder avec un

Code :

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

CreateObject("htmlfile")

la réponse est claire tu peut pas cet object est surtout fait pour travailler en local mais en aucun cas tu peut te loguer sur un site avec htmlfile

tu n'a pas beaucoup retenu hein!!!!:!

je vais taper sur les doigts ca va chauffer pour ton matricule

[Sebphyto]

Mince mince et remince.....honte à moi

En fait je t'explique

comme tu le sais déjà, je récupère sur le web des informations, et je les consigne dans un "fauxdoc html", comme tu me l'as enseigné.
mais le souci c que depuis que j'ai dans ma procédure une connexion sécurisé via

Code :

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

CreateObject("InternetExplorer.Application")

, cela n'a peut-être pas de rapport, j'ai un message d'alerte à cette ligne que tu reconnaitras:

Code :

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

.body.innerHTML = doc2.body.innerHTML

seb

[patricktoulon]

c'est normal si tu doit t'autentifier et meme si par requete c'est accepté cela se fait dans la requete pas dans le htmlfile
c'est quoi ce site????

[Sebphyto]

Salut Patrick,

Le site tu le connais par cœur...Ze.....

donc on doit pouvoir le faire dans la requête avec cette fonction, non???

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

dans un sub j'ai

Code :

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

1
2
With CreateObject("htmlfile")
            .write recupe_html(url)

donc là, il va bien dans url.......Ah mais je crois que j'ai compris ce que tu voulais me dire....il faut que l'url ici, soit déjà l'url authentifié ....dit moi si je me trompe
En faite j'ai juste besoin de m'authentifier une seule fois pour récupérer un lien

seb

[patricktoulon]

Bonjour seb

si c'est le lien que je crois c'est foutu car ils l'on bloqué en post et get les requete ne sont pas autorisées

si c'est pas le lien que je crois donne j'irais voir si c'est possible