[excel] Excel et fichier html

**antrax2013** · 29/12/2005, 11h10

Bonjour,

dans ma grille excel, j'ai des liens hypertextes. Ils correspondent à des pages sur internet. Je voudrais pouvoir rapatrier des informations écrites sur ces pages. Comment dois-je m'y prendre ? d'avance merci de votre aide.

**Louis-Guillaume Morand** · 29/12/2005, 11h45

1- bon courage

2- a part creer un logiciel qui prend chaque url, ouvre la page, recupere le contenu; je ne vois pas d'autre solution rapide.

**antrax2013** · 29/12/2005, 11h48

oui je me doute. Mais comment faire pour ouvrir cette url et aller lire dans la page?

**Pymm** · 29/12/2005, 12h02

Regarde du coté des script vbs
http://www.interclasse.com/articles/scripts.php
cela devrait t'aider

Faudra peut-être faire attention aux droits d'auteurs

**SfJ5Rpw8** · 29/12/2005, 12h14

Envoyé par antrax2013

Bonjour,

dans ma grille excel, j'ai des liens hypertextes. Ils correspondent à des pages sur internet. Je voudrais pouvoir rapatrier des informations écrites sur ces pages. Comment dois-je m'y prendre ? d'avance merci de votre aide.

faut voir comment sont les données à récupérer dans ces pages... tu dois pouvoir créer une macro sous VBA d'excel ... avec un controle Webbrowser ou "Microsoft Internet control"

**antrax2013** · 29/12/2005, 15h21

Je vais essayé avec un script en vb. Mais n'y connaissant pas grand chose, je me heurte déjà à un problème. Il faut que je me logge, mais le site en question utilise la méthode post. Donc comment dois-je faire? J'ai essayé au cas où mais en passant mes login et pwd vià l'url ça ne marche pas.

D'avance merci.

**SfJ5Rpw8** · 29/12/2005, 16h54

regarde ce post ...:
http://www.developpez.net/forums/vie...=login&start=4

**antrax2013** · 29/12/2005, 21h07

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Dim IE 
Set IE = Wscript.CreateObject("InternetExplorer.Application") 
IE.Visible = 1 
IE.navigate "http://<a href="http://www.developpez.net/forums/login.php"" target="_blank">www.developpez.net/forums/login.php"</a> 
Do While (IE.Busy) 
   WScript.Sleep 10 
Loop 
Set Helem = IE.document.getElementById("username") 
Helem.Value = "Zeromus" 
Set Helem = IE.document.getElementById("password") 
Helem.Value = "LE_MOT_DE_PASSE A ZEROMUS" 
Set Helem = IE.document.getElementById("login") 
Helem.Click

ce code marche presque. en fait le formulaire n'a pas de nom. Existe t il un moyen pour controuner le problème

**SfJ5Rpw8** · 29/12/2005, 21h24

on peu avoir l'adresse du formulaire ?

**antrax2013** · 29/12/2005, 23h31

www.lesroyaumes.com

un truc du style IE.document.getelementbyid(IE.document.forms[1]) n'existerait pas ?

**antrax2013** · 30/12/2005, 10h30

j'ai essayé ça:

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
Set WshShell = WScript.CreateObject("WScript.Shell")
Dim IE
Set IE = CreateObject("InternetExplorer.Application")
IE.navigate "http://www.lesroyaumes.com"
 
IE.Visible = 1
 
Do While (IE.Busy)
   WScript.Sleep 10
Loop
Set Helem = IE.document.getElementById("login")
Helem.Value = "*****"
Set Helem = IE.document.getElementById("password")
Helem.Value = "*****"
Set Helem = IE.document.forms(0)
Helem.submit

9a marche pas non plus. Je suis désolé de vous ennuyer avec mes sotises mais j'y connais rien en matière de vbscript et c'est l'occasion d'apprendre.