fred65200
XLDnaute Impliqué
Bonjour à tous,
actuellement, j'arrive à ouvrir une page Web, et entrer mes coordonnées d'identifiant d'une façon automatique. Je recherche une méthode similaire pour Firefox, autre par SendKeys. Connaissez vous une piste?
La méthode sur IE
D'avance merci.
actuellement, j'arrive à ouvrir une page Web, et entrer mes coordonnées d'identifiant d'une façon automatique. Je recherche une méthode similaire pour Firefox, autre par SendKeys. Connaissez vous une piste?
La méthode sur IE
Code:
Sub ouvrir_page_web2()
Dim IE As Object 'InternetExplorer
Dim Helem As Object 'IHTMLElement
Dim MaPageHtml As Object 'HTMLDocument
Set IE = CreateObject("InternetExplorer.Application")
IE.Visible = True
IE.Navigate ("http://www.developpez.net/forums/forumdisplay.php?f=664")
Do Until IE.ReadyState = 4
DoEvents
Loop
Set MaPageHtml = IE.Document
'Numéro d'abonné
Set Helem = MaPageHtml.getElementsByName("vb_login_username").Item
Helem.Value = "fred65200"
'mot de passe
Set Helem = MaPageHtml.getElementsByName("vb_login_password").Item
Helem.Value = "XXXX"
Helem.Select
'Le Bouton de connexion
Set Helem = MaPageHtml.Forms(0)
Helem.submit
End Sub