Bonjour à tous,
J'ai découvert sur la FAQ le code permettant de manipuler une page HTML mais l'exemple concerne internet explorer. De mon côté je voudrais faire de même mais avec Firefox mais je n'y arrive pas. Le problème se trouve dans la création de l'instance pour Firefox et je ne trouve pas le code.
Voir l’exemple ci-dessous.
Merci d'avance
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
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")
 
'-----------ICI JE NE CONNAIS PAS LE CODE POUR FIREFOX------------ 
  IE = oObj.createInstance("InternetExplorer.Application.1")
'--------------------------------------------------------------------
 
  'Indiquez False pour masquer la fenêtre Internet Explorer pendant l'opération
  IE.Visible = True
  IE.Navigate("http://www.MonSiteWeb.fr/")
 
  '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