[XL-2007] Copier une page html sous excel

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:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
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 et pas sur la page ouverte par la macro

Code:

1
2
3
4
5
6
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.