Discussion :

[Eric_03]

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

[Eric_03]

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