Ouvrir page html code abonnée

[steph.777]

Bonne année 2007 a tous le forum

Bonjour,

Je voudrais pouvoir rentrer sur ce site grace a une macro excel
qui me mettrai mon code abonné et mot de passe automatiquement,
pour pouvoir ensuite recupéré des données pour un tableau excel
aissi en automatiquement.

Quelle sont les solutions déja pour la premiere etape pour commencer.

Merci d'avance pour vos réponses.

LIEN DU SITE
Authentification

 

[MichelXld]

Re : Ouvrir page html code abonnée

bonjour

tu peux tester

 Dim IE As Object 'InternetExplorer
 Dim Helem As Object 'IHTMLElement
 Dim MaPageHtml As Object 'HTMLDocument
 
 Set IE = CreateObject("InternetExplorer.Application")
 IE.Visible = True
 IE.Navigate ("[I]Ce lien n'existe plus[/I]")
 
 Do Until IE.ReadyState = 4
 DoEvents
 Loop
 Set MaPageHtml = IE.Document
 'Numéro d'abonné
 Set Helem = MaPageHtml.getElementsByName("TextboxUser").Item
 Helem.Value = 123456
 'mot de passe
 Set Helem = MaPageHtml.getElementsByName("TextBoxMdp").Item
 Helem.Value = "MOT_DE_PASSE"
 
 'Le Bouton de connexion
 Set Helem = MaPageHtml.getElementsByName("ImageButtonValiderInconnu").Item
 Helem.Click

Bonne journée
MichelXld

 

[steph.777]

Re : Ouvrir page html code abonnée

Bonsoir
Merci Michel pour ta réponse
le numéro d'abonné ne passe pas
On obtient pas le meme message d'erreur quand ton le fait manuellement
avec 123456
par contre en automatique 123456 et mon bon numéro d'abonné, on a le meme message d'erreur, il met des parenteses ??? ou un grand O

ON TOUCHE AU BUT
MERCI ENCORE

STEPH.777

 

[MichelXld]

Re : Ouvrir page html code abonnée

bonjour

Ce n'était qu'un exemple.

il te reste à adapter le nom des champs (tu peux les récupérer dans la source html):

 'Numéro d'abonné
 Set Helem = MaPageHtml.getElementsByName("[COLOR=blue]TextboxUser[/COLOR]").Item
 Helem.Value = 123456
 'mot de passe
 Set Helem = MaPageHtml.getElementsByName("[COLOR=blue]TextBoxMdp[/COLOR]").Item
 Helem.Value = "MOT_DE_PASSE"
 
 'Le Bouton de connexion
 Set Helem = MaPageHtml.getElementsByName("[COLOR=blue]ImageButtonValiderInconnu[/COLOR]").Item
 Helem.Click

Bonne journée
MichelXld