VBA - Internet Explorer

Version imprimable

Bonjour,

Je cherche à développer un script VBA et piloter Internet explorer pour importer des données dans une feuille excel

J'ai fait le tour des différents tutos trouver sur google et je coince toujours sur une même erreur.

Je crée mon instance IE :
Code:

1 2 3 4 5 6 7 8 9 10 11 Dim IE As New InternetExplorer Dim IEDoc As HTMLDocument Dim CAnchor As HTMLAnchorElement 'On ouvre la page IE.navigate "http://www.domain.com" 'Affichage de la fenêtre IE IE.Visible = True WaitIE IE
Ensuite je localise le lien qui m’intéresse
Code:

1 2 3 4 Set IEDoc = IE.document Set CAnchor = IEDoc.body.all(77) CAnchor.Click
J'attends le chargement de la page
Code:

1 2 WaitIE IE
Je redefinis mon nouveau lien à cliquer
Code:

1 2 Set CAnchor = IE.body.all(61)
J'ai une erreur sur cette dernière ligne car la variable IEDoc contient les éléments de la page initial et l'erreur arrive alors que la dernière page n'est pas encore complètement chargée.

Voici le code de la fonction WaitIE
Code:

1 2 3 4 5 6 7 8 Function WaitIE(ByVal MyIE As InternetExplorer) With MyIE Do While .Busy Or Not .readyState = 4 DoEvents Loop End With End Function
Si quelqu'un à une Idée?

Merci d'avance

17/02/2014, 04h06
AlainTech

Bonjour,

La réponse est là:
http://www.developpez.net/forums/d11...a/#post7538358

Bonjour,

Merci pour la réponse, cela ne fonctionne pas...

Le code complet est :

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
 
Sub DGAC()
 
    Dim IE As New InternetExplorer
    Dim IEDoc As HTMLDocument
 
    'On ouvre la page
    IE.navigate "http://www.domaine.com/"
 
    'Affichage de la fenêtre IE
    IE.Visible = True
    WaitIE IE
    Set IEDoc = IE.document
    WaitDoc IEDoc
    IEDoc.all("FORM_ACTION").Value = "CHOOSE_TYPEAERONEF"
    IEDoc.all("FORM_CHECK").Value = "true"
    IEDoc.all("FORM_ROW").Value = ""
    IEDoc.forms("form").submit
    WaitIE IE
    Set IEDoc = IE.document
    WaitDoc IEDoc
    MsgBox (IEDoc.body.all(61).value)
 
End Sub

avec les procédures suivantes :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
 
Function WaitIE(ByVal IE As InternetExplorer)
        Do While Not IE.readyState = 4
            DoEvents
        Loop
End Function
 
Sub WaitDoc(doc As HTMLDocument)
  Do While Not doc.readyState = "complete"
    DoEvents
  Loop
End Sub

Une erreur survient sur la ligne MsgBox (IEDoc.body.all(61).value) alors que la page n'est pas chargée du tout...

Je ne comprends pas pourquoi le script n'attends pas la fin de chargement de la page

Merci d'avance

22/02/2014, 18h37
AlainTech

Bonjour,

Il faut essayer de savoir quelle partie de la page n'est pas chargée.
Ton IEDoc.body.all(61) ne nous dit absolument pas de quel type d'objet il s'agit.

En fonction de l'objet, il faut voir si cet objet n'a pas une propriété readystate.

Bonjour,

la balise correspondant à IEDoc.body.all(61) est un HTMLAnchor.

Mon but est de cliquer sur :
Code:

1 2 3 <A href="#" onclick="javascript:{document.form.FORM_ACTION.value='CHOOSE_TYPEAERONEF';document.form.FORM_CHECK.value='true';document.form.FORM_ROW.value='';document.form.submit();}" > <div style="margin-left:40px">Modèle d'aéronef</div></A>
Ce qui me renvoie sur la même URL mais avec un code HTML différent dans lequel se trouve :
Code:

1 2 3 <A href="#" onclick="javascript:{document.form.FORM_ACTION.value='SEARCH';document.form.FORM_CHECK.value='true';document.form.FORM_ROW.value='';document.form.submit();}" class='lientexte'> <div style="margin-left:40px">Rechercher</div></a>
C'est ce 2ème lien qui me pose soucis.

y a t il une astuce qui m'aurait échappé ?

Cdl

03/03/2014, 15h33
Dezossor

petit Up :)