1. #1
    Nouveau Membre du Club
    Homme Profil pro
    Inscrit en
    décembre 2012
    Messages
    40
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations forums :
    Inscription : décembre 2012
    Messages : 40
    Points : 31
    Points
    31

    Par défaut [IE] Click, Submit, Enter.

    Bonjour à tous,

    Je viens sur le forum aujourd'hui pour vous demander de l'aide sur un problème que je rencontre.
    En effet, je voudrais piloter Internet Explorer avec un Script en VBScript.

    Seulement, je voudrais effectuer un click sur une page web. Alors, pour commencer, je me suis rendu sur la valeur précise, avec comme fonction:

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    set recup = ie.document.getElementById("liens").getElementsByTagName("tr").item(0).getElementsByTagName("td").item(1)
    Lorsque je fais un outerhtml, je tombe bien sur l'endroit que je veux. Mais ensuite, pour simuler la touche d'une souris à l'endroit voulu, ça ne fonctionne pas.

    Le code source de la page HTML à l'endroit indiquer est:
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
     <td><div onclick="getlien('livre',30,);" class="boutondownload">Livre Informatique</div></td>
    la fonction du site, onclick ne me permet pas d'effecuer un Click, ou un Enter.
    Auriez-vous une solution?

    En vous remerciant.

  2. #2
    Rédacteur/Modérateur
    Avatar de ProgElecT
    Homme Profil pro
    Inscrit en
    décembre 2004
    Messages
    3 658
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 59
    Localisation : France, Haute Savoie (Rhône Alpes)

    Informations professionnelles :
    Secteur : Communication - Médias

    Informations forums :
    Inscription : décembre 2004
    Messages : 3 658
    Points : 6 373
    Points
    6 373

    Par défaut

    Salut, bienvenue sur DVP

    Tu veux dire que la commande recup.Click est refusé ou inopérante ?

  3. #3
    Nouveau Membre du Club
    Homme Profil pro
    Inscrit en
    décembre 2012
    Messages
    40
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations forums :
    Inscription : décembre 2012
    Messages : 40
    Points : 31
    Points
    31

    Par défaut

    Merci bien et je pense y rester un bon bout de temps pour apprendre parfaitement le VBS et VBA.

    Merci de votre réponse.

    La commande est inopérante. Certainement parce que j'appelle un bouton dans une table qui est en plus en "Javascript".

  4. #4
    Nouveau Membre du Club
    Homme Profil pro
    Inscrit en
    décembre 2012
    Messages
    40
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations forums :
    Inscription : décembre 2012
    Messages : 40
    Points : 31
    Points
    31

    Par défaut

    Bon, je pense avoir trouvé. Je ferrais la vérification ce soir.

    En attendant, je donne les deux bouts de codes qui peuvent remplir (peut être) cette fonction.

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
     
    set recup = ie.document.getElementById("liens")
    for each recup in liens
    	strText = recup.innerhtml
    	msgbox = strText
     
    if (strtext= "livre informatique")
    	recup.click
    exit for
    ou

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
     
    For Each recup In IE.Document.getElementById("liens")
    If InStr(recup.getAttribute("onclick"), "getlien") Then
    recup.Click
    Exit For
    En espérant que l'un des deux fonctionnent!

  5. #5
    Rédacteur/Modérateur
    Avatar de ProgElecT
    Homme Profil pro
    Inscrit en
    décembre 2004
    Messages
    3 658
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 59
    Localisation : France, Haute Savoie (Rhône Alpes)

    Informations professionnelles :
    Secteur : Communication - Médias

    Informations forums :
    Inscription : décembre 2004
    Messages : 3 658
    Points : 6 373
    Points
    6 373

    Par défaut

    Salut

    En regardant le tutoriel de Qwazerty , Interaction avec Internet Explorer via VBA Excel au chapitre IV-I. Utilisation des fonctions disponibles sur la page il semblerai donc possible de faire
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    set recup = ie.document
    recup.parentWindow.execScript "getlien('livre',30,);", "JavaScript"
    A expérimenter, en verifiant si la fonction est bien du JavaScript (le ; semble l'indiquer), il suffirait de rechercher dans le code source, le mot getlien.

  6. #6
    Nouveau Membre du Club
    Homme Profil pro
    Inscrit en
    décembre 2012
    Messages
    40
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations forums :
    Inscription : décembre 2012
    Messages : 40
    Points : 31
    Points
    31

    Par défaut

    Merci bien, ça marche

    Je vais me servir de la bible, je vais pouvoir apprendre pas mal de chose on dirait

+ Répondre à la discussion
Cette discussion est résolue.

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo