problème pour remplir le champ intranet : erreur d'execution '-2147467259 (80004005)' automation

**chris28130** · 20/10/2016, 16h56

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** · 20/10/2016, 21h42

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** · 21/10/2016, 11h14

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** · 21/10/2016, 12h13

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** · 22/10/2016, 12h59

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** · 22/10/2016, 13h30

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, …

**patricktoulon** · 22/10/2016, 13h43

bonjour marc
si si!!!!
j'ai des pages web qui avec un wait sur ie.busy tourne en rond comme si la page était toujours en travail ou dure des plombes

parfois elle passe mais j'ai un document NULL et j'ai bien une erreur non spécifiée

va savoir toi

c'est pour cela que je ne l'utilise plus je préfère ta méthode sur le "isobject" plus probant

on peu même le faire sur le document( if isobject(ie.document))

voila un sujet a traiter hein!!! dans un futur débat

**chris28130** · 24/10/2016, 12h03

Bonjour patrick,

Merci pour ta réponse, pour ie.busy, j'ai remplacer par contre je vois pas comment déclaré le "isobjet" en control, j'ai une erreur automotion à la place de l'erreur précédente et le texte ne s’inscrit toujours pas dans la case : "txt_Nom".
Voici le code de la zone de texte que je souhaite remplir :

Code html :

Sélectionner tout - Visualiser dans une fenêtre à part

<INPUT name=txt_Nom title="Saisir au moins un caractère" class=ui-autocomplete-input id=txt_Nom role=textbox aria-haspopup=true style="WIDTH: 165px" aria-autocomplete=list type=text maxLength=50 jQuery171008915050488326664="8" placeholder="Saisir au moins un caractère" autocomplete="off">

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
Sub RechercheNom()
'Déclaration des variables
Dim Ie As New InternetExplorer
Dim IEDoc As HTMLDocument
Dim InputZoneTexte As HTMLInputElement
Dim InputBouton As HTMLInputElement
 
   'Chargement d'une page Web piano
   Ie.navigate "http://xxx/FrmAnnuaire"
 
   '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 InputZoneTexte = IEDoc.all("txt_Nom").Value = "XXX"
 
   'On pointe notre bouton
    Set InputBouton = IEDoc.all("btn_Filter")
 
    'On simule un clic
    InputBouton.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 Until Ie.readyState = 4
 
End Sub

Merci d'avance

**patricktoulon** · 24/10/2016, 12h25

re
test cela en mettant ton url valide et regarde les commentaires et dis moi quel message tu a a la fin si il y a erreur

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 Object, InputZoneTexte As Object, InputBouton As Object, obj As String, T
    Set Ie = CreateObject("internetexplorer.application")
    'Chargement d'une page Web piano
    Ie.navigate "http://xxx/FrmAnnuaire"
    'Affichage de la fenêtre IE
    Ie.Visible = True
    'On attend le chargement complet de la page
    Do: DoEvents: Loop While Ie.readystate <> 4 ' si ca plombe toujour essaie avec 3 a la place de 4
    'securité 1
    obj = " du document"
    T = Timer
    Do: DoEvents: If Timer - T > 15 Then GoTo gest_erreur: Loop Until IsObject(Ie.document) 'on attend que le document existe visiblement ton soucis est la
    'On pointe le membre Document
    With Ie.document
     'securité2
 
        'On pointe notre Zone de texte
        'Set InputZoneTexte = .all("txt_Nom").Value = "XXX"    ' qu'est ce que c'est ca!!!!!!!!!!!!!!!!!!!!! on est pas en vb.net ici on est en vba!!!!!!
     obj = " de l 'input"
        'on pointe d'abord
 
         Do: DoEvents: If Timer - T > 15 Then GoTo gest_erreur: Loop Until IsObject(.all("txt_Nom"))
 
        Set InputZoneTexte = .all("txt_Nom")
        'ou Set InputZoneTexte =getelementsbyname("txt_Nom")
 
        'puis ensuite on alimente hein !!!!!!!!!!!!!!!
        InputZoneTexte.Value = "XXX"
 
        'On pointe notre bouton
        Set InputBouton = .all("btn_Filter")
        'On simule un clic
        InputBouton.Click
    End With
    'On attend la fin de la recherche
    Do: DoEvents: Loop While Ie.readystate <> 4
    'On libère les variables
    Set Ie = Nothing
    Set IEDoc = Nothing
Exit Sub
gest_erreur:
MsgBox "l'attente " & obj & " a durer plus de 11 secondes il y a un soucis a ce niveau "
End Sub

