conditionner une action

A

albert

Guest
bonsoir à tous, bonsoir forum
je me casse le nez depuis un moment sur l'actualisation d'une conversion d'un fichier texte
(il faut peut-être mettre une condition, mais je ne sais quels évènements je dois syncroniser
dans mon message
http://www.excel-downloads.com/html/French/forum/messages/1_60786_60786.htm

les données téléchargées se mettent à jour toutes les minutes avec

.RefreshPeriod = 1

j'ai essayé ce soir sur le cours us, pour avoir des mise à jour exploitables

Sub US()
'
' US Macro
' Macro enregistrée le 12/12/2003 par AG
'

'
With ActiveSheet.QueryTables.Add(Connection:= _
"URL;http://finance.yahoo.com/d/quotes.csv?s=^IXIC&f=sl1d1t1c1ohgv&e=.csv", _
Destination:=Range("A1"))
.Name = "quotes.csv?s=^IXIC&f=sl1d1t1c1ohgv&e="
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 1
.WebSelectionType = xlAllTables
.WebFormatting = xlWebFormattingNone
.WebPreFormattedTextToColumns = True
.WebConsecutiveDelimitersAsOne = True
.WebSingleBlockTextImport = False
.WebDisableDateRecognition = False
.Refresh BackgroundQuery:=False
End With

End Sub

je fais une conversiondes données texte :

Sub convert()
'
' convert Macro
' Macro enregistrée le 12/12/2003 par AG
'

'
Range("A1").Select
Selection.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
Semicolon:=False, Comma:=True, Space:=False, Other:=False, FieldInfo _
:=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1), _
Array(7, 1), Array(8, 1), Array(9, 1))
Selection.QueryTable.Refresh BackgroundQuery:=False
End Sub

mais il n'y a rien à faire, la conversion ne peut être mise à jour que manuellement
(données-actualiser les données -et .RefreshPeriod = 1
n'ont pas d'effets sur la conversion)


quelqu'un à déjà abordé cette question ???

...et a trouvé une solution???

:)

merci d'avance

albert
 

Discussions similaires

Statistiques des forums

Discussions
312 970
Messages
2 094 044
Membres
105 926
dernier inscrit
Odyssea