Une URL "dynamique" comme source de données WEB ?

Bonjour,

Je cherche à automatiser la production de données dans une feuille excel.

Ces données proviennent d'un serveur web qui délivre, en fonction de paramètres passés dans l'URL, une plage de données spécifiques.

Je m'explique...

Vous pouvez tester par vous-même, voilà l'URL qui délivre les données :

dans cette URL, je demande d'afficher en format HTML les données (de mon installation solaire thermique) du 11 au 12 décembre (avec un intervalle de 600 secondes).

Jusque là, tout fonctionne bien, je peux créer la nouvelle connexion à cette source de données et exploiter le fichier facilement.

Maintenant, j'aimerais que certains de ces paramètres passés dans l'URL soient dynamiquement mis à jour... Typiquement, j'amerais créer une requête qui montre les différentes températures enregistrées pour le jour d'avant. (le 15 décembre je veux que ce soit les données du 14 retournées, etc...) et cela d'une manière dynamique.

Dans Excel, j'ai sans aucun soucis créé la formule qui me prépare cette URL... Mais maintenant, comment utiliser une formule comme "source" à prendre en compte lors du refresh de ma query... ?

Votre aide sera la bienvenue, là je sèche...

Merci d'avance

Salut le forum

Vite fait avec l'enregistreur de macro

Sub Requete()
Dim Stday As Integer, Stmonth As Integer, Styear As Integer
Dim Endday As Integer, Endmonth As Integer, Endyear As Integer
Dim Interval As Integer

Stday = 12: Stmonth = 12: Styear = 2011
Endday = 13: Endmonth = 12: Endyear = 2011
Interval = 1800

    Cells.Delete
    With ActiveSheet.QueryTables.Add(Connection:= _
        "URL;http://epfyffer.getmyip.com/dl2/download/download?" & _
        "start_date_day=" & Stday & _
        "&start_date_mon=" & Stmonth & _
        "&start_date_year=" & Styear & _
        "&end_date_day=" & Endday & _
        "&end_date_mon=" & Endmonth & _
        "&end_date_year=" & Endyear & _
        "&output_type=html-table&sieve_interval=" & Interval, Destination:=Range("B2"))
        .Name = ""
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .BackgroundQuery = True
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .WebSelectionType = xlAllTables
        .WebFormatting = xlWebFormattingNone
        .WebPreFormattedTextToColumns = True
        .WebConsecutiveDelimitersAsOne = True
        .WebSingleBlockTextImport = False
        .WebDisableDateRecognition = False
        .WebDisableRedirections = False
        .Refresh BackgroundQuery:=False
    End With
End Sub

Mytå