Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel requête web

requête web

16 réponses
Avatar
alberto
Bonjour a tous

j'aimerais recréer la requête web qui cherche des valeurs boursieres sur
msnmoney mais cette fois ci j'aimerais qu'il cherche sur yahoo

Pour ce faire j'ai essayé 2 méthodes qui n'ont pas été concluentes:

1- j'ai créer une requête mais excel ne va chcercher des valeurs que pour le
premier des symboles de ma liste, de plus il importe les valeurs en block
alors que j'aimerais les avoir en ligne comme c'est le cas actuellement pour
msnmoney


2- J'ai essayé d'enregister une macro, mais elle ne fonctionne pas, ça
enregistre seulement les copie coller. Lorsque je vais dans IE pour aller
chercher des valeurs la macro n'enregistre pas.

quelqu'un peut m'er la dessus stp
Signaler un problème avec ce contenu

6 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
1 2
Avatar
h2so4
bonsoir,

ceci pourrait-il te convenir ?

http://cjoint.com/?dvv4Z1YpJQ


--

h2so4
play triogical at http://www.triogical.com
"Cassandra" wrote in message
news:
il n'y a pas moyen de faire la recherche par le symbol plutôt que le code
ISIN ??

est-ce possible de faire la recherche dans la bourse americaine plutôt que
la bourse française ?

http://finance.yahoo.com/q?s > "h2so4" a écrit dans le message de news:
TuWLh.77288$
bonsoir,

la recherche se fait sur le code ISIN, colonne 1 et non sur le code en
colonne 3.

--

h2so4
play triogical at http://www.triogical.com
"Cassandra" wrote in message
news:
la requête se fait seulement pour les symboles que tu as mit même si je
les
change


"h2so4" a écrit dans le message de news:
Rd9Lh.73143$
bonjour,

j'ai mis le fichier d'exemple qui fonctionne à l'addresse siuvante :

http://cjoint.com/?dsmreYKsT5

--

h2so4
play triogical at http://www.triogical.com
"Cassandra" wrote in message
news:
20-21 ligne, j'ai collé les 2 lignes et j'ai enlevé le _


"h2so4" a écrit dans le message de news:
8gRKh.71432$
sur quelle ligne te donne-t-il cette erreur ?

--

h2so4
play triogical at http://www.triogical.com
"Cassandra" wrote in message
news:
salut h2so4,

j'ai mit le code que tu m'as donné dans excel et il me dit qu'il y a
une
erreur dans cette partie:

With ActiveSheet.QueryTables.Add(Connection:=_
connectionstring, Destination:=Range("A1"))

j'ai mit plutôt:

With ActiveSheet.QueryTables.Add(Connection:=connectionstring,
Destination:=Range("A1"))

mais voila qu'il me donne une nouvelle erreur: Runtime error 9:
Subscript
out of range

je fais quoi la ??

"h2so4" a écrit dans le message de
news: TrVIh.59375$
bonjour,

ceci pourrait-il te convenir ?

'-----------------------------------------------------------
Sub queryyahoo()
valeur = "valeur": 'exemple "feuille 3" ou "liste des valeurs"
'nom ou numéro de la feuille contenant les valeurs
'la première ligne de cette feuille est une ligne de titre
' code isin en colonne 1, nom en colonne 2,
' code en colonne 3, cours en colonne 4
'
' la recherche se fait sur base du code isin
' en colonne 1 tant qu'il y a un code.


cours = "travail": ' exemple "feuille 1" ou "espace travail"
' nom ou numero d'un feuille de travail
' où seront stockées les réponses au query



urlpart1 = "URL;http://fr.finsearch.yahoo.com/" _
& "fr/index.php?s=fr_sort&nm="

urlpart2 = "&tp=*&r=*&sub=Recherche+"

i = 2
c = Worksheets(valeur).Cells(i, 1)
While c <> ""
connectionstring = urlpart1 & c & urlpart2
Worksheets(cours).Select
With ActiveSheet.QueryTables.Add(Connection:=_
connectionstring, Destination:=Range("A1"))
.Name = "yahoo finance web query"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = False
.RefreshStyle = xlOverwriteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.WebSelectionType = xlSpecifiedTables
.WebFormatting = xlWebFormattingNone
.WebTables = "12"
.WebPreFormattedTextToColumns = True
.WebConsecutiveDelimitersAsOne = True
.WebSingleBlockTextImport = False
.WebDisableDateRecognition = False
.WebDisableRedirections = False
.Refresh BackgroundQuery:úlse
End With

