Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Microsoft 365 Problème avec < Refresh BackgroundQuery >

Coco_lac

XLDnaute Nouveau
Bonjour,
J'ai une question svp!
J'ai écris ce code qui me permet de télécharger par le internet 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 fonctionner ?
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
 

Hasco

XLDnaute Barbatruc
Repose en paix

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…