Discussion :

[kenobyalex]

Bonjour,

Voici mon problème : j'ai récupéré et adapté du code pour piloter une page web depuis une macro VBA

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
Sub piloterRadioBouton()
    'nécessite d'activer la référence Microsoft HTML Objects Library
    'nécessite d'activer la référence Microsoft Internet Controls
    Dim IE As InternetExplorer
    Dim maPageHtml As HTMLDocument
    Dim Helem As HTMLElementCollection
    
    
    

    
    Set IE = CreateObject("internetExplorer.Application")
    IE.Visible = True
    IE.Navigate "https://**************"
        Do Until IE.ReadyState = READYSTATE_COMPLETE
        DoEvents
        Loop 'attend la fin du chargement
     
    
   
        'remplit les champs nécessaires...
    IE.Document.all("login").Value = "****"
    IE.Document.all("pwd").Value = "******"
    IE.Document.all("").Click

le problème est que pour cliquer sur le bouton envoyer il me faut son "nom" mais dans le code source il n'y en a pas :

Code :

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

<span class="button"><input type="submit" value="Valider" /></span>

Comment faire ?


Merci d'avance.

[SilkyRoad]

bonsoir

tu peux également indiquer les index des controles pour piloter la page html:

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
Sub piloterPageWebV02()
    'activer les références
        'Microsoft HTML Objects Library
        'et
        'Microsoft Internet Controls
    Dim i As Integer
    Dim IE As InternetExplorer
    Dim maPageHtml As HTMLDocument
    Dim Helem As IHTMLElementCollection
 
    Set IE = CreateObject("InternetExplorer.Application")
    IE.Visible = True
 
    IE.Navigate "http://www.google.fr/"
    Do Until IE.readyState = READYSTATE_COMPLETE
    DoEvents
    Loop 'attend la fin du chargement
 
    Set maPageHtml = IE.document
    Set Helem = maPageHtml.getElementsByTagName("input")
 
    Helem.Item(1).innerText = "developpez.com"
    'simule le clic sur le bouton "Recherche Google"
    Helem(2).Click
 
End Sub

bonne soirée
michel

[kenobyalex]

merci pour cette info, j'avais trouvé une solution de secours bidouille!!!!!!
en fait j'ai mis le focus dans le champ texte du mot de passe, et j'ai simulé la touche Enter, et hop.

Mon autre soucis maintenant, est que j'ai une alerte de sécurité IE "vous passez sur une page non sécurisé" avec 2 boutons OUI et NON, une sorte de popup mais IE.

Je cherche comment répondre OUI.
Si tu as une idée rapide.

Merci.

[kenobyalex]

Ca me bloque vraiment cette alerte IE, comment utiliser un genre de "DisplayAlert=false" dans IE, j'ai essayé pas mal de choses mais rien n'y fait.

Merci de votre aide.