Worksheets(valeur).Cells(i, 2) = Worksheets(cours).Cells(2, 1)
Worksheets(valeur).Cells(i, 3) = Worksheets(cours).Cells(2, 2)
price = Worksheets(cours).Cells(2, 6)
price = Left(price, InStr(price, "?") - 1)
Worksheets(valeur).Cells(i, 4) = price
i = i + 1
c = Worksheets(valeur).Cells(i, 1)
Wend
Worksheets(valeur).Select
End Sub
'-----------------------------------------------------------------

--

h2so4
play triogical at http://www.triogical.com


"alberto" ,com> wrote in message
news:%
Bonjour a tous

j'aimerais recréer la requête web qui cherche des valeurs
boursieres sur msnmoney mais cette fois ci j'aimerais qu'il
cherche sur yahoo

Pour ce faire j'ai essayé 2 méthodes qui n'ont pas été
concluentes:

1- j'ai créer une requête mais excel ne va chcercher des valeurs
que pour le premier des symboles de ma liste, de plus il importe
les valeurs en block alors que j'aimerais les avoir en ligne comme
c'est le cas actuellement pour msnmoney


2- J'ai essayé d'enregister une macro, mais elle ne fonctionne
pas, ça enregistre seulement les copie coller. Lorsque je vais
dans IE pour aller chercher des valeurs la macro n'enregistre pas.

quelqu'un peut m'er la dessus stp



































Avatar
Cassandra
est-ce qu'il y a moyen de faire en sorte que lorsqu'il y a des erreurs ça
laisse une ligne blanche ?

(ou lorsque le serveur ne répond pas ça laisse une ligne blanche)
"h2so4" a écrit dans le message de news:
15hMh.79199$
bonsoir,

ceci pourrait-il te convenir ?

http://cjoint.com/?dvv4Z1YpJQ


--

h2so4
play triogical at http://www.triogical.com
"Cassandra" wrote in message
news:
il n'y a pas moyen de faire la recherche par le symbol plutôt que le code
ISIN ??

est-ce possible de faire la recherche dans la bourse americaine plutôt
que la bourse française ?

http://finance.yahoo.com/q?s >> "h2so4" a écrit dans le message de news:
TuWLh.77288$
bonsoir,

la recherche se fait sur le code ISIN, colonne 1 et non sur le code en
colonne 3.

--

h2so4
play triogical at http://www.triogical.com
"Cassandra" wrote in message
news:
la requête se fait seulement pour les symboles que tu as mit même si je
les
change


"h2so4" a écrit dans le message de news:
Rd9Lh.73143$
bonjour,

j'ai mis le fichier d'exemple qui fonctionne à l'addresse siuvante :

http://cjoint.com/?dsmreYKsT5

--

h2so4
play triogical at http://www.triogical.com
"Cassandra" wrote in message
news:
20-21 ligne, j'ai collé les 2 lignes et j'ai enlevé le _


"h2so4" a écrit dans le message de news:
8gRKh.71432$
sur quelle ligne te donne-t-il cette erreur ?

--

h2so4
play triogical at http://www.triogical.com
"Cassandra" wrote in message
news:
salut h2so4,

j'ai mit le code que tu m'as donné dans excel et il me dit qu'il y
a une
erreur dans cette partie:

With ActiveSheet.QueryTables.Add(Connection:=_
connectionstring, Destination:=Range("A1"))

j'ai mit plutôt:

With ActiveSheet.QueryTables.Add(Connection:=connectionstring,
Destination:=Range("A1"))

mais voila qu'il me donne une nouvelle erreur: Runtime error 9:
Subscript
out of range

je fais quoi la ??

"h2so4" a écrit dans le message de
news: TrVIh.59375$
bonjour,

ceci pourrait-il te convenir ?

'-----------------------------------------------------------
Sub queryyahoo()
valeur = "valeur": 'exemple "feuille 3" ou "liste des valeurs"
'nom ou numéro de la feuille contenant les valeurs
'la première ligne de cette feuille est une ligne de titre
' code isin en colonne 1, nom en colonne 2,
' code en colonne 3, cours en colonne 4
'
' la recherche se fait sur base du code isin
' en colonne 1 tant qu'il y a un code.


