Microsoft 365 Problème avec < Refresh BackgroundQuery >

[Coco_lac]

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]

Bonjour,

Avec 365 vous pouvez utiliser Power Query avec une requête paramétrée.
Vous trouverez ici un exemple (en anglais) :

Power Query Functions - Fetch web data - Hat Full of Data

Often web based data is split across multiple pages. This post describes how to use a function to fetch web data from multiple pages by using parameters.

hatfullofdata.blog

Cordialement

 

[Coco_lac]

Bonjour et merci pour votre aide, je vais regarder cette façon de faire !
Bon dimanche