Entrer le login et le password sur une page web depuis excel

Je rapatrie des données web dans excel mais je dois entrer un login et un password. Comment faire ?

Voici une façon de faire en utilisant les sendkeys. 

sub PageWeb()
 Dim IE As Object
 Set IE = CreateObject("internetexplorer.application")
 IE.Navigate ("http://www.zaza.com/")
 IE.Visible = True: IE.Top = 0: IE.Left = 0
 IE.Width = GetSystemMetrics32(0)
 IE.Height = GetSystemMetrics32(1)
 Application.Wait Now + 5 / 3600 / 24
 SendKeys ("loginZaza")
 SendKeys "{TAB}"
 SendKeys ("passwordzaza~")
 Application.Wait Now + 5 / 3600 / 24
 Set IE = Nothing
 end sub

Auteur :

Mots clefs associés à cette page : , ,

autre méthode :

Par isabelle, le jeu 26/03/2009 - 15:20.

Declare Function GetSystemMetrics32 Lib "user32" _
    Alias "GetSystemMetrics" (ByVal nIndex As Long) As Long

Sub Site_avec_Login_et_Password()
    Dim ie As Object
    Set ie = CreateObject("internetexplorer.application")
        With ie
            .Navigate ("http://www.zaza.com/")
            .Visible = True
            .Top = 0
            .Left = 0
           
              'Obtention en nombre de points de la largeur d'écran
              'les deux commandes suivantes nécessitent la déclaration de la
              'function GetSystemMetrics32 dans le haut du module
             
            .Width = GetSystemMetrics32(SM_CXSCREEN)
            .Height = GetSystemMetrics32(SM_CYSCREEN)

             'attendre la fin du chargement, c'est à dire lorsqu'il sera indiqué
             'le mot Terminé à gauche au bas de la page Internet

        Do Until .ReadyState = 4
            DoEvents
        Loop
            
             'Pour l'utilisation de la propriété getElementsByName,
             'vous devez connaître le nom du control ActiveX,
             'vous trouverez ce nom dans la Source de la page Internet

       'login
     Set DOCelement = .getElementsByName("login").Item
     DOCelement.Value = "zaza

      'password
     Set DOCelement = .getElementsByName("pass").Item
     DOCelement.Value = "xxZAZAxx"
 

   End With
End Sub