cours = "travail": ' exemple "feuille 1" ou "espace travail"
' nom ou numero d'un feuille de travail
' où seront stockées les réponses au query



urlpart1 = "URL;http://fr.finsearch.yahoo.com/" _
& "fr/index.php?s=fr_sort&nm="

urlpart2 = "&tp=*&r=*&sub=Recherche+"

i = 2
c = Worksheets(valeur).Cells(i, 1)
While c <> ""
connectionstring = urlpart1 & c & urlpart2
Worksheets(cours).Select
With ActiveSheet.QueryTables.Add(Connection:=_
connectionstring, Destination:=Range("A1"))
.Name = "yahoo finance web query"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = False
.RefreshStyle = xlOverwriteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.WebSelectionType = xlSpecifiedTables
.WebFormatting = xlWebFormattingNone
.WebTables = "12"
.WebPreFormattedTextToColumns = True
.WebConsecutiveDelimitersAsOne = True
.WebSingleBlockTextImport = False
.WebDisableDateRecognition = False
.WebDisableRedirections = False
.Refresh BackgroundQuery:úlse
End With

Worksheets(valeur).Cells(i, 2) = Worksheets(cours).Cells(2, 1)
Worksheets(valeur).Cells(i, 3) = Worksheets(cours).Cells(2, 2)
price = Worksheets(cours).Cells(2, 6)
price = Left(price, InStr(price, "?") - 1)
Worksheets(valeur).Cells(i, 4) = price
i = i + 1
c = Worksheets(valeur).Cells(i, 1)
Wend
Worksheets(valeur).Select
End Sub
'-----------------------------------------------------------------

--

h2so4
play triogical at http://www.triogical.com


"alberto" ,com> wrote in message
news:%
Bonjour a tous

j'aimerais recréer la requête web qui cherche des valeurs
boursieres sur msnmoney mais cette fois ci j'aimerais qu'il
cherche sur yahoo

Pour ce faire j'ai essayé 2 méthodes qui n'ont pas été
concluentes:

1- j'ai créer une requête mais excel ne va chcercher des valeurs
que pour le premier des symboles de ma liste, de plus il importe
les valeurs en block alors que j'aimerais les avoir en ligne
comme c'est le cas actuellement pour msnmoney


2- J'ai essayé d'enregister une macro, mais elle ne fonctionne
pas, ça enregistre seulement les copie coller. Lorsque je vais
dans IE pour aller chercher des valeurs la macro n'enregistre
pas.

quelqu'un peut m'er la dessus stp







































Avatar
h2so4
bonsoir,


ceci pourrait-il te convenir ?

http://cjoint.com/?dwxd5KnVeh

bonne chance

