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

Statistiques des forums

Discussions
311 712
Messages
2 081 802
Membres
101 819
dernier inscrit
lukumubarth