Discussion :

[Eric_03]

Malgré de nombreuses tentatives je n'arrive pas à cocher avec le code ci-dessous "Accéder directement à intuiz"

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
33
34
35
36
 
 
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 = ""
'   oElem.item( "password" ).value = "123"
   oElem.item( "sso_password" ).value = ""
 
   oElem.item( "sso_rapid_access" ).value = "1"
   'Déclenchement bouton de connection
'   oElem.item( "login" ).click
   oElem.item( "submit" ).click   
 
   'do until oNavigateur.readyState = 4
   '  wait(1000)
   'loop
 
 
end sub

Des pistes?
Merci
Eric

[Eric_03]

Remplacer

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

oElem.item( "sso_rapid_access" ).value = "1"

par

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

oElem.item( "sso_rapid_access" ).checked = true

Eric