inserer javascript en vba

[poulpe38]

Bonjour à tous

Grace au super site XLD Wiki de Michel, j'ai pu trouver dans la page web qui m'interesse un lien javascript que je voudrais activer en vba.

Mais bon, je débute en vba, alors je patine un peu dans la semoule!!
Je n'arrive pas à le lancer!!

le lien apparait comme ceci:

javascript:TabXLS.Ouvre();

j'ai essayé de le lancer avec une autre routine du site de XLD, mais j'ai une erreur à la ligne cible.

Quelqu'un pourrait m'aider et me donner la syntaxe pour lancer ce lien javascript????

Merci, merci, merci!!!!

 

[MichelXld]

Re : inserer javascript en vba

bonjour poulpe38, bonjour cher José

j'espere que ces infos pourront t'aider

Déclencher une fonction javascript contenue dans le Webbrowser

Dim maPageHtml As HTMLDocument
Set maPageHtml = webBrowser1.Document
maPageHtml.parentWindow.execScript "window.print()", "Javascript"
'D'autres exemples :
'maPageHtml.parentWindow.execScript "alert(navigator.appName + '/' + navigator.appVersion)", "Javascript"
'maPageHtml.parentWindow.execScript "alert('Bonjour le forum XLD')", "Javascript"
'maPageHtml.parentWindow.execScript "'maFonctionjavaScript()'", "Javascript"

bon apres midi
MichelXld

 

[poulpe38]

Re : inserer javascript en vba

Merci pour vos réponses...

Mais je ne trouve pas ou inserer TabXLS.Ouvre()

ci dessous le code de Michel que j'ai essaye de modifier...
J'ai surement fait des boulettes...

Merci si vous pouvez me corriger!!
Private Sub commandButton3_Click()
'michelxld le 10.01.2005
'boucler sur toutes les images d'une page Web
'pour recuperer l'adresse et leurs dimensions
'testé avec WinXP & Excel2002
'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 InternetExplorer
Dim maPageHtml As HTMLDocument
Dim imgHtml As HTMLImg
Dim i As Integer
Set IE = CreateObject("internetExplorer.Application")
IE.Visible = True
IE.navigate ("C:\Documents and Settings\bernard\Bureau\sta_prelevzonepdt[1].htm")
Do Until IE.readyState = READYSTATE_COMPLETE
DoEvents
Loop 'attend la fin du chargement pour continuer la procedure
Set maPageHtml = IE.document
''compte le nombre d'images dans la page
'MsgBox "nombre d'images dans la page : " & maPageHtml.images.Length

Set maPageHtml = IE.document
maPageHtml.parentWindow.execScript "TabXLS.Ouvre()" ', "Javascript"
End Sub

 

[MichelXld]

Re : inserer javascript en vba

rebonjour

ça va etre difficile sans voir la page

Private Sub commandButton3_Click()
    'michelxld le 10.01.2005
    '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 InternetExplorer
    Dim maPageHtml As HTMLDocument
    Dim imgHtml As HTMLImg
    
    Set IE = CreateObject("internetExplorer.Application")
    IE.Visible = True
    IE.navigate ("C:\Documents and Settings\bernard\Bureau\sta_prelevzonepdt[1].htm")
        Do Until IE.readyState = READYSTATE_COMPLETE
        DoEvents
        Loop 'attend la fin du chargement pour continuer la procedure
    
    Set maPageHtml = IE.document
    maPageHtml.parentWindow.execScript "TabXLS.Ouvre()", "Javascript"
End Sub

bon apres midi
MichelXld

 

[poulpe38]

Re : inserer javascript en vba

J'ai essayé ce code et j'obtiens un message d'erreur:

Erreur d'exécution'-2147352319(80020101)':
Erreur Automation

Ca veut dire quoi??

La page en question n'est pas une page web, mais une page intranet au format web. Je peux donner le code...

En fait je cherche à cliquer sur le petit bouton au milieu qui correspond au code javascript
La page est incomplete, le bouton est un .gif qui représente une icone excel et qui génere un tableau excel

C'est un peu compliqué pour moi, je n'arrive pas ni à cliquer dessus en vba , ni à lancer le javascript qui corresspond...

Michel a l'air de bien maitriser!!!
Comment cliquer sur ce fichu bouton!!!!

Merci à tous!!!

 

[MichelXld]

Re : inserer javascript en vba

rebonjour

tu peux refaire un essai: j'avais oublié les apostrophes pour encadrer le nom de la fonction:'TabXLS.Ouvre()'

maPageHtml.parentWindow.execScript _
    "'TabXLS.Ouvre()'", "Javascript"

bon apres midi
MichelXld

 

[poulpe38]

Re : inserer javascript en vba

Merci pour ces détails.

Je n'ai plus de messages d'erreur. Je teste demain au boulot, sur le serveur.
Si ca marche, c'est génial!!!

Je vous remercie et vous tiens au courant

A +

Poulpe

 

[poulpe38]

Re : inserer javascript en vba

Ca marche toujours pas....
Si je modifie le code de l'instruction javascript entre "'......'" en mettant quelque chose qui ne veut rien dire, je n'ai meme pas de message d'erreur.

La syntaxe est elle bonne?

maPageHtml.parentWindow.execScript _
"'TabXLS.Ouvre()'", "Javascript"

Michel a t il encore une idée??

Je peux envoyer la page intranet en mp si quelqu'un est dipo pour me donner un coup de main...
Ce serait super cool...

 

[MichelXld]

Re : inserer javascript en vba

bonjour

un dernier essai

maPageHtml.parentWindow.execScript "TabXLS.Ouvre();" ', "Javascript"

bonne journée
MichelXld

 

[pagwai]

Re : inserer javascript en vba

Bonjour,
je sais que le sujet date un peu mais j'ai exactement le même problème et comme je ne veux pas multiplier les sujets dans le forum...
Est-ce que finallement vous avez trouvé la solution?
Pour ma part, soit j'ai une erreur d'exécution (80020101) Erreur Automation, soit ça ne fait rien. Tout dépend d'où on met le " ' ".
Si quelqu'un a trouvé la solution n'hésitez pas, ça fait un bout de temps que je m'arrache les cheveux la-dessus!
Merci d'avance!