Discussion :

[scully2501]

Bonsoir,

Apres plusieurs recherche.

J'ai reussi à trouver comment ouvrir une page web à partir d'excel.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ActiveWorkbook.FollowHyperlink "www.http://pageweb.htm", , True

Mais comment ouvrir la page web en integrant "l'identifiant" et le "mot de passe" automatiquement dans les paramétres?

par exemple sur developpez.com si je veux ouvrir cette page en mettant automatiquement "scully2501" puis mon mot de passe.

[fred65200]

bonsoir,
une piste ici

cordialement

[scully2501]

J'ai trouver un code parfait:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
 
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 ("http://www.pageweb.fr")
 
 Do Until IE.ReadyState = 4
 DoEvents
 Loop
 Set MaPageHtml = IE.Document
 'Numéro d'abonné
 Set Helem = MaPageHtml.getElementsByName("username").Item
 Helem.Value = "scully2501"
 'mot de passe
 Set Helem = MaPageHtml.getElementsByName("password").Item
 Helem.Value = "coucou"
 
 'Le Bouton de connexion
 Set Helem = MaPageHtml.getElementsByName("m'identifier").Item
 Helem.Click

Mon probleme est que je trouve pas le nom du bouton à presser dans:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
'Le Bouton de connexion
 Set Helem = MaPageHtml.getElementsByName("m'identifier").Item
 Helem.Click

Car ce bouton à un code de vérification.
Comment trouver le nom du bouton à presser?
voici le code source:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
<p class="txt_c isd_Vpaddings_sm">
 <a href="#" onclick="if(checkLoginForm()){get_form().submit();}" class="button"><span>identifier</span></a>
 </p>

[scully2501]

Merci j'avais réussi à trouver avant.

Mais j'ai un autre problème qui se pose que j'expose avant.

[fred65200]

bonsoir

essaie de remplacer les dernières lignes par

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 Set Helem = IE.Document.Forms(0)
Helem.Submit

comme indiqué sur le lien donné
Si cela ne fonctionne pas, laisse l'adresse de la page que tu veux visiter
cordialement

[scully2501]

Cela ne marche pas et je n'ai pas compris

Si cela ne fonctionne pas, laisse l'adresse de la page que tu veux visiter

[fred65200]

bonsoir,

je voudrais voir la structure de la page du site http://www.pageweb.fr

[scully2501]

Code html :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
<!-- block content -->
                    <form class="isd_paddings_sm" method="POST" onsubmit="return checkLoginForm();"
                          action="https://www.pageweb.fr/cas/login?service=https://www.pageweb.fr/j_acegi_security_check" name="frm" ID="frm">
                        <input type="hidden" name="target" value="/" />
                        <input type="hidden" name="_eventId" value="submit" />
                        <input type="hidden" name="currentpage" value="http://www.pageweb.fr/" />
                        <p class="login_help">
                                <label for="login">identifiant</label>
												        <!--<a onmouseover="showHelp(this);" href="#" class="color_black">(?)<span>Saisissez votre N&deg; d'appel &agrave; 10 chiffres ou votre login ADSL</span></a>-->
                            </p>
                        <input id="login" name="username" type="text" class="xs" style="margin-right:5px;" />
 
                        <p class="isd_Tpaddings"><label for="code">Code personnel</label></p>
                        <input id="code" name="password" type="password" class="xs"/>
                        <p class="checkboxLine isd_Tpaddings_sm">
                            <input type="checkbox" name="remember-me" value="on"/><label>M&eacute;moriser mon compte sur cet ordinateur</label>
                        </p>
                        <p class="txt_c isd_Vpaddings_sm">
                            <a href="#" onclick="if(checkLoginForm()){get_form().submit();}" class="button"><span>M'identifier</span></a>
                        </p>
                        <ul class="lst_simple no_Vsides_mrgn clickableText isd_Vpaddings_sm">
                            <li><a href="https://monprofil.pageweb.fr/monprofilTDB/publique/AccueilReinitWeb?Precedent=http://www.pageweb.fr/elements/login/back.jsp&Quitter=http://www.pageweb.fr/elements/login/back.jsp&Suivant=http://www.pageweb.fr/elements/login/back.jsp">&gt; Code personnel oubli&eacute;</a> &nbsp;&nbsp; <a href="http://www.pageweb.fr/aide-connexion.jsp">&gt; Aide</a></li>
                        </ul>
                        <div style="height: 1px; overflow: hidden;"><input style="border: none; height: 1px; background-color: transparent; color: none;" type="submit" name="_submit" value="submit"/></div>
                    </form>
                    <!-- /block content -->
                </div>

[fred65200]

re

je ne peux faire aucun test avec http://www.pageweb.fr!!

[scully2501]

Merci de ton aide

C'est le site sfr

www.sfr.fr

c'est trop long à copier

[fred65200]

re

essaie avec

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Set Helem = IE.Document.Forms(1)
Helem.Submit

[scully2501]

Il ne se passe rien
je vais finir par trouvé j'essai plein de truc mais toujours pas trouvé

merci encore de m'aider

[scully2501]

mon code complet est:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
 
Sub ouvrir_page_web()
 
 
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 ("http://www.sfr.fr")
 
 Do Until IE.ReadyState = 4
 DoEvents
 Loop
 Set MaPageHtml = IE.Document
 'Numéro d'abonné
 Set Helem = MaPageHtml.getElementsByName("username").Item
 Helem.Value = "xxxx"
 'mot de passe
 Set Helem = MaPageHtml.getElementsByName("password").Item
 Helem.Value = "1111"
 Helem.Select
 
 'Le Bouton de connexion
 
 Set Helem = MaPageHtml.Forms(1)
 'Set Helem = MaPageHtml.getElementsByName("frm").Item
 
 
 'submit()
 Helem.Click
 
End Sub

[fred65200]

re bonsoir

et ça

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
 Set Helem = MaPageHtml.getElementsByname("frm").Item
Helem.Submit

ça semble être ok
@+

[scully2501]

Formidable cela marche merci beaucoup.

Bonne soirée à toi

[fred65200]

re

J'en suis heureux, c'était plus simple avec la bonne adresse du site

cordialement