Discussion :

[noftal]

bonjour,
J'utilise depuis 10 ans sur ce très bon tuto pour pouvoir interagir avec des pages web en VBA :
https://qwazerty.developpez.com/tuto...-et-vba-excel/
Mais ce tuto s'appuie uniquement sur une interaction avec un objet basé sur Internet Explorer
Or, avec le temps, de plus en plus de sites web ne fonctionnent plus sur ce navigateur devenu obsolète.
Par exemple le site d'AXA https://connect.axa.fr
Existe-t-il des objets VBA permettant de manipuler d'autres navigateurs comme Chrome ou Firefox ?

[jurassic pork]

hello,
tu peux essayer d'utiliser selenium basic

Ami calmant, J.P

[noftal]

Merci pour le tuyau.
J'ai regardé et ça promet une solution à mon problème mais
- je n'arrive pas à utiliser avec Firefox. Quand je mets une instruction du genre

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Dim robot As New WebDriver
robot.Start "firefox", "https://www.google.fr"

Firefox s'ouvre mais n'affiche pas la page Google et au bout de quelques secondes une erreur s'affiche

Firefox failed to open the listening port 127.0.0.1

J'ai trouvé plusieurs témoignages similaires sur internet mais aucune solution

- sur chrome je n'ai pas trouvé la solution pour saisir un mot de passe sur un site avec clavier virtuel
Sur ces sites, il y a un champ destiné à recevoir le mot de passe que l'on remplit en cliquant sur les chiffres du clavier virtuel. Avec IE, j'arrivais à dire à ce champ de prendre la valeur attendue, par exemple :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
 
Dim IE As New InternetExplorer
Dim IHTMLcollection As IHTMLElementCollection
Dim InputTxtBox As HTMLInputElement
Dim IEDoc As HTMLDocument
IE.navigate "https://connect.axa.fr/#/"
Set IEDoc = IE.document
Set IHTMLcollection = IEDoc.getElementsByName("inputPassword")
Set InputTxtBox = IHTMLcollection(0)
InputTxtBox.Value = "mon-mot-de-passe"  'combinaison de chiffres

NOTA : le code ci-dessous ne marche plus aujourd'hui parce que AXA ne fonctionne plus avec IE, mais avant, ce code marchait. J'ai mis ce code pour exemple mais vous pouvez le tester avec n'importe quel site avec clavier virtuel qui continue d'accepter IE.

Avec Selenium, j'ai tenté le code suivant mais visiblement la commande SendKeys ne "remplit" pas le champ mot de passe

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
 
Dim robot As New WebDriver
    Dim mdp As Object
 
    robot.Timeouts.ImplicitWait = 8000
    robot.Start "chrome", "https://connect.axa.fr/#/"
    robot.Get "/"
 
    ' Mot de passe
    Set mdp = robot.FindElementById("inputPassword")
    'mdp.Clear - l'instruction provoque un bogue ici
    mdp.SendKeys "mon-mot-de-passe"  'combinaison de chiffres

Y a-t-il d'autres possibilités que SendKeys pour ce type de champ ? C'est bizarre que l'on puisse interagir avec ce champ dans IE et pas dans Firefox ou chrome

[jurassic pork]

hello,
en ce qui concerne Firefox cela ne m'étonne pas trop car cela fait 6 ans que SeleniumBasic n'a pas été mis à jour et il y a alors bien un moment il ne fonctionnera plus avec les nouvelles versions des navigateurs et des webdrivers.
Pour l'autre problème tu peux essayer d'exécuter du javascript pour remplir le champ :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Set MdP = robot.FindElementByName("inputPassword")
robot.ExecuteScript "arguments[0].value='123456'", MdP

Ami calmant, J.P

[noftal]

Bonjour
Ce code a pour effet de remplir en effet (en tout cas visuellement) le champ "code confidentiel" avec des points (caractères masqués)
Mais si je clique sur le bouton "Me connecter" pour valider login et mot de passe, il s'affiche la mention "champ obligatoire" sous le champ "code confidentiel".
En résumé, tout se passe comme si le site n'avait pas associé le mot de passe au champ destiné à le recevoir.

[jurassic pork]

hello,
ce que tu peux essayer de faire c'est de cliquer le premier bouton du clavier visuel pour initialiser le champ puis d'exécuter le javascript -> la touche tapée dans le champ sera remplacée par ce qui est envoyé par le javascript.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Dim bouton As Object   
Set bouton = robot.FindElementByXPath("//button[@class='virtual-keyboard-v2--button ng-scope']")
bouton.Click

Ami calmant, J.P