Long temps de rafraichissement... à la première exécution de la session

Question

Bonjour à toutes et tous, Je travaille sur un fichier Excel qui permet d'extraire automatiquement des données d'une API et de les préparer sous forme d'un tableau unique. J'utilise notamment pour ça une table principale contenant mes éléments principaux et deux autres tables qui contiennent des informations additionnelles que je récupère par jointure. L'outil fonctionne bien aujourd'hui. Toutefois, malgré plein d'essais différents, je reste bloqué sur un point. Lorsque je réalise l'extraction des données, le temps d’exécution est à chaque fois plus long quand c'est la première fois depuis l'ouverture du fichier Excel. Sur la même session les fois suivantes, quand bien même je change radicalement les paramètres de mon extraction à différentes reprises, le temps est réduit de façon visible. De ce que j'ai pu voir en mettant en place une collecte des temps d'exécution pour les principales étapes de mon extraction (feuille "Metadata"), il semble que mon outil n'apprécie pas que je rafraichisse plus d'une requête dans une procédure (à la première exécution, toujours). Sur ce point, j'utilise pourtant une procédure appelée Refresh_Data_Connections pour rafraichir une à une les requêtes à partir de leurs numéros passées en paramètre (en désactivant puis en réactivant la propriété BackgroundQuery pour chacune). Est-ce que quelqu'un a déjà rencontré ce souci et/ou a une idée de ce qui peut se passer et de comment le corriger ? Bonne journée PS : Je précise que mes données principales sont extraites de l'API au format CSV. Les deux autres tables, contenant bien moins de données en règle générale, sont récupérées en JSON...

Steelson · Accepted Answer

J'ai malheureusement des plantages avec query

Ce que je peux proposer, c'est ceci

2api-atmo-aura-data.xlsm (26.53 Ko)

Sub lire()

Dim ScriptEngine As Object, data As Object
    Set ScriptEngine = CreateObject("ScriptControl")
    With ScriptEngine
        .Language = "JScript"
        .AddCode "function N(jsonObj){return jsonObj.length;} "
        .AddCode "Object.prototype.element=function( i ) { return this[i] } ; "
    End With
    URL = [www]
    With CreateObject("MSXML2.XMLHTTP")
        .Open "GET", URL, False
        .send
        Set data = ScriptEngine.Eval("(" + CStr(.responsetext) + ")")
    End With

    Sheets("lecture").Select
    Range("A1").CurrentRegion.Offset(1, 0).ClearContents

    On Error Resume Next ' absence d'un élément
    For i = 0 To ScriptEngine.Run("N", data.data) - 1
        With data.data.element(i)
            For j = 1 To Cells(1, Columns.Count).End(xlToLeft).Column
                Cells(i + 2, j) = .element(Cells(1, j).Value)
            Next
        End With
    Next

End Sub

Après, je n'ai pas compris s'il y avait d'autres urls à explorer !?

Steelson · Answer

Je précise que je préfère souvent utiliser des méthodes "traditionnelles" pour interroger les sites. J'ai souvent mesuré que PowerQuery qui doit "digérer" les informations du site met plus de temps que le traitement direct du code source, soit en DOM, soit en string. Si en effet tu interroges 1142 sites ... j'imagine (et ce serait curieux qu'excel ne plante pas). As-tu des url pour effectuer des tests ? faut-il avoir les jetons pour les interroger ...

Steelson · Answer

Et moi c'est l'inverse ! bonne continuation .....