Macro Incrémenter une URL

Bonjour,

J'ai réalisé une macro qui récupère un tableau sur une page web (avec une requete de donnée externe) que voici :

With ActiveSheet.QueryTables.Add(Connection:= _
        "URL;http://www.meteociel.fr/temps-reel/obs_villes.php?code2=7480&jour2=2&mois2=8&annee2=2010&envoyer=OK" _
        , Destination:=Range("A1"))
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .BackgroundQuery = True
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .WebSelectionType = xlSpecifiedTables
        .WebFormatting = xlWebFormattingNone
        .WebTables = "36"
        .WebPreFormattedTextToColumns = True
        .WebConsecutiveDelimitersAsOne = True
        .WebSingleBlockTextImport = False
        .WebDisableDateRecognition = False
        .WebDisableRedirections = False
        .Refresh BackgroundQuery:=False
    End With
    ActiveWindow.SmallScroll Down:=9

J'aimerais savoir comment faire pour répéter cette opération en changeant le jour dans l'url du style

"URL;http://www.meteociel.fr/temps-reel/obs_villes.php?code2=7480&jour2=3&mois2=8&annee2=2010&envoyer=OK"

"URL;http://www.meteociel.fr/temps-reel/obs_villes.php?code2=7480&jour2=4&mois2=8&annee2=2010&envoyer=OK"

en le faisant avec une boucle for i=1 o 31, je coince au niveau de la syntaxe, pour insérer le "i" dans l'url.

Est-ce possible?

Bonjour,

A essayer :

Sub test()
Dim i As Byte
For i = 1 To 31
With ActiveSheet.QueryTables.Add(Connection:= _
        "URL;http://www.meteociel.fr/temps-reel/obs_villes.php?code2=7480&jour2=" & i & "&mois2=8&annee2=2010&envoyer=OK" _
        , Destination:=Range("A1"))
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .BackgroundQuery = True
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .WebSelectionType = xlSpecifiedTables
        .WebFormatting = xlWebFormattingNone
        .WebTables = "36"
        .WebPreFormattedTextToColumns = True
        .WebConsecutiveDelimitersAsOne = True
        .WebSingleBlockTextImport = False
        .WebDisableDateRecognition = False
        .WebDisableRedirections = False
        .Refresh BackgroundQuery:=False
    End With
Next
End Sub

Fais un test mais, tu peux à mon avis désactiver les instructions qui à FALSE.

Reste à voir où toutes ces informations doivent être stockées sur ta feuille. Il faudra aussi le spécifier dans le code.

Amicalement

Bonsoir,

Sans avoir testé......

With ActiveSheet.QueryTables.Add(Connection:= _
        "URL;http://www.meteociel.fr/temps-reel/obs_villes.php?code2=7480&jour2=" & Day(Date) & "&mois2=" & Month(Date) & "&annee2=" & Year(Date) & "&envoyer=OK" _
        , Destination:=Range("A1"))

Bonne chance

merci marche nickel

Personnellement le code fonction pas