Excel -> HTML

Version imprimable

14/11/2007, 17h48
scully2501

Excel -> HTML

Bonsoir,

Apres plusieurs recherche.

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

Code:

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.
14/11/2007, 18h43
fred65200

bonsoir,
une piste ici

cordialement

J'ai trouver un code parfait:

Code:

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:

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:

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>

14/11/2007, 18h50
scully2501

Merci j'avais réussi à trouver avant.

Mais j'ai un autre problème qui se pose que j'expose avant.
14/11/2007, 19h25
fred65200
bonsoir

essaie de remplacer les dernières lignes par
Code:

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
14/11/2007, 20h07
scully2501

Cela ne marche pas et je n'ai pas compris

Citation:

Si cela ne fonctionne pas, laisse l'adresse de la page que tu veux visiter
14/11/2007, 20h11
fred65200

bonsoir,

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

Code:

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>

14/11/2007, 20h39
fred65200

re

je ne peux faire aucun test avec http://www.pageweb.fr!!
14/11/2007, 20h44
scully2501

Merci de ton aide

C'est le site sfr

www.sfr.fr

c'est trop long à copier
14/11/2007, 20h49
fred65200
re

essaie avec
Code:

1 2 3 Set Helem = IE.Document.Forms(1) Helem.Submit
14/11/2007, 20h51
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

mon code complet est:

Code:

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

re bonsoir

et ça
Code:

1 2 3 Set Helem = MaPageHtml.getElementsByname("frm").Item Helem.Submit
ça semble être ok
@+

14/11/2007, 21h17
scully2501

Formidable cela marche merci beaucoup.

Bonne soirée à toi
14/11/2007, 21h21
fred65200

re

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

cordialement