[LibreOffice] [Tableur] 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:

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

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