Import web avec identification

Question

Bonjour,

je souhaite (avec l'accord de mon fournisseur), récupérer les prix d'achat des produits que je vends sur son site web, dont j'ai les identifiants : https://espace-pro.cartotheque.com/connexion.html.

Mon début de macro, pour identification donc, ne "valide" pas l'entrée de mes id :

Pourquoi ??

**Modifié par la modération pour une lecture plus facile du code, à l'avenir utilisez les balises, VOIR CETTE PAGE

Sub IMPORTCARTO()
    
Dim Ie As InternetExplorer
    Dim IEdoc As Object
    Dim DOCelement As Object
    
    Set Ie = New InternetExplorer
    Ie.Visible = True
    Ie.Navigate ("https://espace-pro.cartotheque.com/connexion.html")
 
    Do Until Ie.ReadyState = 4
        DoEvents
    Loop
    
    Set IEdoc = Ie.document
    
    'Login
     Set DOCelement = IEdoc.getElementsByName("fUsr").Item
     DOCelement.Value = "xxxx"
     
    'Password
     Set DOCelement = IEdoc.getElementsByName("fPwd").Item
     DOCelement.Value = "yyyyyyyy"
     DOCelement.Select
     
    'connexion
     <bold>Set DOCelement = IEdoc.getElementsByClass("btn btn-primary cms-Authent").Item
     DOCelement.submit</bold>

jordane45 · Answer

Bonjour,

Essaye ça

Sub IMPORTCARTO()
    
Dim Ie As InternetExplorer
    Dim IEdoc As Object
    Dim DOCelement As Object
    
    Set Ie = New InternetExplorer
    Ie.Visible = True
    Ie.Navigate ("https://espace-pro.cartotheque.com/connexion.html")
 
    Do Until Ie.ReadyState = 4
        DoEvents
    Loop
    
    Set IEdoc = Ie.document
    
    'Login
     Set DOCelement = IEdoc.getElementsByName("fUsr").Item
     DOCelement.Value = "xxxx"
     
    'Password
     Set DOCelement = IEdoc.getElementsByName("fPwd").Item
     DOCelement.Value = "yyyyyyyy"
     DOCelement.Select
     
    'connexion
    Set DOCelement = IEdoc.forms(0)
        DOCelement.submit
     
End Sub

LeGhe · Answer

Pareil, rien ne se passe, pas de validation...

Import web avec identification

2 réponses

Discussions similaires

Newsletters