Bonjour,

Je souhaiterais via un fichier excel m'authentifier sur la page suivante : https://wwws.linxo.com/auth.page#Login
Je précise que je suis ultra débutante...

J'ai grâce au forum, pondu ceci :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
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
32
33
34
35
36
37
38
39
40
41
42
Sub PremierIE()
 
    'Déclaration des variables
    Dim IE As Object
    Dim IEdoc As Object
    Dim DOCelement As Object
 
    'Initialisation des variables
    Set IE = CreateObject("InternetExplorer.Application")
 
    'Affichage de la fenêtre IE
    IE.Visible = True
 
    'Chargement de la page web
    IE.Navigate ("https://wwws.linxo.com/auth.page#Login")
 
    ' attente de fin de chargement
    Do Until IE.ReadyState = 4
        DoEvents
    Loop
 
    'On pointe le membre Document
    Set IEdoc = IE.document
 
   'login
    Set DOCelement = IEdoc.getElementsByName("username").Item
    DOCelement.Value = "Monlogin"
 
    'password
    Set DOCelement = IEdoc.getElementsByName("password").Item
    DOCelement.Value = "Monmotdepasse"
    DOCelement.Select
 
    'connexion
    Set DOCelement = IEdoc.Forms(0)
    DOCelement.submit
 
    'On libère la variable IE
    Set IE = Nothing
 
 
End Sub

La page de Linxo s'affiche correctement mais les champs ne se remplissent pas et le déboggueur se lance en s'arrêtant sur DOCelement.Value = "Monlogin"
Une âme charitable pourrait-elle éclairer ma lanterne ?


Un grand merci d'avance.

Delphine