bonsoir à toutes et à tous
le code ci dessous est issu du site de frederic sigonneau .
http://perso.wanadoo.fr/frederic.sigonneau/
il permet de recuperer les informations d'une page web vers une feuille excel
'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://www.zeturf.com/pages/cotes.php"
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 'frederic sigonneau et Patrick Lehagre
...on joue comme on aime...personnellement je prefere les regarder gambader dans la nature....;o)
bonne soirée
Michel