VBA dans navigateur internet

Bonjour,

A ma connaissance VBA ne permet que de s'adresser à IExplorer.

pierrof à dit:

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

Cliquez pour agrandir...

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.

Cliquez pour agrandir...

Google fournit des API utilisables via VBA...
mais je n'ai pas connaissance d'API consacrées à CHROME

Bonsoir D.D. et Modeste geedee

Merci pour ces informations.

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

Bonsoir escouger

Il suffit de faire un clic droit sur l'élément et faire inspecter.

Cordialement

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

Bonjour,

Ci-joint une réponse avec une simulation d'appui sur le bouton Entrée.

Cordialement

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

Complément:
En fait çà ne marche pas si je fais défiler la macro pas à pas.
Par contre si je l'éxécute via le bouton "Internet Explorer" çà fonctionne.

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