Discussion :

[pegase33]

Bonjour,
En vba j'essaie de piloter une page web par exemple pour ouvir sur mon compte courrier ma boite de réception.
En fait à l'aide d'une macro je remplis les champs du formulaire login et passsword.
Avec une boucle je liste les éléments "input" de la page pour situer les éléments login et password etc...

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 Sheets("Feuil1").Select
Set PageWeb = ie.document    
Set helem = PageWeb.getElementsByTagName("input")
For j = 0 To helem.Length - 1
Range("A" & (j + 1)).Value = helem(j).getAttribute("name") & " / " & helem(j).getAttribute("value")
Next j
login : "toto"
Pass : "****"
helem(3).innerText = login   
helem(4).innerText = Pass   
helem(5).Click 'pour valider

Pour le logout je liste tous les liens de la page web avec cette boucle :

Code :

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

1
2
3
4
5
Sheets("Feuil3").Select
    Set Doc = ie.document
    For x = 0 To Doc.Links.Length - 1
    Cells(x + 1, 1) = Doc.Links(x)
    Next x

Je trouve bien le lien javascript de sortie de session
javascript:logout%20()
Mais à ce moment là j'ai une petite msgbox "Internet Explorer" de confirmation de sortie de session!
Comment faire pour valider cette msgbox??? Quelle type de boucle serait possible pour retrouver cette msgbox et valider?
Merci de votre aide!

[pegase33]

J'ai trouvé cette boucle qui liste les balises forms :

Code :

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

1
2
3
4
5
6
7
 Sheets("Feuil4").Select    
    Dim forms As Object
    Set forms = ie.document.forms    
    For i = 0 To forms.Length - 1
    Range("A" & (i + 1)).Value = forms(i).Name
    Next i
    ie.document.forms(0).submit

le submit ferme la session..mais je ne ferme pas le checkbox!
Si quelqu'un a une idée!
Merci

[pegase33]

Toujours personne pour m'aiguiller?
J'avance un peu...
Je peux passer outre de fermer la session par cette boucle qui ferme les instances IE :

Code :

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

1
2
3
4
5
6
 
Dim winShell As New ShellWindows
On Error Resume Next
For Each IE In winShell
If IE.LocationURL <> "" Then IE.Quit 
Next IE

Ce qui est assez "catégorique" comme fermeture des pages Web.

Mais ça ne résoud pas le problème de la fermeture de la fenêtre du msgbox...comment avoir le "focus" sur cette msgbox et la fermer!!!

Merci