Discussion :

[fbtsra]

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 html :

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

    <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 VBA :

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

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.

[patricktoulon]

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

[fbtsra]

Bonsoir,

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

Merci par avance de ton aide.

Bcdt

[patricktoulon]

je te fait la base

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
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

[fbtsra]

Bonjour,

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

Code VBA :

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

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

[patricktoulon]

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 :

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
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 :

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
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