Discussion: Erreur sur remplissage de champs d'une page html [LibreOffice][Tableur]

  1. #1
    Membre du Club
    Profil pro
    Assistant aux utilisateurs
    Inscrit en
    avril 2007
    Messages
    59
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations professionnelles :
    Activité : Assistant aux utilisateurs
    Secteur : Administration - Collectivité locale

    Informations forums :
    Inscription : avril 2007
    Messages : 59
    Points : 52
    Points
    52

    Par défaut Erreur sur remplissage de champs d'une page html

    Bonjour,

    j'ai récupéré le code suivant dans les FAQ Comment remplir les champs d'une page html puis déclencher un bouton

    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
    21
    22
    23
    24
    25
    26
    27
    28
    29
    30
    31
    32
    Sub RemplissageChamps_PageHtml_IE( ) 
      Dim oObj As Object 
      Dim IE As Object 
      Dim MaPageHtml As Object , Helem As Object 
     
      oObj = createUnoService( "com.sun.star.bridge.OleObjectFactory") 
     
      IE = oObj.createInstance("InternetExplorer.Application.1") 
     
      'Indiquez False pour masquer la fenêtre Internet Explorer pendant l'opération 
      IE.Visible = True 
      IE.Navigate("https://www.intuiz.altares.fr/index.php?option=com_sso&task=login") 
     
      'Attend la fin du chargement de la page avant de poursuivre la procédure 
      Do Until IE.ReadyState = 4 
        Wait(100) 
      Loop 
     
      MaPageHtml = IE.Document 
      'A adapter en fonction du type d'objets à manipuler dans la page html 
      Helem = MaPageHtml.getElementsByTagName("input") 
     
      '--- Adaptez le nom des objets contenus dans la page html --- 
        'remplissage champs 
      Helem.Item("Profil").InnerText = "NomUtilisateur" 
      Helem.Item("PassWord").InnerText = "MotDePasse" 
     
        'Déclenchement bouton de connection 
      Helem.Item("NomBouton").Click 
      '------------------------------------------------------------ 
     
    End Sub
    J'obtiens une "Erreur d'exécution BASIC variable d'objet non définie" sur la ligne suivante: Helem = MaPageHtml.getElementsByTagName("input") pouvez vous SVP m'aiguiller

    Merci
    Eric

  2. #2
    Membre du Club
    Profil pro
    Assistant aux utilisateurs
    Inscrit en
    avril 2007
    Messages
    59
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations professionnelles :
    Activité : Assistant aux utilisateurs
    Secteur : Administration - Collectivité locale

    Informations forums :
    Inscription : avril 2007
    Messages : 59
    Points : 52
    Points
    52

    Par défaut

    Avec ce code je résous l'erreur

    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
    21
    22
    23
    24
    25
    26
    27
    28
    sub ouverture_ie_avec_login()
           dim oObj, oPageHtml, oNavigateur, oElem As Object
           oObj = createUnoService( "com.sun.star.bridge.OleObjectFactory" )
           oNavigateur = oObj.createInstance( "InternetExplorer.Application.1" )
           'Indiquez False pour masquer la fenêtre Internet Explorer pendant l'opération
           oNavigateur.visible = true
        '   oNavigateur.navigate( "http://user.services.openoffice.org/fr/forum/ucp.php?mode=login" )
           oNavigateur.navigate( "https://www.intuiz.altares.fr/index.php?option=com_sso&task=login" )
           'Attend la fin du chargement de la page avant de poursuivre la procédure
           do until oNavigateur.readyState = 4
                wait(1000)
           loop
           oPageHtml = oNavigateur.document.body
           'A adapter en fonction du type d'objets à manipuler dans la page html
           oElem = oPageHtml.getElementsByTagName( "input" )
           '--- Adaptez le nom des objets contenus dans la page html ---
           'remplissage champs
        '   oElem.item( "username" ).value = "toto"
           oElem.item( "sso_login" ).value = "login"
        '   oElem.item( "password" ).value = "123"
           oElem.item( "sso_password" ).value = "password"
           'Déclenchement bouton de connection
        '   oElem.item( "login" ).click
           oElem.item( "submit" ).click   
     
     
     
        end sub
    Eric

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

Discussions similaires

  1. Comment bloquer un contrôle Active x sur un fichier flash d'une page html?
    Par Alexandrebox dans le forum Général JavaScript
    Réponses: 16
    Dernier message: 22/02/2008, 15h07
  2. Contrôle sur les champs d' une pages JSP
    Par amine1980 dans le forum Servlets/JSP
    Réponses: 4
    Dernier message: 06/03/2007, 08h38
  3. Erreur, Parser : récupérer les liens d'une page html
    Par floflo_2006 dans le forum Général Java
    Réponses: 5
    Dernier message: 13/12/2006, 01h26
  4. remplissag de champ d'une page d'un autre domaine
    Par max.onyx dans le forum Général JavaScript
    Réponses: 2
    Dernier message: 06/12/2005, 14h01
  5. Réponses: 1
    Dernier message: 03/12/2005, 15h44

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