Bonjour,

Je suis un débutant vba pour le plaisir....
Je cherche à copier un site web pour récupérer des valeurs. Sur la 1ere page, il y a login et password, mais jusque là tout va bien... j'ouvre IE avec la seconde page. Par contre, en A1, à la fin je copie le code de la 1ere page (celle qui demande login et password).
Je pense que mon print innerHTML est avec le mauvais document, mais je ne vois vraiment pas comment le mettre à jour...

Merci beaucoup de votre aide

Mon code :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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
38
39
40
41
42
Private Sub CommandButton1_Click()
 
Dim IE As Object
 
    With CreateObject("InternetExplorer.Application")
        .Visible = True
        .Navigate "http://xxx" 'ouverture site xxx
        Do Until .readyState = 4 And .busy = False:  DoEvents:  Loop  'attente fin d'ouverture
 
'Remplissage du formulaire
        With .document
            With .getElementsByTagName("input")
                .Item("login").Value = "xx"
                .Item("password").Value = "xx"
            End With
 
            Do: Loop Until .readyState = "complete"
 
 
        End With
 
' click bouton se connecter
        With .document
 
    Set elems = .getElementsByTagName("input")
    For Each e In elems
 
        If (e.getAttribute("value") = "Se connecter") Then
            e.Click
            Exit For
            Application.StatusBar = "Search form submission. Please wait..."
        End If
 
    Next e
            Application.Wait Time + TimeSerial(0, 0, 3)
 
            'print innerHTML (source code) of the 'new' website
 
Range("A1") = .DocumentElement.innerHTML[/COLOR]
        End With
    End With
End Sub