Forums XLPages

Tous les messages (JackyAmiens)

« 1 2 3 4
Re: Piloter des pages intranet est-il possible?
#31
JackyAmiens
Aspirant XLPages

Inscription: 07/03/2008
De Amiens

Messages: 33

Système d'exploitation:
PC
Version Excel utilisée:
2002,2003,2010
Posté le : 11-03-2008 09h28
Bonjour,

J'ai testé sur l'intranet les connaissances nouvelles acquisses.
Cela fonctionne sauf sur la première liste déroulant qui me refuse j'ai contourné le probléme en indiquant le choix dans l'URL d'accès à la page. La seconde liste déroulante accepte parfaitement la commande.
Un autre problème est apparue
L'éxécution pas à pas permet l'enchainement des tâches sans soucis, par contre l'éxecution automatique échoue trois fois sur quatre. Le problème semble venir du rafraichissement des pages malgrè l'instruction d'attente.

Je clôture ici ce post en remerciant de nouveau Michel pour l'efficacité de son aide et j'ouvrirais un autre post pour donner la suite de ma recherhce sur mes pages intranet.
Hors Ligne
 Rapport   Haut 

Re: Piloter des pages intranet est-il possible?
#32
JackyAmiens
Aspirant XLPages

Inscription: 07/03/2008
De Amiens

Messages: 33

Système d'exploitation:
PC
Version Excel utilisée:
2002,2003,2010
Posté le : 10-03-2008 11h30
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!
Hors Ligne
 Rapport   Haut 

Piloter des pages intranet est-il possible?
#33
JackyAmiens
Aspirant XLPages

Inscription: 07/03/2008
De Amiens

Messages: 33

Système d'exploitation:
PC
Version Excel utilisée:
2002,2003,2010
Posté le : 07-03-2008 16h34
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).
Hors Ligne
 Rapport   Haut 

« 1 2 3 4