Bonjour,
J'apprends à faire ma première macro pour me connecter sur mon mail.
Pourriez-vous me dire pourquoi je n'arrive pas à cliquer sur le bouton "Se connecter" avec le code suivant? Merciii
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 g()
Dim HTMLDoc As HTMLDocument
Dim MyBrowser As InternetExplorer
Dim MyHTML As IHTMLDocument
Dim MyURL As String
MyURL = "https://login.live.com/login.srf?wa=wsignin1.0&rpsnv=12&ct=1388792290&rver=6.1.6206.0&wp=MBI&wreply=http:%2F%2Fmail.live.com%2Fdefault.aspx&lc=1036&id=64855&mkt=fr-fr&cbcxt=mai&snsc=1"
Set MyBrowser = New InternetExplorer
MyBrowser.navigate MyURL
MyBrowser.Visible = True
Do
Loop Until MyBrowser.readyState = READYSTATE_COMPLETE
Set HTMLDoc = MyBrowser.document
HTMLDoc.all.login.Value = "****"
HTMLDoc.all.passwd.Value = "***"
For Each MyHTML In HTMLDoc.getElementsByTagName("input name")
If MyHTML.Type = "submit" Then MyHTML.Click: Exit For
Next
End Sub |
Bonjour,
Je suis sur un code de navigation sur Internet Explorer.
Comment fait-on pour cliquer sur un bouton (ou un Anchor, je ne fais pas la distinction) c'est le bouton "Nouveau Message" dans Hotmail et qui est défini par :
<a title="Écrire un nouveau message (N)" id="NewMessage" href="#" aId="newMsg">
merci
Je voulais aussi savoir si je dois penser à la différence entre la vitesse de mon code et le chargement des pages dans le navigateur. Merciiii
Partager