Bonjour à tous ,
J'ai besoin de votre aide
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.
Sujet: Copier une page HTML vers Excel 
Mer 8 Avr à 17:06
