Bonjour,
J'ai une autre question svp!
J'ai écris ce code qui le permet de télécharger par le net les données bourse de yahoo, il fonctionne à 99% des cas, mais parfois il plante je suppose un problème de débit ou connexion internet.
il plante à la ligne :
.Refresh BackgroundQuery:=False
Je suis obligé de sortir d'excel en sauvant et re rentrer dans le fichier en espérant que ça ne va pas replanter!
Comment je pourrais faire avant de lancer une requète pour savoir si ça va être bon ?
La partie du code :
commande = "
https://query1.finance.yahoo.com/v7/finance/download/" & sCode & "?period1=" & JD & "&period2=" & JF & "&interval=1d&filter=history&frequency=1d"
With ActiveSheet.QueryTables.Add(Connection:="TEXT;" & commande & "", Destination:=Cells(xx, i))
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = False
.RefreshPeriod = 0
.TextFilePromptOnRefresh = False
.TextFilePlatform = 850
.TextFileStartRow = 1
.TextFileParseType = xlDelimited
.TextFileTextQualifier = xlTextQualifierDoubleQuote
.TextFileConsecutiveDelimiter = False
.TextFileTabDelimiter = False
.TextFileSemicolonDelimiter = False
.TextFileCommaDelimiter = True
.TextFileSpaceDelimiter = False
.TextFileColumnDataTypes = Array(5, 1, 1, 1, 1, 1, 1)
.TextFileTrailingMinusNumbers = False
.Refresh BackgroundQuery:=False
End With
Si vous pouviez me donner un coup de main ça serait sympa !
Merci de votre lecture