XL 2010 Connexion sur un site web via chrome

Va2_80

XLDnaute Nouveau
Bonjour tout le monde,

Je recherche une solution pour mon code en VBA.
Je souhaiterais me connecter sur une page web à l'aide du navigateur chrome sans utiliser selenium car beaucoup trop complexe.
J'ai déjà fait un code pour Internet explorer, mais la page web est instable en passant par IE.
Ci joint le code pour IE.
VB:
Sub Connexion()

  'Déclaration des variables
   Dim ie As Object
    Dim IEdoc As Object
    Dim DOCelement As Object
    Dim DOCeelement As Object
    Dim htmlSelectElem As HTMLSelectElement
    Dim FormBouton As HTMLFormElement
    Dim FormBrowse As HTMLFormElement
    Dim FormReboot As HTMLFormElement
 

 
'For i = 110 To 112

    'Initialisation des variables
   Set ie = CreateObject("InternetExplorer.Application")
    
    'Affichage de la fenêtre IE
   ie.Visible = True
    
     'Chargement de la page web
   ie.navigate Range("C" & i).Value
 
    ' attente de fin de chargement
   Do Until ie.readyState = 4
        DoEvents
    
    Loop
 
    'On pointe le membre Document
   Set IEdoc = ie.document
    
    'Tempo de 2 secondes
   Application.Wait Now + TimeValue("0:00:01")
  
  
Set FormBouton = IEdoc.all("Connexion")


    'On simule un clic
   FormBoutonS.Click
  
    
    'Selection du superviseur
'On va sur l'objet qui contient la liste des indices
Set htmlSelectElem = IEdoc.all("userlevel")

'On sélectionne l'indice "superviseur" via sa valeur unique
htmlSelectElem.Value = "supervisor"
    
    'Tempo de 2 secondes
   Application.Wait Now + TimeValue("0:00:01")
 
    'password
   Set DOCelement = IEdoc.all("fieldpassword").Item
    DOCelement.Value = "Supervisor0002!" 'Range("M2").Value
    'DOCelement.Select
 
    'Tempo de 2 secondes
   Application.Wait Now + TimeValue("0:00:01")
 
SendKeys "{ENTER}"

'Tempo de 2 secondes
   Application.Wait Now + TimeValue("0:00:01")
  
  ' Next
end sub

Auriez-vous une idée ?

Merci d'avance
Bonne journée
 

Discussions similaires

Réponses
8
Affichages
595

Statistiques des forums

Discussions
311 725
Messages
2 081 940
Membres
101 845
dernier inscrit
annesof