Titre du sujet : Piloter des pages intranet est-il possible?
par JackyAmiens le 07/03/2008 16:34:59
Bonjour,
Je suis nouveau et relativement novice dans le VBA. A travers plusieurs recherche, je suis parvenu à valider des pages ASP sur un intranet en passant un identifiant et mot de passe à des zones textes.
Je bloque sur la manipulation d'une zone radio (formulaire htm) et combobox.
Mon impression est que je n'use pas de l'instruction appropriée.
Ci-joint le code partiel.
Sub GeneFich()
Dim IE As Object 'InternetExplorer
Dim HlmIdent, HlmMdp, HlmBase, Hlmbouton, HlmOk, HlmSite, HlmEquip, Hlmddeb, Hlmdfin, Hlmgo As Object 'IHTMLElement
Dim MaPageHtml As Object 'HTMLDocument
Set IE = CreateObject("InternetExplorer.Application")
IE.Visible = True
IE.navigate ("http://pageasp/ConnexCa.asp") 'adresse intranet de ma connexion
Do Until IE.readyState = 4
DoEvents
Loop
'Liste des paramètres des pages HTML
Set MaPageHtml = IE.document
Set HlmIdent = MaPageHtml.getElementsByName("login").Item
Set HlmMdp = MaPageHtml.getElementsByName("pwd").Item
Set HlmBase = MaPageHtml.getElementsByName("connexion").Item
Set HlmOk = MaPageHtml.getElementsByName("modifbase").Item
Set Hlmbouton = MaPageHtml.getElementsByName("Submit2").Item
Set HlmSite = MaPageHtml.getElementsByName("idsite").Item
Set HlmEquip = MaPageHtml.getElementsByName("idequipe").Item 'numéro de l'équipe
Set Hlmddeb = MaPageHtml.getElementsByName("ddeb").Item 'date de début
Set Hlmdfin = MaPageHtml.getElementsByName("dfin").Item 'date de fin
Set Hlmgo = MaPageHtml.getElementsByName("go").Item 'Image fléche de validation données
'Habilitation d'acces
HlmIdent.Value = "L'indentifiant" 'Fonctionne bien
HlmMdp.Value = "le mot de passe had-oc" 'fonctionne bien
HlmBase.Value = "co" 'ne permet pas de selection l'un des trois radios disponible
HlmOk.Value = "ok" 'option caché dans le code html je ne sais pas si cela focntionne.
Hlmbouton.Click 'La validation semble être efficace.
'Connexion sur la page d'une équipe
'je ne parviens pas à selection dans la combobox la valeur du site, ni celle de l'équipe.
'A défaut, j'ai constitué l'URL avec les données Ad-hoc
IE.navigate ("http://pageasp/Req_Qb.asp?idsite=370&idequipe=5009965")
Do Until IE.readyState = 4
DoEvents
Loop
'voici le code que j'ai tenté d'user pour commander les combobox
'HlmSite.Value = 8
'HlmEquip.Value = "5009965"
'En principe j'ai deux zones calendrier repérer dans le code HTML comme texte dont je n'arrive pas à passer les valeurs.
Hlmddeb = "01/03/2008"
Hlmdfin = "31/03/2008"
Hlmgo.Click
End Sub
En conclusion, est-il possible via le VBA d'excel de piloter Internet explorer pour se rendre sur des pages HTML par validation de données dans des formulaires?
Ou faut-il s'orienter sur l'usage d'un autre système comme le webbrowser, et comment trouver des informations sur son utilisation (abordable par un novice du vba).
|
Didier FOURGEOT