[VBA] Selenium + driverChrome

Question

Pour mon boulot, j'essai d'automatiser des extractions que je dois faire de manière régulière.. J'ai fait quelques recherches et le logiciel Sélénium, est apparu comme une solution. Sur le site sur lequel je dois accéder, (il est sur un réseau privé inaccessible pour tout le monde, donc je ne peux pas vous donner le lien pour aller voir de plus prêt), j'arrive bien a faire l'authentification, cliquer sur des boutons,...... mais je n'arrive pas a cliquer sur un lien : Exemple "reseau-peda" (dans la capture j'ai développé l'inspection des lignes pour les deux liens visibles, reseau-peda et reseau-peda Old) Le lien ne renvoi pas vers une autre page internet... l'affichage du résultat du clic fait à la main reste avec la même url, de type : https://wxxxxxxxxxxxxxxxxxxxxxxxxxwxwxwxwxwxxxxx/extractions/perso/rechercheExtractions.do Quelque soit le lien cliqué, c'est toujours la même url, mais le résultat est différent... j'ai essayé d'obtenir le lien à cliquer de différentes façon sans succès... du genre la recherche de lien avec le nom partiel... je n'ai comme info que un tagname "a" rechercher le tagname avec une erreur de méthode non gérée... Je me doute qu'il n'y a pas beaucoup de personnes qui sont utilisateurs de selenium... mais comme il y a eut quelques sujet la dessus.... je tente ma chance... Merci. Fred...

Jurassic Pork · Accepted Answer

Il y a une solution alternative à Selenium , c'est Chromium-Automation-with-CDP-for-VBA Elle est constituée de modules de classe VBA qui permettent de piloter les principaux navigateurs (Chrome, Edge, Firefox). Il n' y a pas besoin de drivers. Ami calmant, J.P...

saboh12617 · Answer

Je n'ai jamais utilisé cet outil mais il a l'air intéressant. Je vois dans la documentation que l'objet "WebActionChain" dispose de la méthode ".Click". Il suffit de lui donner un "element" comme argument pour le cliquer. Est-ce bien comme ceci que vous avez procédé ...

scraper · Answer

Comme saboh12617

je n'utilise pas encore Selenium

a quoi ressemble votre code? A tout hasard, ...

Sub test()
    Dim ch, item, cc, t

    Set ch = New Selenium.ChromeDriver
    ch.Start baseUrl:="www.your url"
    For Each item In ch.FindElementByTag("your table name")  'or by Id
        cc = 1
        set li = item.FindElementsByClass("w-auto")
        For Each t In li
            t.FindElementByTag("a").Click
            cc = cc + 1
        Next t
    Next li
End Sub

Jurassic Pork · Answer

J'ai retrouvé dans mes archives CDP , le moyen de sélectionner une balise a dont un des attributs contient une chaîne.

Par exemple pour ton lien RESEAU-PEDA :

Set ReleveLink = objBrowser.getElementByXPath("//a[contains(@onclick,'133761')]")

On cherche une balise a qui se trouve n'importe où dont l'attribut onclick contient 133761

Jurassic Pork · Answer

Dans mes archives j'ai déjà eu à cliquer sur un bouton de valeur Entrer voilà ce que j'utilisais : objBrowser.getElementByQuery("input&#91;value='Entrer'&#93;").click...

Jurassic Pork · Answer

Il n'y a pas de commande magique pour cela. Il faut que tu retrouves le lien qui correspond au clic et télécharger le fichier indiqué par le lien. Voici un exemple de téléchargement de fichier en utilisant l'objet WinHttp.WinHttpRequest : Sub DownloadFichier(urlSrc,nomDest) Dim WinHttpReq As Object, oStream As Object, Set WinHttpReq = CreateObject("WinHttp.WinHttpRequest.5.1") Set oStream = CreateObject("ADODB.Stream") dlPath = "D:	mp\fichiers\" WinHttpReq.Open "GET", urlSrc, False WinHttpReq.send ' Debug.Print urlSrc, WinHttpReq.Status If WinHttpReq.Status = 200 Then oStream.Open oStream.Type = 1 oStream.Write WinHttpReq.responseBody oStream.SaveToFile dlPath & nomDest, 2 ' 1 = no overwrite, 2 = overwrite oStream.Close Else Debug.Print "NOK : ", WinHttpReq.Status End If Set WinHttpReq = Nothing: Set oStream = Nothing MsgBox "Téléchargement terminée !" End Sub...

Jurassic Pork · Answer

Comme ça m'a l'air d'être un input ton élément tu dois pouvoir écrire la valeur dedans avec un sendKeys . Exemple : elem.sendKeys "12345678" Ami calmant...

Jurassic Pork · Answer

Tu as essayé sans les parenthèses pour le sendKeys...

Jurassic Pork · Answer

Désolé mais je peux rien pour toi et ton élément est spécial car il est de type searchbox. Il est bien visible au moment où tu fais le sendKeys ...

Jurassic Pork · Answer

Sinon regarde dans cette page dans les Examples si il y a un exemple qui ressemble à ton élément pour que je puisse tester un élément similaire En particulier celui-là...

Jurassic Pork · Answer

J'ai essayé de sélectionner un élément de la ComboBox de l'exemple dont je parle dans mon message précédent : Cela fonctionne quand on clique sur l'élément qu'on veut dans la ListBox qui se situe sous la ComboBox. Pour sélectionner l'élement on utilise soit son id si il en a un ou soit sa position dans la Liste. Exemple de code : Sub Test_CDP_Select_Option() ' J.P Mars 2025 Dim objBrowser As New CDPBrowser, elem As CDPElement 'on lance MS EDGE 1 objBrowser.Start "edge", cleanActive:=True, reAttach:=True ', _ ' addArgs:="--user-data-dir=d:\CDP\Edge" 'user-data-dir répertoire du cache ' on peut cacher le navigateur 'objBrowser.hide 2 objBrowser.navigate "https://www.w3.org/WAI/ARIA/apg/patterns/combobox/examples/combobox-autocomplete-list/", isInteractive '3 Set elem = objBrowser.getElementByID("lb1-ny") ' id pour New-York dans la listbox 3 Set elem = objBrowser.getElementByQuery("#cb1-listbox &gt; li:nth-child(35)") ' New York = 35ème élement de la listBox 4 elem.click ' validation de l'élément 5 objBrowser.Sleep 10 ' temps en attendant de quitter 6 objBrowser.quit Set objBrowser = Nothing End Sub Dans ta capture d'écran on ne voit pas trop la listBox qui se situe sous la comboBox alors je ne sais pas si cela ressemble à mon exemple. Ami calmant, J.P...