J
jean
Guest
Bonjour,
suite à une précendente réponse à mon problème le code fourni ne se compile pas et je reste dans l'expectative.
Voici ce code sous microsoft visual basic
Sub RecupWebDatas()
"&db=labase&sql_query=SELECT%20*%20from%20lstim
Dim AdrURL$, hll$
hpl = "http://www.zeturf.com/pages/cotes.php"
AdrURL = "URL;" & hpl
AdrURL
'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:=,_
Destination:=Range("A1")).Refresh False
End Sub 'frederic sigonneau et patrick lehagre
merci ..
suite à une précendente réponse à mon problème le code fourni ne se compile pas et je reste dans l'expectative.
Voici ce code sous microsoft visual basic
Sub RecupWebDatas()
"&db=labase&sql_query=SELECT%20*%20from%20lstim
Dim AdrURL$, hll$
hpl = "http://www.zeturf.com/pages/cotes.php"
AdrURL = "URL;" & hpl
AdrURL
'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:=,_
Destination:=Range("A1")).Refresh False
End Sub 'frederic sigonneau et patrick lehagre
merci ..