Bouton -> www.gmail.com + champ

[CEDRIC]

Salut le forum,

Voila je suis un grand flémard devant l'eternel... Vous allez comprendre.

J'ai un bouton sur ma feuille qui me lance www.gmail.com (ma boite email)

Jusque la pas de probleme

Sub ouvrirPageInternet()
Dim IE As Object
Set IE = CreateObject('InternetExplorer.Application')

With IE
.Visible = True
.Navigate 'http://www.gmail.com'
End With

Set IE = Nothing
End Sub

Mais ensuite j'aurais voulu que ma macro remplisse le premier champ(celui du nom d'utilisateur) tout seul et avoir un setFocus sur le second champ (password).

Est-ce possible ? Trouvez vous que je suis vraiment déconcertant de fainéantise??? En fais je trop???

En tout cas, je remercie d'avance ceux qui me permettront de ne pas me fouler de trop sur mon clavier

A+

 

[MichelXld]

bonsoir Cedric

j'espere que cet exemple pourra t'aider


Sub piloterPageWebV01()
'michelxld le 12.11.2004
Dim IE As Object
Dim maPageHtml As Object, Helem As Object

Set IE = CreateObject('InternetExplorer.Application')
IE.Visible = True

IE.Navigate 'http://www.gmail.com'
Do Until IE.readyState = READYSTATE_COMPLETE
DoEvents
Loop 'attendre la fin du chargement

Set maPageHtml = IE.document
Set Helem = maPageHtml.getElementsByTagName('input')

Helem.Item(3).innerText = 'Nom utilisateur'
Helem.Item(4).Focus 'champ mot de passe
End Sub


bonne soiree
MichelXld

 

[CEDRIC]

Re Michel, forum

J ai essayé ta manip michel, en effet ca me lance IE mais ca ne me rempli pas le 1er champ (utilisateur)...

Une petite idee ???

Merci en tout cas

A+

 

[MichelXld]

bonjour Cedric

chez moi la procedure fonctionne tres bien

le premier champ est rempli par le texte 'Nom utilisateur' et le focus est mis sur le champ mot de passe


Sub piloterPageWebV01()
'michelxld le 12.11.2004
'activer la reference Microsoft HTML Objects Library
'activer la reference Microsoft Internet Controls
Dim IE As InternetExplorer
Dim maPageHtml As HTMLDocument
Dim Helem As IHTMLElementCollection

Set IE = CreateObject('InternetExplorer.Application')
IE.Visible = True

IE.Navigate 'http://www.gmail.com'
Do Until IE.readyState = READYSTATE_COMPLETE
DoEvents
Loop 'attendre la fin du chargement

Set maPageHtml = IE.document
Set Helem = maPageHtml.getElementsByTagName('input')

Helem.Item(3).innerText = 'Nom utilisateur'
Helem.Item(4).Focus 'champ mot de passe
End Sub


bonne journée
MichelXld

 

[CEDRIC]

Re Michel XLD

Je reviens apres un petit moment, mais en fait j ai un probleme avec gmail...

Je me suis donc crée un compte yahoo

La procédure n'a pas l'air d'etre la meme (bien sur j ai changer l adresse web avec Ce lien n'existe plus )

Pourrais tu me donner la formule pour yahoo ???
Ou m'expliquer les demarches...

Merci a toi O grand Michel XLD

A+

 

[MichelXld]

bonjour Cedric

ci joint un exemple qui permet de boucler sur les objets type 'input' d'une page web et de recuperer leur index


Sub piloterPageWeb_V02()
'michelxld le 28.05.2005
'activer la reference Microsoft HTML Objects Library
'activer la reference Microsoft Internet Controls
Dim i As Integer
Dim IE As InternetExplorer
Dim maPageHtml As HTMLDocument
Dim Helem As IHTMLElementCollection

On Error Resume Next

Set IE = CreateObject('InternetExplorer.Application')
IE.Visible = True

IE.Navigate 'Ce lien n'existe plus
Do Until IE.readyState = READYSTATE_COMPLETE
DoEvents
Loop 'attendre la fin du chargement

Set maPageHtml = IE.document
Set Helem = maPageHtml.getElementsByTagName('input')

'*******************************
'(boucle pour identifier l'index des objets 'input' dans la page)
For i = 0 To Helem.Length - 1
Helem.Item(i).innerText = 'index objet : ' & i
'compte yahoo :22
'mot de passe :23
'bouton :25
Next i

'*******************************
'resultat :
'Helem.Item(22).innerText = 'michelxld'
'Helem.Item(23).Focus 'champ mot de passe
'*******************************
End Sub


bon apres midi
MichelXld

 

[CEDRIC]

Re Michel XLD

Tout d'abord merci pour tes explications, mais a priori je suis moins doué que prévu sous VBA car ca ne marche pas...

En fait la page Yahoo mail se lance bien, mais rien ne s'affiche dans le champ utilisateur...

Comment se fait-ce ???

Merci a toi