Récupération données WEB - JS via VBA dans Excel

Version imprimable

03/05/2018, 16h09
fbtsra

Récupération données WEB - JS via VBA dans Excel

Bonjour,

Je souhaite piloter un site web par VBA à partir d'Excel, notamment saisie de texte dans une zone de recherche, puis lancement de la recherche.

Zone de saisie de texte :

Code:

<input class="search-form-input els-text-input-field ng-pristine ng-valid needsclick ng-empty ng-touched" id="id-quick-search-input" aria-invalid="false" ng-blur="buildQuery.saveResults()" ng-model="buildQuery.query.text" rx-autofocus="" autocomplete="off" rx-label-state="">

Les essais par propriété "value" me permette d'écrire dans cette zone mais elle reste considérée comme vide si on lance la recherche.

J'ai tenté sur la base des conseils dans ce forum de patricktoulon:

Code:

IE.Document.parentWindow.execScript "angular.element(document.getElementsByTagName('input')[0]).scope().buildQuery.Query.Text = 'TexteàrechercheràpartircelluleExcel';"

mais obtient l'erreur suivante dans le débogueur web :
Impossible d’obtenir la propriété « buildQuery » d’une référence null ou non définie

Y a t il une erreur de syntaxe sur ce code ?

Merci par avance de votre aide.
03/05/2018, 22h52
patricktoulon

re

bonjour
si l'on a pas la page web ca va etre difficile
cependant quand je vois les attributs de ton bouton on comprends tout de suite que cette page est protégée anti robot
cela veut dire qu'il font en sorte que l'on puisse pas la piloter vba ou autre

magré ca on peut se jouer et leurer la protection en donnant le focus a l'input avant de le cliker pour faire croire a la page web que c'est fait manuellement avec la souris

pour plus: donner le lien sans ca t'es tout seul ;)

tu peux aussi te contenter d'executer le script puisque visiblement tu a le lien de la fonction
03/05/2018, 23h21
fbtsra

Bonsoir,

Voici le lien : https://www.reaxys.com/#/search/quick

Merci par avance de ton aide.

Bcdt

je te fait la base

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Sub test()
    Dim URL As String, IE As Object
    URL = "https://www.reaxys.com/#/login"
    Set IE = CreateObject("internetexplorer.application")
    With IE
        .Visible = True
        .navigate URL
        Do: DoEvents: Loop While .readystate <> 4' on attend le chargement de la page 
        With .document.getelementsbyname("username")(0): .Focus: .Value = "toto": End With 'on cible l'input username on lui donne le focus et lui met le login
        With .document.getelementsbyname("password")(0): .Focus: .Value = "machin": End With'pareil que pour le login 
        .document.getelementsbytagname("BUTTON")(0).Click'c'est facile y a qu'un bouton on click
        ' ici la page va se charger apres tes login et mdp donc une gestion d'attente est requise
        Do: DoEvents: Loop While .readystate <> 4 Or .busy
        'maintenant exploitation du document
        'reste du code d'exploitation
 
        '.Quit ' une fois le travail terminé on ferme IE 
    End With
End Sub

voila t'a de quoi demarrer
;)

Bonjour,

J'obtiens le même résultat qu'auparavant, cf commentaires dans le code :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub test()
    Dim URL As String, IE As Object
    URL = "https://www.reaxys.com/#/search/quick"
    Set IE = CreateObject("internetexplorer.application")
    With IE
        .Visible = True
        .navigate URL
        Do: DoEvents: Loop While .readystate <> 4 Or .busy ' on attend le chargement de la page : NE SEMBLE PAS SUFFISANT CAR LA LIGNE SUIVANTE RETOURNE UNE VALEUR NULL -> ERREUR. PAR CONTRE FONCTIONNE EN MODE EXECUTION LIGNE A LIGNE
        With .document.getElementsBytagName("input")(0): .Focus: .Value = "toto": End With 'ERREUR SUR Focus CAR GETELEMENT RETOURNE UN NULL MAIS FONCTIONNE EN EXECUTION LIGNE A LIGNE
        Do: DoEvents: Loop While .readystate <> 4 Or .busy
        .document.Forms("searchForm").submit 'lancement de la recherche : FONCTIONNE MAIS A VIDE CAR NE VOIT PAS LA VALEUR DANS LA ZONE INPUT
        .Quit ' une fois le travail terminé on ferme IE
    End With
End Sub

Merci de ton aide.
Bcdt

