Discussion :

[beben31]

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 ?

[beben31]

Après d'autres tentatives, je me suis rendu compte que ma page, n'offrait pas de liens hypertextes avec le code suivant :

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
Sub listeLiensPageWeb()
'nécéssite d'activer la référence Microsoft HTML Objects Library
'nécéssite d'activer la référence Microsoft Internet Controls
Dim IE As New InternetExplorer
Dim x As Integer
Dim Doc As HTMLDocument
IE.Visible = True
IE.Navigate ("www.mapage.fr")
Do Until IE.readyState = READYSTATE_COMPLETE
DoEvents
Loop
Set Doc = IE.Document
For x = 0 To Doc.Links.Length - 1
Cells(x + 1, 1) = Doc.Links(x)
Next
End Sub

Donc je ne peux vraiment pas réussir la manip en cliquant sur un lien. Donc pas d'avancée sur le sujet...