Requête sous EXCEL

[NANOUX]

Boujour à tous et bonne année 2004,

Je souhaite centraliser sur une feuille Excel des valeurs récupérées sur des pages de différents sites internets.
J'ai essayé la fonction "nouvelle requete sur le web", mais je n'arrive pas a selectionner uniquement la valeur souhaitée. L'assistant de la requête me demande : "Entrez le(s) nom(s) ou numéros(s) de table, séparés par des virgules" et je n'ai aucune idée de son nom.

De plus l'accés aux sites avec mot de passe ne fonctionne pas.

Je dispose d'Excel 2000.
Pouvez vous m'orienter dans la résolution de ces problèmes.

Merci.
VN

 

[Le rital]

Salut le forum,

Teste cette procédure que j'ai retrouvé dans mes archives

Cordialement

Le rital



Attribute VB_Name = "RequeteWeb"


'récupère des données d'une page Web dans une feuille de calcul
'l'adresse internet peut comporter un login et un mot de passe
'dans ce cas, utiliser ce genre de syntaxe :
'http://login:motdepasse@mysql5.amen.fr/sql.php3?&server=1/&db=labase&sql_query=SELECT%20

*%20from%20lstim
'échange mpfe, fs et Patrick Lehagre

Sub RecupWebData(HyperLnk$)
Dim AdrURL As String

AdrURL = "URL;" & HyperLnk
'le paramètre False de la méthode Refresh permet
'de ne rendre la main à Excel que lorsque les données
'ont été entièrement transférées dans la feuille de calcul
ActiveSheet.QueryTables.Add(Connection:=AdrURL, _
Destination:=Range("A1")).Refresh False

End Sub 'fs et Patrick Lehagre

Sub testRecup()
Dim hpl$

hpl = "http://login:motdepasse@mysql5.amen.fr/sql.php3?&server=1/" & _
"&db=labase&sql_query=SELECT%20*%20from%20lstim"
RecupWebData hpl
'ici d'autres instructions ne seront exécutées
'qu'après la fin de la requête...
End Sub

'*****************************************
'autre présentation (en une seule proc, sans paramètre)
Sub RecupWebDatas()
'récupère des données d'une page Web dans une feuille de calcul
'l'adresse internet peut comporter un login et un mot de passe
'dans ce cas, utiliser ce genre de syntaxe :
'http://login:motdepasse@mysql5.amen.fr/sql.php3?&server=1/" & _
"&db=labase&sql_query=SELECT%20*%20from%20lstim
Dim AdrURL$, hpl$

'par exemple
hpl = "http://login:motdepasse@mysql5.amen.fr/sql.php3?&server=1/" & _
"&db=labase&sql_query=SELECT%20*%20from%20lstim"

AdrURL = "URL;" & hpl
'le paramètre False de la méthode Refresh permet
'de ne rendre la main à Excel que lorsque les données
'ont été entièrement transférées dans la feuille de calcul
ActiveSheet.QueryTables.Add(Connection:=AdrURL, _
Destination:=Range("A1")).Refresh False

End Sub