Discussion :

[Kestion100]

Bonjour,
Je souhaiterais:

-1:

Activer la fenêtre Firefox sur l'onglet en cours;

-2:

Remplir une zone de recherche avec une donnée venant d'une cellule sans utiliser sendkeys tab, il y en aurait trop.
Si je pouvais trouver son nom dans la page et la remplir automatiquement, ce serait parfait


Serait-ce possible?


MERCI BEAUCOUP POUR UN COUP DE MAIN!!!!!!

[deedolith]

Hello,

Les navigateurs moderne se pilotent via Selenium WebDriver

Alternativement, il y a le CDP framework (https://github.com/longvh211/Chromiu...th-CDP-for-VBA), mais ne fonctionne que pour Edge et Chrome.

[Kestion100]

Impossible d'installer quoi que ce soit sur mon ordinateur c'est un ordinateur professionnel

[deedolith]

Il ne te reste que CDP Framework (à ma connaissance, tous les PC Windows sont équipés de Ms Edge).

[Kestion100]

Alors là il faudrait m'en dire plus je ne connais absolument pas

[deedolith]

1) Tu télécharge le framework: https://github.com/longvh211/Chromiu...leases/tag/2.7
(c'est une classeur de macro complémentaires xlam contenu dans un zip).

2) Tu t'assures que le classeur est bien actif dans les compléments.
Alternativement, tu copie / colle les modules dans un nouveau classeur.

3) Tu actives la référence Microsoft Scripting Runtime.

4) Tu regarde les exemples livrés dans les sources, tu fais tes propres expérimentation (il n'y a pas vraiment de tutoriel).

Un petit exemple avec Chrome, Effectuer la recherche "Final Fantasy" sur google:

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
Option Explicit
 
Public Sub test()
        '// instanciation
    Dim Browser  As CDPBrowser
    Set Browser = New CDPBrowser
 
        '// demarre le navigateur Chrome
    Browser.start "chrome", cleanActive:=False
 
        '// Navigue vers la page de Google
    Browser.navigate "https://www.google.fr", isComplete
 
        '// Saisie de la recherche
    Dim TextInput As CDPElement
    Set TextInput = Browser.getElementByXPath("//textarea[@class='gLFyf']")
    TextInput.value = "Final Fantasy"
 
        '// Click sur le bouton "Recherche Google"
    Dim SearchButton As CDPElement
    Set SearchButton = Browser.getElementByXPath("//input[@value='Recherche Google']")
    SearchButton.click isComplete
 
        '// Refermer le navigateur quand on en a plus besoin.
    Browser.quit
End Sub

La clef est de d'obtenir les éléments TML avec qui tu veux interagir, le framework proposes plusieurs méthode pour sélectionner / naviguer entre les éléments (les méthodes get*).
Il faudra peut-être que tu te documentes sur XPath pour sélectionner ces derniers.

Ps: Avec Edge, c'est très tâtillon (j'essuie beaucoup de plantages), n'hésite pas à persévérer.

[jurassic pork]

Hello,
pour CDP il y a une contribution ici : Pilotage de navigateurs Web (Chrome, Edge, Firefox) en VBA en utilisant le protocole CDP

bien que Firefox soit annoncé ce n'est pas le cas, il n'est pas géré et Firefox va abandonner le protocole CDP.
Il y a toujours la possibilité d'utiliser Internet explorer qui est toujours présent dans windows ( en mode non accessible comme application mais utilisable en VBA). il y a un tutoriel ici
Attention cela ne marchera que sur certains sites car internet explorer commence à dater.
Ami calmant, J.P

[Kestion100]

Avec Firefox, c'est OK?

Première ligne,

Code :

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

Dim Browser As CDPBrowser

:

Erreur de compilation: type défini par l'utilisateur non défini.


J'ai téléchargé le fichier, extrait le xlam dans mon dossier dévolu et activé le xlam,

Code :

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

Microsoft Scripting Runtime

est coché.

J'ai copier coller ton code dans un module.

[Kestion100]

Je n'ai pas le choix du navigateur

[Kestion100]

Je n'avais pas copié les modules class, c'est fait, donc ça c'est débloqué

[Kestion100]

Aurais-tu un nom à me suggérer?

[Invité]

Je ai pas de nom mais j'ai vu plusieurs applications communiquent avec des addons par exemple pour le stockage des mots de passe ..

[Kestion100]

Une chose pour ce modèle.
Existe t il un moyen de vérifier que l'action a bien eu un effet? Peut-être récupéré l'url de la page avant et celle de la page après??????

[Kestion100]

Ou récupérer les infos débug.print mais je ne sais pas trop où aller chercher, j'y suis arrivé 2 fois sur un bouton et la saisie de la valeur à chercher mais c'est assez empirique.

[Kestion100]

J'ai vu ça sur internet:

Code :

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

1
2
3
4
5
 
 
On Error GoTo 0
 
    objBrowser.wait till:="interactive"