ps. pas un seul bonjour, pas un seul merci ;o(
--

h2so4
play triogical at http://www.triogical.com
"Cassandra" wrote in message
news:
est-ce qu'il y a moyen de faire en sorte que lorsqu'il y a des erreurs ça
laisse une ligne blanche ?

(ou lorsque le serveur ne répond pas ça laisse une ligne blanche)
"h2so4" a écrit dans le message de news:
15hMh.79199$
bonsoir,

ceci pourrait-il te convenir ?

http://cjoint.com/?dvv4Z1YpJQ


--

h2so4
play triogical at http://www.triogical.com
"Cassandra" wrote in message
news:
il n'y a pas moyen de faire la recherche par le symbol plutôt que le
code ISIN ??

est-ce possible de faire la recherche dans la bourse americaine plutôt
que la bourse française ?

http://finance.yahoo.com/q?s >>> "h2so4" a écrit dans le message de news:
TuWLh.77288$
bonsoir,

la recherche se fait sur le code ISIN, colonne 1 et non sur le code en
colonne 3.

--

h2so4
play triogical at http://www.triogical.com
"Cassandra" wrote in message
news:
la requête se fait seulement pour les symboles que tu as mit même si
je les
change


"h2so4" a écrit dans le message de news:
Rd9Lh.73143$
bonjour,

j'ai mis le fichier d'exemple qui fonctionne à l'addresse siuvante :

http://cjoint.com/?dsmreYKsT5

--

h2so4
play triogical at http://www.triogical.com
"Cassandra" wrote in message
news:
20-21 ligne, j'ai collé les 2 lignes et j'ai enlevé le _


"h2so4" a écrit dans le message de
news: 8gRKh.71432$
sur quelle ligne te donne-t-il cette erreur ?

--

h2so4
play triogical at http://www.triogical.com
"Cassandra" wrote in message
news:
salut h2so4,

j'ai mit le code que tu m'as donné dans excel et il me dit qu'il y
a une
erreur dans cette partie:

With ActiveSheet.QueryTables.Add(Connection:=_
connectionstring, Destination:=Range("A1"))

j'ai mit plutôt:

With ActiveSheet.QueryTables.Add(Connection:=connectionstring,
Destination:=Range("A1"))

mais voila qu'il me donne une nouvelle erreur: Runtime error 9:
Subscript
out of range

je fais quoi la ??

"h2so4" a écrit dans le message de
news: TrVIh.59375$
bonjour,

ceci pourrait-il te convenir ?

'-----------------------------------------------------------
Sub queryyahoo()
valeur = "valeur": 'exemple "feuille 3" ou "liste des valeurs"
'nom ou numéro de la feuille contenant les valeurs
'la première ligne de cette feuille est une ligne de titre
' code isin en colonne 1, nom en colonne 2,
' code en colonne 3, cours en colonne 4
'
' la recherche se fait sur base du code isin
' en colonne 1 tant qu'il y a un code.


cours = "travail": ' exemple "feuille 1" ou "espace travail"
' nom ou numero d'un feuille de travail
' où seront stockées les réponses au query



urlpart1 = "URL;http://fr.finsearch.yahoo.com/" _
& "fr/index.php?s=fr_sort&nm="

urlpart2 = "&tp=*&r=*&sub=Recherche+"

i = 2
c = Worksheets(valeur).Cells(i, 1)
While c <> ""
connectionstring = urlpart1 & c & urlpart2
Worksheets(cours).Select
With ActiveSheet.QueryTables.Add(Connection:=_
connectionstring, Destination:=Range("A1"))
.Name = "yahoo finance web query"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = False
.RefreshStyle = xlOverwriteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.WebSelectionType = xlSpecifiedTables
.WebFormatting = xlWebFormattingNone
.WebTables = "12"
.WebPreFormattedTextToColumns = True
.WebConsecutiveDelimitersAsOne = True
.WebSingleBlockTextImport = False
.WebDisableDateRecognition = False
.WebDisableRedirections = False
.Refresh BackgroundQuery:úlse
End With

Worksheets(valeur).Cells(i, 2) = Worksheets(cours).Cells(2, 1)
Worksheets(valeur).Cells(i, 3) = Worksheets(cours).Cells(2, 2)
price = Worksheets(cours).Cells(2, 6)
price = Left(price, InStr(price, "?") - 1)
Worksheets(valeur).Cells(i, 4) = price
i = i + 1
c = Worksheets(valeur).Cells(i, 1)
Wend
Worksheets(valeur).Select
End Sub
'-----------------------------------------------------------------

--

h2so4
play triogical at http://www.triogical.com


"alberto" ,com> wrote in message
news:%
Bonjour a tous

j'aimerais recréer la requête web qui cherche des valeurs
boursieres sur msnmoney mais cette fois ci j'aimerais qu'il
cherche sur yahoo

Pour ce faire j'ai essayé 2 méthodes qui n'ont pas été
concluentes:

1- j'ai créer une requête mais excel ne va chcercher des valeurs
que pour le premier des symboles de ma liste, de plus il importe
les valeurs en block alors que j'aimerais les avoir en ligne
comme c'est le cas actuellement pour msnmoney


2- J'ai essayé d'enregister une macro, mais elle ne fonctionne
pas, ça enregistre seulement les copie coller. Lorsque je vais
dans IE pour aller chercher des valeurs la macro n'enregistre
pas.

quelqu'un peut m'er la dessus stp











































Avatar
Cassandra
Salut H2SO4,

dsl pour mon manque de savoir vivre

merçi BEAUCOUP pour le code que tu as fait, il semble me convernir, lundi je
vais lui faire quelques mods et je t'en donne des nouvelles

ps la requête web implémenté dans excel qui va chercher des valeurs dans msn
money est très vite, pkoi sur yahoo c'est plus lent ?

ps: MILLES MERÇIS
"h2so4" a écrit dans le message de news:
H7DMh.80999$
bonsoir,


ceci pourrait-il te convenir ?

http://cjoint.com/?dwxd5KnVeh

bonne chance

ps. pas un seul bonjour, pas un seul merci ;o(
--

h2so4
play triogical at http://www.triogical.com
"Cassandra" wrote in message
news:
est-ce qu'il y a moyen de faire en sorte que lorsqu'il y a des erreurs ça
laisse une ligne blanche ?

(ou lorsque le serveur ne répond pas ça laisse une ligne blanche)
"h2so4" a écrit dans le message de news:
15hMh.79199$
bonsoir,

ceci pourrait-il te convenir ?

http://cjoint.com/?dvv4Z1YpJQ


--

h2so4
play triogical at http://www.triogical.com
"Cassandra" wrote in message
news:
il n'y a pas moyen de faire la recherche par le symbol plutôt que le
code ISIN ??

est-ce possible de faire la recherche dans la bourse americaine plutôt
que la bourse française ?

http://finance.yahoo.com/q?s >>>> "h2so4" a écrit dans le message de news:
TuWLh.77288$
bonsoir,

la recherche se fait sur le code ISIN, colonne 1 et non sur le code en
colonne 3.

--

h2so4
play triogical at http://www.triogical.com
"Cassandra" wrote in message
news:
la requête se fait seulement pour les symboles que tu as mit même si
je les
change


"h2so4" a écrit dans le message de news:
Rd9Lh.73143$
bonjour,

j'ai mis le fichier d'exemple qui fonctionne à l'addresse siuvante :

http://cjoint.com/?dsmreYKsT5

--

h2so4
play triogical at http://www.triogical.com
"Cassandra" wrote in message
news:
20-21 ligne, j'ai collé les 2 lignes et j'ai enlevé le _


"h2so4" a écrit dans le message de
news: 8gRKh.71432$
sur quelle ligne te donne-t-il cette erreur ?

--

h2so4
play triogical at http://www.triogical.com
"Cassandra" wrote in message
news:
salut h2so4,

j'ai mit le code que tu m'as donné dans excel et il me dit qu'il
y a une
erreur dans cette partie:

With ActiveSheet.QueryTables.Add(Connection:=_
connectionstring, Destination:=Range("A1"))

j'ai mit plutôt:

With ActiveSheet.QueryTables.Add(Connection:=connectionstring,
Destination:=Range("A1"))

mais voila qu'il me donne une nouvelle erreur: Runtime error 9:
Subscript
out of range

je fais quoi la ??

"h2so4" a écrit dans le message de
news: TrVIh.59375$
bonjour,

ceci pourrait-il te convenir ?

'-----------------------------------------------------------
Sub queryyahoo()
valeur = "valeur": 'exemple "feuille 3" ou "liste des valeurs"
'nom ou numéro de la feuille contenant les valeurs
'la première ligne de cette feuille est une ligne de titre
' code isin en colonne 1, nom en colonne 2,
' code en colonne 3, cours en colonne 4
'
' la recherche se fait sur base du code isin
' en colonne 1 tant qu'il y a un code.


cours = "travail": ' exemple "feuille 1" ou "espace travail"
' nom ou numero d'un feuille de travail
' où seront stockées les réponses au query



urlpart1 = "URL;http://fr.finsearch.yahoo.com/" _
& "fr/index.php?s=fr_sort&nm="

urlpart2 = "&tp=*&r=*&sub=Recherche+"

i = 2
c = Worksheets(valeur).Cells(i, 1)
While c <> ""
connectionstring = urlpart1 & c & urlpart2
Worksheets(cours).Select
With ActiveSheet.QueryTables.Add(Connection:=_
connectionstring, Destination:=Range("A1"))
.Name = "yahoo finance web query"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = False
.RefreshStyle = xlOverwriteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.WebSelectionType = xlSpecifiedTables
.WebFormatting = xlWebFormattingNone
.WebTables = "12"
.WebPreFormattedTextToColumns = True
.WebConsecutiveDelimitersAsOne = True
.WebSingleBlockTextImport = False
.WebDisableDateRecognition = False
.WebDisableRedirections = False
.Refresh BackgroundQuery:úlse
End With

Worksheets(valeur).Cells(i, 2) = Worksheets(cours).Cells(2,
1)
Worksheets(valeur).Cells(i, 3) = Worksheets(cours).Cells(2,
2)
price = Worksheets(cours).Cells(2, 6)
price = Left(price, InStr(price, "?") - 1)
Worksheets(valeur).Cells(i, 4) = price
i = i + 1
c = Worksheets(valeur).Cells(i, 1)
Wend
Worksheets(valeur).Select
End Sub
'-----------------------------------------------------------------

--

h2so4
play triogical at http://www.triogical.com


"alberto" ,com> wrote in message
news:%
Bonjour a tous

j'aimerais recréer la requête web qui cherche des valeurs
boursieres sur msnmoney mais cette fois ci j'aimerais qu'il
cherche sur yahoo

Pour ce faire j'ai essayé 2 méthodes qui n'ont pas été
concluentes:

1- j'ai créer une requête mais excel ne va chcercher des
valeurs que pour le premier des symboles de ma liste, de plus
il importe les valeurs en block alors que j'aimerais les avoir
en ligne comme c'est le cas actuellement pour msnmoney


2- J'ai essayé d'enregister une macro, mais elle ne fonctionne
pas, ça enregistre seulement les copie coller. Lorsque je vais
dans IE pour aller chercher des valeurs la macro n'enregistre
pas.

quelqu'un peut m'er la dessus stp















































Avatar
h2so4
bonjour,

voir réponse plus bas

--

h2so4
play triogical at http://www.triogical.com
"Cassandra" wrote in message
news:
Salut H2SO4,

dsl pour mon manque de savoir vivre

merçi BEAUCOUP pour le code que tu as fait, il semble me convernir, lundi
je vais lui faire quelques mods et je t'en donne des nouvelles


bonne chance

ps la requête web implémenté dans excel qui va chercher des valeurs dans
msn money est très vite, pkoi sur yahoo c'est plus lent ?


je suppose que c'est dû aux différences de performance entre les 2 sites.
(page plus complexes sur yahoo, serveur répondant moins vite, ...)

ps: MILLES MERÇIS

ceci pourrait-il te convenir ?

http://cjoint.com/?dwxd5KnVeh




Avatar
Cassandra
Salut H2SO4,

dsl pour mon manque de savoir vivre

merçi BEAUCOUP pour le code que tu as fait, il semble me convernir, lundi je
vais lui faire quelques mods et je t'en donne des nouvelles

ps la requête web implémenté dans excel qui va chercher des valeurs dans msn
money est très vite, pkoi sur yahoo c'est plus lent ?

ps: MILLES MERÇIS

"h2so4" a écrit dans le message de news:
H7DMh.80999$
bonsoir,


ceci pourrait-il te convenir ?

http://cjoint.com/?dwxd5KnVeh

bonne chance

ps. pas un seul bonjour, pas un seul merci ;o(
--

h2so4
play triogical at http://www.triogical.com
"Cassandra" wrote in message
news:
est-ce qu'il y a moyen de faire en sorte que lorsqu'il y a des erreurs ça
laisse une ligne blanche ?

(ou lorsque le serveur ne répond pas ça laisse une ligne blanche)
"h2so4" a écrit dans le message de news:
15hMh.79199$
bonsoir,

ceci pourrait-il te convenir ?

http://cjoint.com/?dvv4Z1YpJQ


--

h2so4
play triogical at http://www.triogical.com
"Cassandra" wrote in message
news:
il n'y a pas moyen de faire la recherche par le symbol plutôt que le
code ISIN ??

est-ce possible de faire la recherche dans la bourse americaine plutôt
que la bourse française ?

http://finance.yahoo.com/q?s >>>> "h2so4" a écrit dans le message de news:
TuWLh.77288$
bonsoir,

la recherche se fait sur le code ISIN, colonne 1 et non sur le code en
colonne 3.

--

h2so4
play triogical at http://www.triogical.com
"Cassandra" wrote in message
news:
la requête se fait seulement pour les symboles que tu as mit même si
je les
change


"h2so4" a écrit dans le message de news:
Rd9Lh.73143$
bonjour,

j'ai mis le fichier d'exemple qui fonctionne à l'addresse siuvante :

http://cjoint.com/?dsmreYKsT5

--

h2so4
play triogical at http://www.triogical.com
"Cassandra" wrote in message
news:
20-21 ligne, j'ai collé les 2 lignes et j'ai enlevé le _


"h2so4" a écrit dans le message de
news: 8gRKh.71432$
sur quelle ligne te donne-t-il cette erreur ?

--

h2so4
play triogical at http://www.triogical.com
"Cassandra" wrote in message
news:
salut h2so4,

j'ai mit le code que tu m'as donné dans excel et il me dit qu'il
y a une
erreur dans cette partie:

With ActiveSheet.QueryTables.Add(Connection:=_
connectionstring, Destination:=Range("A1"))

j'ai mit plutôt:

With ActiveSheet.QueryTables.Add(Connection:=connectionstring,
Destination:=Range("A1"))

mais voila qu'il me donne une nouvelle erreur: Runtime error 9:
Subscript
out of range

je fais quoi la ??

"h2so4" a écrit dans le message de
news: TrVIh.59375$
bonjour,

ceci pourrait-il te convenir ?

'-----------------------------------------------------------
Sub queryyahoo()
valeur = "valeur": 'exemple "feuille 3" ou "liste des valeurs"
'nom ou numéro de la feuille contenant les valeurs
'la première ligne de cette feuille est une ligne de titre
' code isin en colonne 1, nom en colonne 2,
' code en colonne 3, cours en colonne 4
'
' la recherche se fait sur base du code isin
' en colonne 1 tant qu'il y a un code.


cours = "travail": ' exemple "feuille 1" ou "espace travail"
' nom ou numero d'un feuille de travail
' où seront stockées les réponses au query



urlpart1 = "URL;http://fr.finsearch.yahoo.com/" _
& "fr/index.php?s=fr_sort&nm="

urlpart2 = "&tp=*&r=*&sub=Recherche+"

i = 2
c = Worksheets(valeur).Cells(i, 1)
While c <> ""
connectionstring = urlpart1 & c & urlpart2
Worksheets(cours).Select
With ActiveSheet.QueryTables.Add(Connection:=_
connectionstring, Destination:=Range("A1"))
.Name = "yahoo finance web query"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = False
.RefreshStyle = xlOverwriteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.WebSelectionType = xlSpecifiedTables
.WebFormatting = xlWebFormattingNone
.WebTables = "12"
.WebPreFormattedTextToColumns = True
.WebConsecutiveDelimitersAsOne = True
.WebSingleBlockTextImport = False
.WebDisableDateRecognition = False
.WebDisableRedirections = False
.Refresh BackgroundQuery:úlse
End With

Worksheets(valeur).Cells(i, 2) = Worksheets(cours).Cells(2,
1)
Worksheets(valeur).Cells(i, 3) = Worksheets(cours).Cells(2,
2)
price = Worksheets(cours).Cells(2, 6)
price = Left(price, InStr(price, "?") - 1)
Worksheets(valeur).Cells(i, 4) = price
i = i + 1
c = Worksheets(valeur).Cells(i, 1)
Wend
Worksheets(valeur).Select
End Sub
'-----------------------------------------------------------------

--

h2so4
play triogical at http://www.triogical.com


"alberto" ,com> wrote in message
news:%
Bonjour a tous

j'aimerais recréer la requête web qui cherche des valeurs
boursieres sur msnmoney mais cette fois ci j'aimerais qu'il
cherche sur yahoo

Pour ce faire j'ai essayé 2 méthodes qui n'ont pas été
concluentes:

1- j'ai créer une requête mais excel ne va chcercher des
valeurs que pour le premier des symboles de ma liste, de plus
il importe les valeurs en block alors que j'aimerais les avoir
en ligne comme c'est le cas actuellement pour msnmoney


2- J'ai essayé d'enregister une macro, mais elle ne fonctionne
pas, ça enregistre seulement les copie coller. Lorsque je vais
dans IE pour aller chercher des valeurs la macro n'enregistre
pas.

quelqu'un peut m'er la dessus stp















































1 2