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
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
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
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
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" <mac_____daddy@hotmail,com> wrote in message
news:%23b9Vlv5XHHA.2552@TK2MSFTNGP06.phx.gbl...
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
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
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
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" <h2so4enlevezmoi@pandora.be> a écrit dans le message de news:
TrVIh.59375$rH7.392208@phobos.telenet-ops.be...
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" <mac_____daddy@hotmail,com> wrote in message
news:%23b9Vlv5XHHA.2552@TK2MSFTNGP06.phx.gbl...
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
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
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
sur quelle ligne te donne-t-il cette erreur ?
--
h2so4
play triogical at http://www.triogical.com
"Cassandra" <mac_____daddy@hotmail.com> wrote in message
news:OrcYhmFaHHA.4832@TK2MSFTNGP02.phx.gbl...
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" <h2so4enlevezmoi@pandora.be> a écrit dans le message de news:
TrVIh.59375$rH7.392208@phobos.telenet-ops.be...
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" <mac_____daddy@hotmail,com> wrote in message
news:%23b9Vlv5XHHA.2552@TK2MSFTNGP06.phx.gbl...
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
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
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
20-21 ligne, j'ai collé les 2 lignes et j'ai enlevé le _
"h2so4" <h2so4enlevezmoi@pandora.be> a écrit dans le message de news:
8gRKh.71432$Gi6.516204@phobos.telenet-ops.be...
sur quelle ligne te donne-t-il cette erreur ?
--
h2so4
play triogical at http://www.triogical.com
"Cassandra" <mac_____daddy@hotmail.com> wrote in message
news:OrcYhmFaHHA.4832@TK2MSFTNGP02.phx.gbl...
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" <h2so4enlevezmoi@pandora.be> a écrit dans le message de news:
TrVIh.59375$rH7.392208@phobos.telenet-ops.be...
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" <mac_____daddy@hotmail,com> wrote in message
news:%23b9Vlv5XHHA.2552@TK2MSFTNGP06.phx.gbl...
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
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
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
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" <alberto.fernandez-peon@hec.ca> wrote in message
news:OnndOLRaHHA.5032@TK2MSFTNGP02.phx.gbl...
20-21 ligne, j'ai collé les 2 lignes et j'ai enlevé le _
"h2so4" <h2so4enlevezmoi@pandora.be> a écrit dans le message de news:
8gRKh.71432$Gi6.516204@phobos.telenet-ops.be...
sur quelle ligne te donne-t-il cette erreur ?
--
h2so4
play triogical at http://www.triogical.com
"Cassandra" <mac_____daddy@hotmail.com> wrote in message
news:OrcYhmFaHHA.4832@TK2MSFTNGP02.phx.gbl...
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" <h2so4enlevezmoi@pandora.be> a écrit dans le message de news:
TrVIh.59375$rH7.392208@phobos.telenet-ops.be...
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" <mac_____daddy@hotmail,com> wrote in message
news:%23b9Vlv5XHHA.2552@TK2MSFTNGP06.phx.gbl...
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
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
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
la requête se fait seulement pour les symboles que tu as mit même si je
les
change
"h2so4" <h2so4enlevezmoi@pandora.be> a écrit dans le message de news:
Rd9Lh.73143$9_6.423049@phobos.telenet-ops.be...
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" <alberto.fernandez-peon@hec.ca> wrote in message
news:OnndOLRaHHA.5032@TK2MSFTNGP02.phx.gbl...
20-21 ligne, j'ai collé les 2 lignes et j'ai enlevé le _
"h2so4" <h2so4enlevezmoi@pandora.be> a écrit dans le message de news:
8gRKh.71432$Gi6.516204@phobos.telenet-ops.be...
sur quelle ligne te donne-t-il cette erreur ?
--
h2so4
play triogical at http://www.triogical.com
"Cassandra" <mac_____daddy@hotmail.com> wrote in message
news:OrcYhmFaHHA.4832@TK2MSFTNGP02.phx.gbl...
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" <h2so4enlevezmoi@pandora.be> a écrit dans le message de news:
TrVIh.59375$rH7.392208@phobos.telenet-ops.be...
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" <mac_____daddy@hotmail,com> wrote in message
news:%23b9Vlv5XHHA.2552@TK2MSFTNGP06.phx.gbl...
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
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
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
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" <alberto.fernandez-peon@hec.ca> wrote in message
news:ue3RgbpaHHA.208@TK2MSFTNGP05.phx.gbl...
la requête se fait seulement pour les symboles que tu as mit même si je
les
change
"h2so4" <h2so4enlevezmoi@pandora.be> a écrit dans le message de news:
Rd9Lh.73143$9_6.423049@phobos.telenet-ops.be...
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" <alberto.fernandez-peon@hec.ca> wrote in message
news:OnndOLRaHHA.5032@TK2MSFTNGP02.phx.gbl...
20-21 ligne, j'ai collé les 2 lignes et j'ai enlevé le _
"h2so4" <h2so4enlevezmoi@pandora.be> a écrit dans le message de news:
8gRKh.71432$Gi6.516204@phobos.telenet-ops.be...
sur quelle ligne te donne-t-il cette erreur ?
--
h2so4
play triogical at http://www.triogical.com
"Cassandra" <mac_____daddy@hotmail.com> wrote in message
news:OrcYhmFaHHA.4832@TK2MSFTNGP02.phx.gbl...
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" <h2so4enlevezmoi@pandora.be> a écrit dans le message de news:
TrVIh.59375$rH7.392208@phobos.telenet-ops.be...
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" <mac_____daddy@hotmail,com> wrote in message
news:%23b9Vlv5XHHA.2552@TK2MSFTNGP06.phx.gbl...
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
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
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
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" <alberto.fernandez-peon@hec.ca> wrote in message
news:ue3RgbpaHHA.208@TK2MSFTNGP05.phx.gbl...
la requête se fait seulement pour les symboles que tu as mit même si je
les
change
"h2so4" <h2so4enlevezmoi@pandora.be> a écrit dans le message de news:
Rd9Lh.73143$9_6.423049@phobos.telenet-ops.be...
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" <alberto.fernandez-peon@hec.ca> wrote in message
news:OnndOLRaHHA.5032@TK2MSFTNGP02.phx.gbl...
20-21 ligne, j'ai collé les 2 lignes et j'ai enlevé le _
"h2so4" <h2so4enlevezmoi@pandora.be> a écrit dans le message de news:
8gRKh.71432$Gi6.516204@phobos.telenet-ops.be...
sur quelle ligne te donne-t-il cette erreur ?
--
h2so4
play triogical at http://www.triogical.com
"Cassandra" <mac_____daddy@hotmail.com> wrote in message
news:OrcYhmFaHHA.4832@TK2MSFTNGP02.phx.gbl...
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" <h2so4enlevezmoi@pandora.be> a écrit dans le message de news:
TrVIh.59375$rH7.392208@phobos.telenet-ops.be...
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" <mac_____daddy@hotmail,com> wrote in message
news:%23b9Vlv5XHHA.2552@TK2MSFTNGP06.phx.gbl...
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
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
ou as tu trouvé cette web :
http://download.finance.yahoo.com/d/quotes.csv?s >
ta requête marche avec les tags ??
je crois que oui, alors j'aimerais savoir comment tu fait pour avoir la
liste des tags ?
c'est surtout les tags pour le per foward et l'enterprise value qui
m'intéressent
"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
ou as tu trouvé cette web :
http://download.finance.yahoo.com/d/quotes.csv?s >
ta requête marche avec les tags ??
je crois que oui, alors j'aimerais savoir comment tu fait pour avoir la
liste des tags ?
c'est surtout les tags pour le per foward et l'enterprise value qui
m'intéressent
"h2so4" <h2so4enlevezmoi@pandora.be> a écrit dans le message de news:
TuWLh.77288$ms5.536687@phobos.telenet-ops.be...
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" <alberto.fernandez-peon@hec.ca> wrote in message
news:ue3RgbpaHHA.208@TK2MSFTNGP05.phx.gbl...
la requête se fait seulement pour les symboles que tu as mit même si je
les
change
"h2so4" <h2so4enlevezmoi@pandora.be> a écrit dans le message de news:
Rd9Lh.73143$9_6.423049@phobos.telenet-ops.be...
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" <alberto.fernandez-peon@hec.ca> wrote in message
news:OnndOLRaHHA.5032@TK2MSFTNGP02.phx.gbl...
20-21 ligne, j'ai collé les 2 lignes et j'ai enlevé le _
"h2so4" <h2so4enlevezmoi@pandora.be> a écrit dans le message de news:
8gRKh.71432$Gi6.516204@phobos.telenet-ops.be...
sur quelle ligne te donne-t-il cette erreur ?
--
h2so4
play triogical at http://www.triogical.com
"Cassandra" <mac_____daddy@hotmail.com> wrote in message
news:OrcYhmFaHHA.4832@TK2MSFTNGP02.phx.gbl...
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" <h2so4enlevezmoi@pandora.be> a écrit dans le message de
news: TrVIh.59375$rH7.392208@phobos.telenet-ops.be...
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" <mac_____daddy@hotmail,com> wrote in message
news:%23b9Vlv5XHHA.2552@TK2MSFTNGP06.phx.gbl...
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
ou as tu trouvé cette web :
http://download.finance.yahoo.com/d/quotes.csv?s >
ta requête marche avec les tags ??
je crois que oui, alors j'aimerais savoir comment tu fait pour avoir la
liste des tags ?
c'est surtout les tags pour le per foward et l'enterprise value qui
m'intéressent
"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