OVH Cloud OVH Cloud

lien et récupération

4 réponses
Avatar
Socara Strasbourg
bonjour.
j'ai ce lien : http://webtools.csports.net/GetMyStats.asp?id=638756810
afficé dans un navigateur internet, il renvoi cette page : (qui est une
ligne simple)

PlayerName=-={P.A.G}=-Barbichette's&GameAndMod=CSports.net rank in Medal Of
Honor: Tug of War&Rank=7&NameID=342676489

puis-je avec excel, récupérer cette ligne en format text ?
--
Socara Strasbourg

4 réponses

Avatar
j
tu peux piloter internet explorer par vba pour récupérer l'adresse après
redirection :

Set ie = CreateObject("internetexplorer.application")
ie.Navigate ("http://webtools.csports.net/GetMyStats.asp?idc8756810")
Do While ie.Busy
wscript.sleep (100)
Loop
wscript.sleep (1000)
ie.Visible = True
msgbox ie.document.location

détails sur le vocabulaire vba internet explorer :
http://jacxl.free.fr/cours_xl/cours_xl_jac.html#vocabulaire_ie





"Socara Strasbourg" a écrit dans le message de
news: 3f9857f1$0$6982$
bonjour.
j'ai ce lien : http://webtools.csports.net/GetMyStats.asp?idc8756810
afficé dans un navigateur internet, il renvoi cette page : (qui est une
ligne simple)

PlayerName=-={P.A.G}=-Barbichette's&GameAndMod=CSports.net rank in Medal
Of

Honor: Tug of War&Rank=7&NameID42676489

puis-je avec excel, récupérer cette ligne en format text ?
--
Socara Strasbourg





Avatar
SOCARA Strasbourg
Ca marche pas trop
Mais en fait je voudrais avoir comme résultat
contenu de la cellule A1 :
PlayerName=={P.A.G}=-Barbichette's&GameAndMod=CSports.net rank in
MedalOfHonor: Tug of War&Rank=7&NameID42676489

mais est-ce possible ?

"" a écrit dans le message de
news:u%
tu peux piloter internet explorer par vba pour récupérer l'adresse après
redirection :

Set ie = CreateObject("internetexplorer.application")
ie.Navigate ("http://webtools.csports.net/GetMyStats.asp?idc8756810")
Do While ie.Busy
wscript.sleep (100)
Loop
wscript.sleep (1000)
ie.Visible = True
msgbox ie.document.location

détails sur le vocabulaire vba internet explorer :
http://jacxl.free.fr/cours_xl/cours_xl_jac.html#vocabulaire_ie





"Socara Strasbourg" a écrit dans le message
de

news: 3f9857f1$0$6982$
bonjour.
j'ai ce lien : http://webtools.csports.net/GetMyStats.asp?idc8756810
afficé dans un navigateur internet, il renvoi cette page : (qui est une
ligne simple)

PlayerName=-={P.A.G}=-Barbichette's&GameAndMod=CSports.net rank in Medal
Of

Honor: Tug of War&Rank=7&NameID42676489

puis-je avec excel, récupérer cette ligne en format text ?
--
Socara Strasbourg









Avatar
j
fallait le dire !

Sub nn()
Set ie = CreateObject("internetexplorer.application")
ie.Navigate ("http://webtools.csports.net/GetMyStats.asp?idc8756810")
Do While ie.Busy
Application.Wait (Now + 0.1 / 3600 / 24)
Loop
txt = ie.document.body.innertext
ie.Quit
MsgBox txt
End Sub



"SOCARA Strasbourg" a écrit dans le message de news:
bnafsi$8kr$
Ca marche pas trop
Mais en fait je voudrais avoir comme résultat
contenu de la cellule A1 :
PlayerName=={P.A.G}=-Barbichette's&GameAndMod=CSports.net rank in
MedalOfHonor: Tug of War&Rank=7&NameID42676489

mais est-ce possible ?

"" a écrit dans le message de
news:u%
tu peux piloter internet explorer par vba pour récupérer l'adresse après
redirection :

Set ie = CreateObject("internetexplorer.application")
ie.Navigate ("http://webtools.csports.net/GetMyStats.asp?idc8756810")
Do While ie.Busy
wscript.sleep (100)
Loop
wscript.sleep (1000)
ie.Visible = True
msgbox ie.document.location

détails sur le vocabulaire vba internet explorer :
http://jacxl.free.fr/cours_xl/cours_xl_jac.html#vocabulaire_ie





"Socara Strasbourg" a écrit dans le
message


de
news: 3f9857f1$0$6982$
bonjour.
j'ai ce lien : http://webtools.csports.net/GetMyStats.asp?idc8756810
afficé dans un navigateur internet, il renvoi cette page : (qui est
une



ligne simple)

PlayerName=-={P.A.G}=-Barbichette's&GameAndMod=CSports.net rank in
Medal



Of
Honor: Tug of War&Rank=7&NameID42676489

puis-je avec excel, récupérer cette ligne en format text ?
--
Socara Strasbourg













Avatar
j
ou encore
Workbooks.OpenText
"http://webtools.csports.net/GetMyStats.asp?idc8756810", , ,
DataType:=xlDelimited
txt = Cells(1)
ActiveWorkbook.Close
MsgBox txt



"SOCARA Strasbourg" a écrit dans le message de news:
bnafsi$8kr$
Ca marche pas trop
Mais en fait je voudrais avoir comme résultat
contenu de la cellule A1 :
PlayerName=={P.A.G}=-Barbichette's&GameAndMod=CSports.net rank in
MedalOfHonor: Tug of War&Rank=7&NameID42676489

mais est-ce possible ?

"" a écrit dans le message de
news:u%
tu peux piloter internet explorer par vba pour récupérer l'adresse après
redirection :

Set ie = CreateObject("internetexplorer.application")
ie.Navigate ("http://webtools.csports.net/GetMyStats.asp?idc8756810")
Do While ie.Busy
wscript.sleep (100)
Loop
wscript.sleep (1000)
ie.Visible = True
msgbox ie.document.location

détails sur le vocabulaire vba internet explorer :
http://jacxl.free.fr/cours_xl/cours_xl_jac.html#vocabulaire_ie





"Socara Strasbourg" a écrit dans le
message


de
news: 3f9857f1$0$6982$
bonjour.
j'ai ce lien : http://webtools.csports.net/GetMyStats.asp?idc8756810
afficé dans un navigateur internet, il renvoi cette page : (qui est
une



ligne simple)

PlayerName=-={P.A.G}=-Barbichette's&GameAndMod=CSports.net rank in
Medal



Of
Honor: Tug of War&Rank=7&NameID42676489

puis-je avec excel, récupérer cette ligne en format text ?
--
Socara Strasbourg