Titre du sujet : Re: Piloter des pages intranet est-il possible?
par JackyAmiens le 10/03/2008 11:30:55
Bonjour Michel,
Et merci,
J'ai testé les exemples sur le site Site de test
afin de saisir, les données suivantes :
Your Name : JackyB
Your City: Amiens
Selected your Job : Programmer 'clin d'oeil je ne le suis pas!
Sub PilotageHTML()
Dim IE As InternetExplorer
Dim HlmIdent, HlmMdp, HlmBase, Hlmbouton, HlmOk, HlmSite, HlmEquip, Hlmddeb, Hlmdfin, Hlmgo As IHTMLElementCollection
Dim MaPageHtml As HTMLDocument
Set IE = CreateObject("InternetExplorer.Application")
IE.Visible = True
IE.navigate ("http://staff.washington.edu/larryg/Classes/R521/zz-test-form.html")
'attente de l'affichage de la page HTML
Do Until IE.readyState = 4
DoEvents
Loop
'Liste des paramètres des pages HTML
Set MaPageHtml = IE.document
Set HlmIdent = MaPageHtml.getElementsByName("myName").Item
Set HlmMdp = MaPageHtml.getElementsByName("City").Item
HlmIdent.Value = "JackyB"
HlmMdp.Value = "Amiens"
Set HlmMdp = MaPageHtml.getElementsByName("experience")
HlmMdp.Item(2).setAttribute "checked", "true"
'Selection de la liste déroulante
Set HlmSite = MaPageHtml.getElementsByTagName("select")
HlmSite(0).selectedIndex = 4
End Sub
Maintenant dans la semaine je vais tester cela sur mes pages "intranet"
En tout cas merci, l'explication était excellent!
|
Didier FOURGEOT