VBA dans navigateur internet

pierrof

XLDnaute Occasionnel
Bonjour à tous

J'aimerais pourvoir piloter les différents navigateur internet (IE, Mozilla et Chrome) depuis Excel.
Après plusieurs recherche sur internet j'ai pu adapté plusieurs codes pour avoir un contrôle sur une page d'Internet Explorer.

Dans le fichier ci-joint, la fonction Internet Explorer fonctionne, elle me permet d'ouvrir IE, d'aller sur un page et de renseigner des champs de cette page et de valider sur un bouton.

J'aimerais pouvoir faire de même avec les 2 autres boutons, Mozilla et Chrome pour effectuer les mêmes manipulations.

Merci de votre aide et de vos conseils.

Cordialement
 

Pièces jointes

  • TEST_A.xls
    44.5 KB · Affichages: 41
Dernière édition:

Modeste geedee

XLDnaute Barbatruc
Bonjour à tous

J'aimerais pourvoir piloter les différents navigateur internet (IE, Mozilla et Chrome) depuis Excel.
Après plusieurs recherche sur internet j'ai pu adapté plusieurs code pour avoir un controle sur une page d'Internet Explorer.

Dans le fichier ci-joint, la fonction Internet Explorer fonctionne, elle me permet d'ouvrir IE, d'aller sur un page et de renseigner des champs de cette page et de valider sur un bouton.

J'aimerais pouvoir faire de même avec les 2 autres boutons, Mozilla et Chrome pour effectuer le même manipulations.

Merci de votre aide et de vos conseils.

Cordialement
Comme l'a dit D.D.
VBA est un produit Microsoft dédiés aux produits Microsoft
Visual Basic for Applications est une implémentation de Microsoft Visual Basic qui est intégrée dans toutes les applications de Microsoft Office, dans quelques autres applications Microsoft comme Visio et au moins partiellement dans quelques autres applications comme AutoCAD, WordPerfect, MicroStation, Solidworks ou encore ArcGIS.
Google fournit des API utilisables via VBA...
mais je n'ai pas connaissance d'API consacrées à CHROME
 

escouger

XLDnaute Occasionnel
Bonjour,
Je découvre cette possibilité interessante!
jJ n'ai pas de réponse à la question relative aux différents navigateurs, mais ... une question complémentaire!

Ou triuvez-vous les strings mis à la suite des instructions :
Set InputGoogleZoneTexte = IEDoc.all("user") ou
Set InputGoogleZoneTexte = IEDoc.all("pwd")

tels que "User" ou "pwd" ? afin d'identifier les champs à garnir ?

Quelle manip doit-on faire car je ne trouve rien en faisant F12.
Merci d'avance pour votre aide
 

escouger

XLDnaute Occasionnel
Merci pour cette utile et claire réponse.
Reste un autre souci sur lequel je bute concernant l'activation du bouton "Rechercher" de Google.
Dans le fichier suivant, Excel ouvre bien le site de google.fr et j'ai pu charger la zone de recherche avec le mot "Taratata".
Je voudrais ensuite activer le bouton de recherche, puis ultérieurement récupérer la liste des sites affichés dans cette requête.
Pourriez vous, dans un premier temps, me dire ce qu'il me faudrait modifier pour activer le bouton "Rechercher".
mon code :
'Pointer le bouton Recherche (dont le nom est "btnK")

Set InputGoogleBouton = IEDoc.all("btnK")
' cette instruction passe mais InputGoogleBouton reste vide

'Simuler un clic
InputGoogleBouton.Click 'Plantage

Merci
 

Pièces jointes

  • TEST_A1.xls
    45.5 KB · Affichages: 11

escouger

XLDnaute Occasionnel
Bonjour,
Hélas cela ne marche pas chez moi. Le "sendkey" est sans aucun effet.
Le curseur reste positionné juste derrière le mot Taratata et ne bouge pas. Le recherche n'est donc pas effectuée par le moteur de recherche.
Cordialement
 

escouger

XLDnaute Occasionnel
J'ai effectué un nouveau test mais en appelant le site
à la place de Google.fr.

Je ne parviens pas à activer le bouton "recherche" via sendkey "enter".
Il semble qu'il faudrait déclencher un submit?
Pouvez encore m'aider à trouver la solution?
Merci.

Voici mon code:
Sub VBIECP()
'
Dim VILLE As String
VILLE = InputBox("ENTRER UN CODE POSTAL OU UN NOM DE COMMUNE")
'Déclaration des variables
Dim IE As New InternetExplorer
Dim IEDoc As HTMLDocument
Dim InputGoogleZoneTexte As HTMLInputElement
Dim InputGoogleBouton As HTMLInputElement
Dim FormGoogleCherche As HTMLFormElement


'Chargement d'une page Web Google
IE.navigate "https://www.codespostaux.com/home/"

'Affichage de la fenêtre IE
IE.Visible = True

'attente du chargement de la page
WaitIE IE

'Pointer membre Document
Set IEDoc = IE.document

'Pointer Zone de texte
Set InputGoogleZoneTexte = IEDoc.all("q")

'Définir le string à rechercher
InputGoogleZoneTexte.Value = VILLE


' Pointer le bouton Recherche (
' Ici commence les problèmes !
Set InputGoogleBouton = IEDoc.all("Recherche")
' cette instruction passe mais InputGoogleBouton reste vide

'Simulation de clic
' InputGoogleBouton.Click
' ICI plantage


'Attente de la fin de la recherche
WaitIE IE

'On libère les variables
Set IE = Nothing
Set IEDoc = Nothing

'On simule l'appui sur le bouton Entrée
SendKeys "{ENTER}"
SendKeys "{NUMLOCK}"


End Sub
Sub WaitIE(IE As InternetExplorer)
'On boucle tant que la page n'est pas totalement chargée
Do Until IE.readyState = READYSTATE_COMPLETE
DoEvents
Loop
End Sub
 

Discussions similaires

Réponses
8
Affichages
595

Statistiques des forums

Discussions
311 720
Messages
2 081 909
Membres
101 836
dernier inscrit
karmon