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

[SilkyRoad]

bonsoir

je n'ai pas compris le rapport entre les liens hypertextes et les fonctions java script.

en attendant, tu dois ajouter un point virgule après avoir spécifié le nom de la fonction java script à déclencher :


remplace

Code :

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

maPageHtml.parentWindow.execScript "BI_processCommand()", "javascript"

par

Code :

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

maPageHtml.parentWindow.execScript "BI_processCommand();", "javascript"

Utilise la syntaxe suivante si la fonction JavaScript contient des arguments:

Code :

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

1
2
maPageHtml.parentWindow.execScript _
        "ChangeBackGround('http://NomDuSite.com/NouvelleImage.gif');", "javascript"

bonne soirée
michel

[beben31]

Merci pour ta réponse.

J'avais toutefois déjà essayé la syntaxe avec le ; et j'obtiens la même erreur Automation 80020101.

En fait pour les liens hypertextes, je cherchais à identifier un lien qui lorsqu'on cliquerait dessus lancerait le script. Or le script est lancé lorsque l'on clique sur un image gif dont je ne sais pas comment faire pour trouver le nom.

Est-il possible de faire lister les images contenues dans une page web et de faire une action pour cliquer sur l'une d'entre elles ?
Peut-être que cela me permettrait d'éviter le problème du lancement direct du script qui ne marche vraiment pas.

[RomainGau]

les codes utilises si dessus ne sont pas en langage javascript mais en vba puis en vbs