Titre du sujet : Re: Piloter des pages intranet est-il possible? par MichelXld le 07/03/2008 17:30:49
bonsoir
oui c'est possible de piloter des pages html par VBA
Passer par un webBrowser ne changera rien car tu devras ensuite manipuler le contenu de la même manière un exemple pour piloter un bouton Radio
Sub piloterRadioBouton()
'nécessite d'activer la référence Microsoft HTML Objects Library
'nécessite d'activer la référence Microsoft Internet Controls
Dim IE As internetExplorer
Dim maPageHtml As HTMLDocument
Dim Helem As HTMLElementCollection
Set IE = CreateObject("internetExplorer.Application")
IE.Visible = True
IE.navigate "http:laPage.html"
Do Until IE.readyState = READYSTATE_COMPLETE
DoEvents
Loop 'attend la fin du chargement
Set maPageHtml = IE.document
' getElementsByName("test") est le nom du bouton Radio
'Item(1) correspond à la 2eme option dans la liste des boutons
Set Helem = maPageHtml.getElementsByName("test").Item(1)
Helem.setAttribute "checked", "true"
End Sub
Un exemple pour les liste déroulantes (combobox)
Set Hsel = maPageHtml.getElementsByTagName("select")
'0 est le 1er element de la liste
'1 est le 2eme element de la liste
'...etc...
'0 premier combobox dans la page
'4 index de l'élément dans la liste déroulante
Hsel(0).selectedIndex = 4
bon week end michel
|