Discussion :

[Dezossor]

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 :

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

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 :

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

1
2
3
4
 
    Set IEDoc = IE.document
    Set CAnchor = IEDoc.body.all(77)
    CAnchor.Click

J'attends le chargement de la page

Code :

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

1
2
 
WaitIE IE

Je redefinis mon nouveau lien à cliquer

Code :

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

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 :

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

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

[AlainTech]

Bonjour,

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

[Dezossor]

Bonjour,

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

Le code complet est :

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
 
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 :

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

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

[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.

[Dezossor]

Bonjour,

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

Mon but est de cliquer sur :

Code :

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

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 :

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

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

[Dezossor]

petit Up