Discussion :

[chris28130]

Bonjour,

Je débute en VBA, et après avoir passer deux jours a chercher je bloque toujours.
Je souhaite créer un fichier qui remplit les informations suivantes : Nom, prénom, service & mail.
Toute ces infos sont dispos dans l'annuaire interne de la boite qui ce décompose en quatre champs de recherches :
l'id : txt_Nom qui est la case ou on entre le nom.
l'id : txt_Prenom pour le prénom.
l'id : txt_Visa pour le visa
l'id : txt_Metier pour le métier.
Plus un menu déroulant permettant de choisir le site avec : id "cmb_SitGeo"

Pour commencer j'essai déjà d'afficher la page et de renseigner le champ txt_Nom, et là déjà ça bug :

Voila le script :

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
41
42
43
44
45
 
Sub RechercheNom()
'Déclaration des variables
Dim Ie As New InternetExplorer
Dim IEDoc As HTMLDocument
Dim InputGoogleZoneTexte As HTMLInputElement
Dim InputGoogleBouton As HTMLInputElement
 
   'Chargement d'une page Web piano
   Ie.navigate "http:/xxxx"
 
   '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
   Set InputGoogleZoneTexte = IEDoc.all("txt_Nom")
 
   'On définit le texte que l'on souhaite placer à l'intérieur
   InputGoogleZoneTexte.Value = "nomxxx"
 
   'On pointe notre bouton
    Set InputGoogleBouton = IEDoc.all("btn_Filter")
 
    'On simule un clic
    InputGoogleBouton.Click
 
   'On attend la fin de la recherche
   WaitIE Ie
 
   'On libère les variables
   Set Ie = Nothing
   Set IEDoc = Nothing
 
End Sub
'-------------------------------------------------------------------------------
Sub WaitIE(Ie As InternetExplorer)
 
    'On boucle tant que la page n'est pas totalement chargée
    Do: DoEvents: Loop While Ie.Busy Or Ie.readyState <> 4

Si quelqu'un peux m'aider merci d'avance.

[clementmarcotte]

Bonjour,

Cela va prendre une boule de cristal.

Si tu vas là, tu vas voir ceci:

-2147467259 (80004005) Erreur non spécifiée.

Ou bien, tu peux éplucher les 10800 réponses

[mercatog]

Fais un point d'arrêt sur la ligne 19 et regarde ce que tu as (variables, ta page...)

Si tout est bon, fais le pas à pas ensuite à l'aide de F8

[chris28130]

Bonjour mercatog,

Merci pour ton retour il semble que l'erreur ce produit effectivement au niveau de la ligne 19, le IEDoc ne serait pas bon ?

Cordialement.

[patricktoulon]

bonjour
supprime le ie.busy du wait

et ajoute un teste avec "isobject"sur ton premier control html (input)
en effet il semblerait que le busy tourne en rond depuis la version ie10 selon les pages web
c'est pour cela que iedoc est null

[Marc-L]

Bonjour,

constaté aussi avec certaines pages Web quelque soit la version d'IE (9, 10 ou 11) avec une connexion rapide
le ReadyState ne passe jamais à 4 ou alors après un temps délirant … (Abcbourse entre autres)

Mais là si le code arrive bien à la ligne n°19, ce n'est pas un souci de Busy ni de ReadyState …

_________________________________________________________________________________________________________

Je suis Paris, Nice, Bruxelles, Charlie, …