Discussion :

[GAN_ALAIN]

bonjour à tous,

J'essaie de piloter internet explorer comme je le fait d'habitude mais cette fois ci. je n'y arrive pas.
J'ai regardé les différents post mais sans succès.
si quelqu'un pouvais me mettre sur la voie, ce serai gentil.

voici mon code :

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
27
28
29
30
31
32
33
34
35
36
37
38
39
40
Private Sub CommandButton9_Click()
 
Dim IE As InternetExplorer
Dim IEDoc As HTMLDocument
Dim InputZoneTexte, InputBouton, InputRadioButton As HTMLInputElement
Dim InputForm As HTMLFormElement
 
   Set IE = CreateObject("InternetExplorer.Application")
   IE.Navigate "http://www.pole-emploi.fr/candidat/les-fiches-metiers-@/index.jspz?id=681"
   IE.Visible = True
 
   Do Until IE.ReadyState = READYSTATE_COMPLETE
      DoEvents
   Loop
 
   Set IEDoc = IE.Document
 
   Set InputForm = IEDoc.forms("formulaire")
 
   Set InputRadioButton = InputForm.radio("blocMetier")
 
   Set InputZoneTexte = IEDoc("metierRecherche")
 
   InputZoneTexte.Value = "xxxxxxx"    'UserForm2.TextBox30
 
   'InputForm.submit
 
   Set InputBouton = IEDoc.all("boutonLancerRecherche")
 
   InputBouton.Click
 
   Do Until IE.ReadyState = READYSTATE_COMPLETE
      DoEvents
   Loop
 
   'Set IE = Nothing
   'Set IEDoc = Nothing
   'IE.Quit
 
End Sub

Merci d'avance

[Marc-L]

Bonjour, bonjour !

Pour guider vers la voie, faudrait-il encore connaître précisément la question !

[GAN_ALAIN]

Ah désolé... Quand j'ai ouvert le post hier je devais être KO lol

Alors quand je pointe la zone de texte que je souhaites remplir... Et que j'affecte une chaine de charactere...
J'ai un message d'erreur.
Je suppose qu'il y a des objets parents que j'ai pas pris en compte.
Le VBA pour internet explorer est nouveau pour moi... Je me suis basé sur un tuto sur le forum pour apprendre.
Jai déja reussi à remplir des textbox sur dautres sites mais sur celui la la meme méthode de fonctionne pas. Rien ne se rempli... Pourtant jutilise bien les ID que j'ai trouvé et a premiere vue ils sont unique.

[Marc-L]

Quel message d'erreur ?!

Et avec un exemple concret de saisie …

Quel est le but, juste lancer une recherche et c'est fini ?
Car piloter IE est souvent la voie la plus pénible et la moins efficace …

_____________________________________________________________________________________________________
Je suis Charlie, Bardo, Sousse