oui j'ai pu constater dans plusieures discussions que ce qui utilisent 2013 et 2016 on des soucis de gestions de temp windows dans divers domaines (IE temps de clipboard,etc...)
mais SVP pourrais tu tester le code comme on te le donne et pas le transformer sinon ca sert a rien hein ;)
je te le redonne comme tel et u change rien

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Sub test()
    Dim URL As String, IE As Object
    URL = "https://www.reaxys.com/#/login"
    Set IE = CreateObject("internetexplorer.application")
    With IE
        .Visible = True
        .navigate URL
        Do: DoEvents: Loop While .readystate <> 4' on attend le chargement de la page 
        With .document.getelementsbyname("username")(0): .Focus: .Value = "toto": End With 'on cible l'input username on lui donne le focus et lui met le login
        With .document.getelementsbyname("password")(0): .Focus: .Value = "machin": End With'pareil que pour le login 
        .document.getelementsbytagname("BUTTON")(0).Click'c'est facile y a qu'un bouton on click
        ' ici la page va se charger apres tes login et mdp donc une gestion d'attente est requise
        Do: DoEvents: Loop While .readystate <> 4 Or .busy
        'maintenant exploitation du document
        'reste du code d'exploitation
 
        '.Quit ' une fois le travail terminé on ferme IE 
    End With
End Sub

je vais tester autre chose qui va sans doute resoudre ton soucis en ce qui concerne cette discussion mais si c'est ce que je crois je prend le 2013 ou 2016 et je le fout a la poubelle

je reviens avec une autre solution mais en attendant test comme ca SANS RIEN CHANGER !!!

voila teste cela aussi

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Sub test()
    Dim URL As String, IE As Object
    URL = "https://www.reaxys.com/#/login"
    Set IE = CreateObject("internetexplorer.application")
    With IE
        .Visible = True
        .navigate URL
        Do: DoEvents: Loop While .readystate <> 4    ' on attend le chargement de la page
        Do: DoEvents: Set x = .document.getelementsbyname("username"): Loop While x.Length = 0
        With x(0): .Focus: .Value = "toto": End With    'on cible l'input username on lui donne le focus et lui met le login
        With .document.getelementsbyname("password")(0): .Focus: .Value = "machin": End With    'pareil que pour le login
        .document.getelementsbytagname("BUTTON")(0).Click    'c'est facile y a qu'un bouton on click
        ' ici la page va se charger apres tes login et mdp donc une gestion d'attente est requise
        Do: DoEvents: Loop While .readystate <> 4 Or .busy
        'maintenant exploitation du document
        'reste du code d'exploitation
        '.Quit ' une fois le travail terminé on ferme IE
    End With
End Sub

04/05/2018, 18h51
fbtsra

Ton code fonctionne sur la page que tu as choisie, et sous ses deux versions.

Il ne répond cependant pas à mon attente sur la page citée qui dispose d'un input différent et dont le bouton recherche n'apparaît qu'après saisie dans l'input.

Peux tu regarder le code de mon précédent post qui concerne la page en question et le tester ?

En te remerciant par avance.

Bcdt

non ton code ne peut pas fonctionner regarde pourquoi dans le mien tu comprendra tout seul
si tes login mdp sont pas enregistrés dans ton explorer tu bifurque sur l'url de login et les gestion d'attentes que ca exige
c'est des pages bien pourries a piloter ca avec leur protection on window (anti robot )
bref voila apres ca je peux plus rien pour toi ;)

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Sub test()
    Dim URL As String, IE As Object
    URL = "https://www.reaxys.com/#/search/quick"
    Set IE = CreateObject("internetexplorer.application")
    With IE
        .Visible = True
        .navigate URL
        Do: DoEvents: Loop While .readystate <> 4 ' on attend le chargement de la page
        Do: i = i + 1: Loop While .locationurl = URL Or i = 1000
        If .locationurl = "https://www.reaxys.com/#/login" Then
        'MsgBox .locationurl
        Do: DoEvents: Set x = .document.getelementsbyname("username"): Loop While x.Length = 0
        With x(0): .Focus: .Value = "toto": End With 'on cible l'input username on lui donne le focus et lui met le login
        With .document.getelementsbyname("password")(0): .Focus: .Value = "machin": End With 'pareil que pour le login
        .document.getelementsbytagname("BUTTON")(0).Click 'c'est facile y a qu'un bouton on click
        End If
        ' ici la page va se charger apres tes login et mdp donc une gestion d'attente est requise
        Do: DoEvents: Loop While .readystate <> 4 Or .busy
        'maintenant exploitation du document
        'reste du code d'exploitation
 
        '.Quit ' une fois le travail terminé on ferme IE
    End With
End Sub