Copier une page HTML vers Excel

Membre Nombre de messages : 1 Date d'inscription : 08/04/2009

Bonjour à tous ,

J'ai besoin de votre aide Fou

je n'arrive pas a coller la page web obtenu apres l'entrée du mdp et du login par la macro sur la feuil2 afin de vérifier si la connexion à fonctionner.
Je mets la macro que j'utilise ci-dessous.

Gmail etant un exemple

Code:: Sub connexion()
For Each X In Sheets("Feuil1").Range("b2:" & Sheets("Feuil1").Range("b65536").End(xlUp).Address)
Sheets("Feuil2").Cells.Clear
login = X.Value
Password = X.Offset(0, 1).Value

Dim IE As InternetExplorer
Dim IEdoc As Object
Dim DOCelement As Object

Set IE = New InternetExplorer
IE.Visible = True
IE.navigate ("http://gmail.com/")

' attente de fin de chargement
Do Until IE.readyState = 4
DoEvents
Loop

Set IEdoc = IE.document
Sheets("Feuil2").Cells.Clear

'login
Set DOCelement = IEdoc.getElementsByName("email").Item
DOCelement.Value = login

'password
Set DOCelement = IEdoc.getElementsByName("PASSWD").Item
DOCelement.Value = Password
DOCelement.Select

'connexion
Set DOCelement = IEdoc.forms(0)
DOCelement.submit

Next
End Sub

je connais ce code qui fonctionne mais que sur l'url indiquez

Code:: With Sheets("feuil2").QueryTables.Add(Connection:="URL;http://gmail.com", Destination:=Sheets("feuil2").Range("A1"))
.BackgroundQuery = True
.WebSelectionType = xlEntirePage
.WebFormatting = xlWebFormattingNone
.Refresh BackgroundQuery:=False
End With

Merci d'avance pour votre aide.