[web] authentification sur un site via VBA

Bonjour,

voici un code VBA pour s'authentifier sur un site (pas des moindres)
Il requiert l'ajout de la référence à Microsoft Internet Controls

Code:

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
27
28
29
30
31
Sub connexion()
 
    Dim ie As InternetExplorer
    Dim IEdoc As Object
    Dim DOCelement As Object
 
    Set ie = New InternetExplorer
    ie.Visible = True
    ie.Navigate ("http://www.developpez.net/forums")
 
     ' attente de fin de chargement
    Do Until ie.ReadyState = 4
        DoEvents
    Loop
 
    Set IEdoc = ie.Document
 
    'login
     Set DOCelement = IEdoc.getElementsByName("vb_login_username").Item
     DOCelement.Value = "cafeine"
 
    'password
     Set DOCelement = IEdoc.getElementsByName("vb_login_password").Item
     DOCelement.Value = "etpuisquoiencore?turêves?"
     DOCelement.Select
 
    'connexion
     Set DOCelement = IEdoc.Forms(0)
     DOCelement.submit
 
End Sub