Accès internet via Vba

[roidurif]

Bonjour,

Je bloque sur cette macro, car j'essais d'activer un bouton image sur un page web.

J'ai une erreur qui s'affiche lorsque j'essaie de faire appel à la fonction JAVAscript

Pourriez vous svp m'aider??

Sub Macro_internet()
Dim sUrl$
Dim IE As Object
Dim login$, password$, key$


'key = Cells(12, 3)

'pour accès :
login = "aaaaa"
password = "bbbbb"


    sUrl = "http://www.MaPageWeb.fr"

    Set IE = IE7Navigate(sUrl)

        'Renseigne les différents formulaire de la page
        IE.Document.all("j_user").Value = login
        IE.Document.all("j_password").Value = password


        'Simule le click sur le bouton Valider
        IE.Document.all("uidPasswordLogon").Click

        'Attend que la page soit chargée
        Do Until IE.readyState <> READYSTATE_COMPLETE
            DoEvents
        Loop

        IE.Navigate ("http://www.MaPageWeb.fr/page2")
        
        'Là où ça bloque
        IE.Document.parentWindow.execScript "javascript:F4HelpButtonHit();", "Javascript"

End Sub

Code JAVA

td class=label nowrap> Fournisseur (nom)
      </td>
 <td class=label align=right nowrap> <label for="GS_ITEM-VENDOR_NAME"> de </label>
      </td>
 <td class=entryColor nowrap> <input type="text" id="GS_ITEM-VENDOR_NAME" name="GS_ITEM-VENDOR_NAME" value="" maxlength="40" size="18">
      <a href="javascript:F4HelpButtonHit('BBPForm','GS_ITEM-VENDOR_NAME','Rechercher+fournisseur','Fournisseur','')" class="blueButton" onmouseover="status=' ';return true;"  onmouseout="status=' ';"><img src="http://www.MaPageWeb.fr/page2/sat/public/bc/its/mimes/bbpglobal/99/images/button/f4.gif" border=0 alt="Rechercher" title="Rechercher"></a>

 

[klin89]

Re : Accès internet via Vba

Bonjour roidurif,

Essaies peut-être ceci :

IE.Document.forms(0).submit

IE.Document.All.Item("GS_ITEM-VENDOR_NAME").Click

Sinon fais une recherche avec le mot "submit" sur le forum.

Klin89

PS : en fin de post, vois la solution de gg44 ci-dessous :

https://www.excel-downloads.com/threads/update-dun-select-dune-page-web-vba.108281/

 

[roidurif]

Re : Accès internet via Vba

Bonjour,

Merci de l'aide, mais je n'arrive pas

en essayant ce code

IE.Document.All("GS_ITEM-VENDOR_NAME").Value = "A20155452" 
IE.Document.All.item("GS_ITEM-VENDOR_NAME").Click

Cela ne fait rien, normalement le fait de cliquer sur l'icone, cela charge une page rechercher.

Avec cette autre code, rien, erreur!!

IE.Document.All("GS_ITEM-VENDOR_NAME").Value = "A20155452" 
IE.Document.All.item("F4HelpButtonHit").Click

Merci de votre aide svp

 

[klin89]

Re : Accès internet via Vba

Bonjour roidurif,

Pour te guider, fais une recherche sur le net comme ceci par exemple.

appel fonction javascript onclick

Sinon, quelle est le nom de ta fonction ?

Klin89

 

[roidurif]

Re : Accès internet via Vba

Voici la fonction javascript ci-dessous alt="Rechercher"

Merci de ton aide.


Code JAVA

td class=label nowrap> Fournisseur (nom)
      </td>
 <td class=label align=right nowrap> <label for="GS_ITEM-VENDOR_NAME"> de </label>
      </td>
 <td class=entryColor nowrap> <input type="text" id="GS_ITEM-VENDOR_NAME" name="GS_ITEM-VENDOR_NAME" value="" maxlength="40" size="18">
      <a href="javascript:F4HelpButtonHit('BBPForm','GS_ITEM-VENDOR_NAME','Rechercher+fournisseur','Fournisseur','')" class="blueButton" onmouseover="status=' ';return true;"  onmouseout="status=' ';"><img src="http://www.MaPageWeb.fr/page2/sat/public/bc/its/mimes/bbpglobal/99/images/button/f4.gif" border=0 alt="Rechercher" title="Rechercher"></a>

 

[klin89]

Re : Accès internet via Vba

Re,

Vois ceci :

FAQ MS-Excel - Club des décideurs et professionnels en Informatique

Klin89

 

[klin89]

Re : Accès internet via Vba

Essaies ceci :

IE.Document.parentWindow.execScript _
        "ChangeBackGround("http://www.MaPageWeb.fr/page2/sat/public/bc/its/mimes/bbpglobal/99/images/button/f4.gif");", "javascript"

Dans cet exemple, ChangeBackGround doit être le nom de la fonction si j'ai bien compris.

Vérifies bien la syntaxe, j'ai pu me tromper dans le retranscription. (guillemets, espaces, virgules etc...)

Pour en revenir à ceci :

IE.Document.forms(0).submit

As-tu essayé de modifier l'indice '0' pour cibler le bon bouton ?

Après, j'abandonne et laisse les autres poursuivre 😉

Klin89