hello,
Le problème (du moins chez moi) était dû au fait que le WebDriver pour Firefox n'était plus à jour dans SeleniumBasic. En effet la dernière version de SeleniumBasic date de mars 2016 et depuis le driver Firefox a évolué de son côté pour prendre en compte les nouvelles versions de Firefox.
Voici comment procéder pour mettre à jour ce driver :
D'abord il faut localiser le répertoire où sont les fichiers de SeleniumBasic :
sur mon pc sous windows 7 ils se trouvent dans le répertoire C:\Users\<nom du user>\AppData\Local\SeleniumBasic
le driver en cause est firefoxdriver.xpi le renommer firefox.xpi.old
Ensuite pour récupérer un driver à jour faire ceci (je n'ai pas trouvé le driver firefox tout seul à télécharger )
Télécharger le Selenium Standalone server version 2.53.1 ici
Ouvrir le fichier jar téléchargé avec 7zip
Descendre dans l'arborescence jusqu'à selenium-server-standalone-2.53.1.jar\org\openqa\selenium\firefox\
Extraire le fichier webdriver.xpi et le renommer firefoxdriver.xpi
Le mettre dans le répertoire C:\Users\<nom du user>\AppData\Local\SeleniumBasic
Avec ce nouveau driver j'arrive à utiliser SeleniumBasic avec Firefox 47.0.1 32 bits . J'utilise Excel 2010 32 bits sous windows 7 64 bits.
Voici le code VBA qui fonctionne chez moi pour effectuer ce qui était demandé la discussion piloter-fenetre-windows-vba en utilisant SeleniumBasic
Ami calmant, J.P
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 Public Sub AspirateurABC() 'J.P Juillet 2016 Dim by As New by, Assert As New Assert, Verify As New Verify, Waiter As New Waiter Dim driver As New WebDriver 'on change les paramètres de Firefox pour un téléchargement automatique 'des fichiers .txt ' on peut ajouter une extension dans le profil utilisé ' driver.AddExtension ("f:\temp\Adblock_plus.xpi") driver.SetPreference "browser.download.folderList", 2 driver.SetPreference "browser.download.manager.showWhenStarting", False driver.SetPreference "browser.download.dir", "f:\mytemp" ' ne pas demander pour les fichiers .txt (pour les csv -> text/csv) driver.SetPreference "browser.helperApps.neverAsk.saveToDisk", "text/plain" driver.Start "firefox", "http://www.abcbourse.com/" 'driver.Start "internet explorer", "http://www.abcbourse.com/" driver.Get "/download/historiques.aspx" driver.FindElementById("ctl00_BodyABC_strDateDeb").Clear driver.FindElementById("ctl00_BodyABC_strDateDeb").SendKeys "26/05/2015" driver.FindElementById("ctl00_BodyABC_strDateFin").Clear driver.FindElementById("ctl00_BodyABC_strDateFin").SendKeys "26/05/2016" driver.FindElementById("ctl00_BodyABC_oneSico").Click driver.FindElementById("ctl00_BodyABC_txtOneSico").Clear driver.FindElementById("ctl00_BodyABC_txtOneSico").SendKeys "FR0000120222" driver.FindElementById("ctl00_BodyABC_Button1").Click 'tempo pour permettre le téléchargement 'on pourrait tester l'apparition du fichier téléchargé Application.Wait Now + TimeValue("0:00:10") driver.Quit End Sub
Partager