**chris28130** · 24/10/2016, 12h33

re

il bloque en ligne 14 avec l'erreur "Boucle sans DO"

Merci

**patricktoulon** · 24/10/2016, 12h52

tu a bien mis ton url au moins hein!!!!

**patricktoulon** · 24/10/2016, 12h56

OK ET CELUI LA

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
46
47
48
49
Sub RechercheNom()
'Déclaration des variables
    Dim Ie As Object, InputZoneTexte As Object, InputBouton As Object, obj As String, T
    Set Ie = CreateObject("internetexplorer.application")
    'Chargement d'une page Web piano
    Ie.navigate "TON URL ICI"
    'Affichage de la fenêtre IE
    Ie.Visible = True
    'On attend le chargement complet de la page
    Do: DoEvents: Loop While Ie.readystate <> 4 ' si ca plombe toujour essaie avec 3 a la place de 4
    'securité 1
    obj = " du document"
    T = Timer
    Do: DoEvents
    If Timer - T > 15 Then GoTo gest_erreur
    Loop Until IsObject(Ie.document) 'on attend que le document existe visiblement ton soucis est la
    'On pointe le membre Document
    With Ie.document
     'securité2
 
        'On pointe notre Zone de texte
        'Set InputZoneTexte = .all("txt_Nom").Value = "XXX"    ' qu'est ce que c'est ca!!!!!!!!!!!!!!!!!!!!! on est pas en vb.net ici on est en vba!!!!!!
     obj = " de l 'input"
        'on pointe d'abord
 
         Do: DoEvents
         If Timer - T > 15 Then GoTo gest_erreur
         Loop Until IsObject(.all("txt_Nom"))
 
        Set InputZoneTexte = .all("txt_Nom")
        'ou Set InputZoneTexte =getelementsbyname("txt_Nom")
 
        'puis ensuite on alimente hein !!!!!!!!!!!!!!!
        InputZoneTexte.Value = "XXX"
 
        'On pointe notre bouton
        Set InputBouton = .all("btn_Filter")
        'On simule un clic
        InputBouton.Click
    End With
    'On attend la fin de la recherche
    Do: DoEvents: Loop While Ie.readystate <> 4
    'On libère les variables
    Set Ie = Nothing
    Set IEDoc = Nothing
Exit Sub
gest_erreur:
MsgBox "l'attente " & obj & " a durer plus de 11 secondes il y a un soucis a ce niveau "
End Sub

**chris28130** · 24/10/2016, 13h34

re patrick,

Là j'ai Erreur d’exécution '-2147417848 (80010108)' :
Erreur Automation
L'objet invoqué s'est déconnecté de ses clients.

Merci.

**patricktoulon** · 24/10/2016, 13h37

re
et oui tu Works avec IE 11 n'est ce pas ????

**chris28130** · 24/10/2016, 13h46

re,

Oui exact.

**patricktoulon** · 24/10/2016, 13h52

fait une gestion de tache
arrête tout les processus "ieexplorer"
ferme la gestion de tache
et relance le dernier exemple
si ca continu il faudra voir si ton intranet n'a pas une protection antirobot au quel cas la c'est walouh!!!!!se sera impossible ou trop complexe a faire sauter

**chris28130** · 24/10/2016, 14h22

re, erreur suivante :
Nom : erreur.jpg
Affichages : 815
Taille : 21,8 Ko

Du coup je suppose que c'est protégé grrr....

Penses-tu que si j'utilise l'adresse web en remplacent les champs je pourrais avoir le résultat voulu ?

adresse de base :

http://XXX/Annuaire/FrmAnnuaire

http://XXX/Annuaire/FrmAnnuaire?txt_...32&btn_Filter=

pour afficher la page avec les résultats il faut que je rentre une valeur après le txt_nom= ou le visa ou ....

Le résultat de la recherche donne une ligne de résultat sur lequel il faudrait cliqué pour accéder au infos que je veux extraire.

Penses-tu qu'avec la protection qu'il y a sur l'intranet cela reste possible, vu que la page s'ouvre ????

Merci.

**patricktoulon** · 24/10/2016, 15h34

si les arguments sont acceptés dans l'url alors oui c'est même mieux car il n'est pas besoins de gérer les Object (htmlelement)

après je suppose quand même que le bouton doit être cliqué je sais pas

sans avoir la possibilité de faire les essais je ne peut aller plus loin

problème pour remplir le champ intranet : erreur d'execution '-2147467259 (80004005)' automation

Macros et VBA Excel

Discussions similaires

Partager

Partager