Précédent   Forum des professionnels en informatique > Logiciels > Microsoft Office > Général VBA
Général VBA Forum général VBA . Pour les logiciels spécifiques (Access, Excel, Word, ...), postez dans les bons sous forums.
Partagez cette discussion sur d'autres réseaux sociaux : Viadeo Twitter Google Facebook Digg Delicious MySpace Yahoo
Réponse Proposer ce sujet en actualité
 
Outils de la discussion
Publicité
'
Vieux 03/09/2006, 00h25   #1
Invité régulier
 
Inscription : mai 2005
Messages : 32
Détails du profil
Informations forums :
Inscription : mai 2005
Messages : 32
Points : 7
Points : 7
Par défaut Confirmer une fermeture de session d'une page Web en VBA?

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 :
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 :
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 est déconnecté   Envoyer un message privé Réponse avec citation 00
Vieux 04/09/2006, 16h33   #2
Invité régulier
 
Inscription : mai 2005
Messages : 32
Détails du profil
Informations forums :
Inscription : mai 2005
Messages : 32
Points : 7
Points : 7
J'ai trouvé cette boucle qui liste les balises forms :
Code :
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 est déconnecté   Envoyer un message privé Réponse avec citation 00
Vieux 05/09/2006, 14h42   #3
Invité régulier
 
Inscription : mai 2005
Messages : 32
Détails du profil
Informations forums :
Inscription : mai 2005
Messages : 32
Points : 7
Points : 7
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 :
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
pegase33 est déconnecté   Envoyer un message privé Réponse avec citation 00
Réponse Proposer ce sujet en actualité
Outils de la discussion



Fuseau horaire GMT +2. Il est actuellement 05h44.


 
 
 
 
Partenaires

Hébergement Web