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