Bonjour à tous,

mon problème aujourd'hui est de lancer depuis Excel un javascript positionné dans une page IE.

Pour cela, a priori j'ai trouvé deux méthodes mais aucune ne marche :
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
 
    Dim IE As New InternetExplorer
    Dim maPageHtml As HTMLDocument
    Dim imgHtml As HTMLImg
    Dim Cible As HTMLAnchorElement
 
   Set IE = CreateObject("internetExplorer.Application")
    IE.Visible = True
    IE.Navigate ("http://mapagenet.fr")
        Do Until IE.readyState = READYSTATE_COMPLETE
        DoEvents
        Loop 'attend la fin du chargement pour continuer la procedure
 
    Set maPageHtml = IE.Document
    'IE.Document.all.Item
    Set Cible = maPageHtml.Links(27)
    Cible.Click
Ce code ne fonctionne pas et me renvoie une erreur : variable object non défini sur l'action .Click Ceci doit venir de l'absence de balise <links> sur la page web à ouvrir je pense.

Donc je me dis que je vais faire autrement, de la manière suivante :
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
 
Sub explo2()
 
    Dim IE As New InternetExplorer
    Dim maPageHtml As HTMLDocument
    Dim imgHtml As HTMLImg
    Dim Cible As HTMLAnchorElement
 
   'Set IE = CreateObject("internetExplorer.Application")
    IE.Visible = True
    IE.Navigate ("http://mapagenet.fr")
        Do Until IE.readyState = READYSTATE_COMPLETE
        DoEvents
        Loop 'attend la fin du chargement pour continuer la procedure
 
    Set maPageHtml = IE.Document
    'IE.Document.all.Item
    maPageHtml.parentWindow.execScript "BI_processCommand()", "javascript"
 
End Sub
Mais ça ne marche pas mieux et j'ai l'erreur suivante : Erreur Automation.

Après pas mal de recherche je n'ai pas trouvé de solutions.

Quelqu'un aurait-il quelque chose sous la main pour gérer ce problème ?