Discussion :

[sebfch]

Bonjour,

j'aimerais ouvrir une page internet de la forme : http://adresse/page?p=12&s=2

J'arrive à rentrer le login et mdp et accéder à la page en question mais je n'arrive pas à récupérer les données sur cette page.
Je cible toujours ma page d'accueil.
ça ne prend pas en compte ce qu'il y a après "page" dans l'URL je pense.

Voici mon code actuel :

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
43
Sub connexionsite()
 
    Dim IE As InternetExplorer
    Dim IEDoc As Object
    Dim DOCelement As Object
 
    Set IE = New InternetExplorer
    IE.Visible = False
    IE.Navigate ("http://adresse/login")
 
     ' attente de fin de chargement
    Do Until IE.readyState = 4
        DoEvents
    Loop
 
'    Set IEDoc = IE.document
 
    'login
     Set DOCelement = IEDoc.getElementsByName("username").Item
     DOCelement.Value = "Mon_Username"
 
    'password
     Set DOCelement = IEDoc.getElementsByName("password").Item
     DOCelement.Value = "Mon_MDP"
     DOCelement.Select
 
    'connexion
     Set DOCelement = IEDoc.forms(0)
     DOCelement.submit
 
    Set IE = New InternetExplorer
    IE.Visible = True
    IE.Navigate ("http://adresse/page?p=12&s=2")
    Set IEDoc = IE.document
    test = IEDoc.DocumentElement.innerText
 
    'Chercher le texte
    Set HtmlElementStandard = IE2Doc.all(9)
    LeTexteExtrait = HtmlElementStandard.innerText
    'Affichage du texte
    MsgBox LeTexteExtrait, Title:="Le texte extrait de la page"
 
End Sub

[antonysansh]

Bonjour sebfch,

Tu dois rester sur ta page de départ plutôt que d'en ouvrir une nouvelle.

De la même façon que tu trouves les champs pour y indiquer user et pass, trouve le bouton valider et .Click


Voila un exemple que j'utilise :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
        Set IEDoc = IE.document
        Set Input_collection = IEDoc.getElementsByTagName("input")
        Set Button_collection = IEDoc.getElementsByTagName("button")
            Input_collection("pass").Value = mdp
            Input_collection("login").Value = Environ("username")
            For Each vBouton In Button_collection
                If vBouton.className = "rounded-button" Then
                    vBouton.Click: Exit For
                End If
            Next

Avec

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
    Dim IE As New InternetExplorer
    Dim IEDoc As HTMLDocument
    Dim Button_collection As IHTMLElementCollection
    Dim Input_collection As IHTMLElementCollection
    Dim vBouton As HTMLButtonElement
    Dim mdp$

J'utilise une boucle pour trouver le bouton car il n'a pas d'identifiant sur la page web.

[sebfch]

Merci antonysansh, ta méthode est simple et efficace !
par contre j'ai maintenant un bouton sans name j'ai juste :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

<button tab="HISTORIQUE">Historique</button>

je ne sais pas comment cliquer dessus...

[antonysansh]

Bonjour sebfch,

Tu peux voir dans mon exemple que je crée une collection de bouton :
Set Button_collection = IEDoc.getElementsByTagName("button")

en suite avec une variable : Dim vBouton As HTMLButtonElement
je boucle sur tous les boutons jusqu'à trouver le bon, tu dois juste trouver la bonne propriété a tester.