Code HTML

Bonjour vous tous,

Ma question est la suivante :

Je voudrais recuperer le code HTML d'une page WEB, pas de problème avec Inet.

Mais cette page est peut être ouverte et il faut que je verifie par son URL si elle l'est effectivement . Si c'est le cas je recupère le code HTML et les infos que je recherche.

Comment faire pour verifier la présence d'une page ouverte ?

Merci pour votre Aide.

JoJo...

NB : je code en VB6

JoJo.

Alors en utilisant la référence Microsoft XML version 2 et ce bout de code

rivate Function CreerFichier()
Dim RequeteHTTP As Variant
Dim RetourRequeteHTTP As Variant
Dim FichierRetour() As Byte

Set RequeteHTTP = New XMLHTTPRequest
RetourRequeteHTTP = RequeteHTTP.Open("GET", " [ Lien ]")
RequeteHTTP.send ("")
DoEvents
Call Tempo
Call Tempo
'If (RequeteHTTP.Status <> 200) Then
'    Select Case RequeteHTTP.Status
'    Case 404
'    MsgBox ("Erreur dans la mise à jour de l'annuaire. Page non trouvée")
'    Case 401
'    MsgBox ("Erreur dans la mise à jour de l'annuaire. Pb identification")
'    Case Else
'    MsgBox ("Erreur dans la mise à jour de l'annuaire")
'    End Select
'Else
    Open "C:\GestionVisiteur.txt" For Binary As #1
    DoEvents
    Call Tempo
    FichierRetour() = RequeteHTTP.responseBody
    Put #1, , FichierRetour()
    Close #1
'End If
       
End Function

J'arrivais à récupérer un fichier TXT à partir d'une URL (genre www.toto.com/fichier.txt).
Alors tu devrais réussir à prendre un fichier html.

Par contre, c'est un copier coller rapide fait à partir d'une appli access donc je ne sais pas si en VB ça marche. À tester

PsyCaDi