Bonjour,
Je cherche désespérément une solution et modifié le début de la macro, ça ouvre bien la page via Michelin mais je suis bloquée ; la zone départ ne parvenant pas à être pointée... soit à partir d'ici : Set InputmichelinZoneTexte = IEDoc.all("Departure")
Quelqu'un aurait la solution svp ?
Sub RechercheVBAExcel()
'Déclaration des variables
Dim IE
Dim IEDoc
Dim InputmichelinZoneTexte
Dim InputmichelinBouton
'Chargement d'une page Web via michelin
Set IE = CreateObject("InternetExplorer.Application")
IE.Navigate "
https://www.viamichelin.fr/web/Itineraires"
'Affichage de la fenêtre IE
IE.Visible = True
'On attend le chargement complet de la page
Do While IE.Busy
Application.Wait DateAdd("s", 10, Now)
Loop
For i = 1 To 10
DoEvents
Next
'On pointe le membre Document
Set IEDoc = IE.document
'On pointe notre Zone de texte de depart
Set InputmichelinZoneTexte = IEDoc.all("Departure")
'On définit le texte que l'on souhaite placer à l'intérieur
InputmichelinZoneTexte.Value = "Vaujours 93410"
'On pointe notre Zone de texte d'arrivee
Set InputmichelinZoneTexte = IEDoc.all("strArrivalAddress")
'On définit le texte que l'on souhaite placer à l'intérieur
InputmichelinZoneTexte.Value = "raincy 93340"
'On pointe notre bouton
Set InputmichelinBouton = IEDoc.forms("itiSearchZone")(6)
'On simule un clic
InputmichelinBouton.submit
'On attend le chargement complet de la page
Do While IE.Busy
Application.Wait DateAdd("s", 10, Now)
Loop
'On libère les variables
Set IE = Nothing
Set IEDoc = Nothing
End Sub