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