Recherche internet vba

Version imprimable

Bonjour,

Je suis débutant en VBA , je me suis donc aidé d'un tutoriel pour réaliser ma macro, mais je rencontre quand même des difficultés.

Je souhaite à partir de Excel lancer une recherche d'itinéraire sur Mappy et en récupérer les informations (kilomètre, durée, essence).

J'en suis pour l'instant à la premier étape, c'est à dire lancer la recherche. Ci-dessous mon code.
Code:

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 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 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 Sub RechercheVBAExcel() 'Déclaration des variables Dim IE As New InternetExplorer Dim IEDoc As HTMLDocument Dim InputmappyZoneTexte As HTMLInputElement Dim InputmappyBouton As HTMLInputElement 'Chargement d'une page Web Mappy IE.navigate "http://fr.mappy.com/itineraire#/1/M2/TItinerary/I/N151.12061,6.11309,2.32641,46.68697/Z3/" 'Affichage de la fenêtre IE IE.Visible = True 'On attend le chargement complet de la page WaitIE IE 'On pointe le membre Document Set IEDoc = IE.document 'On pointe notre Zone de texte de depart Set InputmappyZoneTexte = IEDoc.all("from") 'On définit le texte que l'on souhaite placer à l'intérieur InputmappyZoneTexte.Value = "Vaujours 93410" 'On pointe notre Zone de texte d'arrivee Set InputmappyZoneTexte = IEDoc.all("to") 'On définit le texte que l'on souhaite placer à l'intérieur InputmappyZoneTexte.Value = "raincy 93340" 'On pointe notre bouton Set InputmappyBouton = IEDoc.all("ItineraryFormView-itinerary-trigger") 'On simule un clic InputmappyBouton .Click 'On attend la fin de la recherche WaitIE IE 'On libère les variables Set IE = Nothing Set IEDoc = Nothing End Sub
En exécutant ce code la page internet s'ouvre bien mais aucune information n'est entrée dans les cases "départ" et "Arrivée" et la recherche ne se lance pas.

Auriez vous une piste pour solutionner ce problème?

Par avance merci!

Cordialement,

Matthieu.

14/04/2013, 11h28
curt
Bonjour matthieu93410,

Code:

InputmappyBouton .Click

enlève l'espace avant le .Click

De plus, modifie ton code code ci-dessous
Code:

1 2 3 4 5 'On attend le chargement complet de la page WaitIE IE For i = 1 To 100000 DoEvents Next
c'est toujours le même problème. On veut utiliser des champs de page avant que cette même page ait finie d'être chargée. Le WaitIE ne fonctionne pas toujours correctement.

Curt
17/04/2013, 21h06
matthieu93410

Bonjour Curt,

Tout d'abord merci pour ta réponse.

Le problème était effectivement un problème de chargement de page, mais non pas lié à la fonction Wait IE mais à antivirus qui nécessitait d'autoriser l'accès à la page.

Encore merci!

Cordialement,

Matthieu.

Bonjour tout le monde.

Ne pouvant pas récupérer les informations sur la distance, le temps... sur Mappy, en effet je ne trouve aucune référence "name" utilisable dans la zone où se trouve les résultat, je me suis tourné vers le site via Michelin.

Code:

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
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
 
Sub RechercheVBAExcel()
Déclaration des variables
Dim IE As New InternetExplorer
Dim IEDoc As HTMLDocument
Dim InputmichelinZoneTexte As HTMLInputElement
Dim InputmichelinBouton As HTMLFormElement
 
 
   'Chargement d'une page Web michelin
   IE.navigate "http://www.viamichelin.fr/web/Itineraires"
 
   'Affichage de la fenêtre IE
   IE.Visible = True
 
  'On attend le chargement complet de la page
   WaitIE IE
 
   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("strDepartureAddress")
 
 '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")(0)
 
   'On simule un clic
    InputmichelinBouton.submit
 
 'On attend la fin de la recherche
    WaitIE IE
 
'On libère les variables
   Set IE = Nothing
   Set IEDoc = Nothing
End Sub

Problème: il y a 2 boutons recherche dans la même zone "form". J'ai donc essayer de mettre un item pour sélectionner le 1er bouton.

Au final la recherche ne se lance pas.

Une idée?

Par avance merci !!!

Matthieu.

19/04/2013, 22h29
curt
Bonsoir matthieu93410,

remplace :

Code:

Set InputmichelinBouton = IEDoc.forms("itiSearchZone")(0)

par

Code:

Set InputmichelinBouton = IEDoc.forms("itiSearchZone")(6)

et remet :
Code:

1 2 'On simule un clic InputmichelinBouton.Click
et .... bonne route !!!!

Curt

bonjour, test ça

Code:

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
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
 
Sub RechercheVBAExcel()
'Déclaration des variables
Dim IE
Dim IEDoc
Dim InputmappyZoneTexte
Dim InputmappyBouton
'Chargement d'une page Web Mappy
Set IE = CreateObject("InternetExplorer.Application")
IE.Navigate "http://fr.mappy.com/itineraire#/1/M2/TItinerary/I/N151.12061,6.11309,2.32641,46.68697/Z3/"
 
'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
 
'On pointe le membre Document
Set IEDoc = IE.Document
 
'On pointe notre Zone de texte de depart
Set InputmappyZoneTexte = IEDoc.all("from")
 
'On définit le texte que l'on souhaite placer à l'intérieur
InputmappyZoneTexte.Value = "Vaujours 93410"
 
'On pointe notre Zone de texte d'arrivee
Set InputmappyZoneTexte = IEDoc.all("to")
 
'On définit le texte que l'on souhaite placer à l'intérieur
InputmappyZoneTexte.Value = "raincy 93340"
 
'On pointe notre bouton
Set InputmappyBouton = IEDoc.all("ItineraryFormView-itinerary-trigger")
 
'On simule un clic
InputmappyBouton.Click
 
'On attend la fin de la recherche
 Do While IE.Busy
       Application.Wait DateAdd("s", 10, Now)
Loop
'On libère les variables
Set IE = Nothing
Set IEDoc = Nothing
End Sub