problem changement de date automatique dans une macro

[nico60]

Bonjour a tous

J'ai une macro (dispo plus bas) et je voudrai que la date (en rouge dans la macro) soi modifier automatiquement par rapport a la valeur d'une cellule de ma feuille 1, en effet la date se trouvant dans l'url change chaque jour et je voudrai qu'elle change automatiquement.
Si quelqu'un peu me donner une solution ou me mettre sur la piste SVP.
J'espere que mon problem va vous inspirer.

merci d'avance

Voici la macro concerne:

Sub Macro1()
'
' Macro1 Macro
'

'
Range("N10").Select
With ActiveSheet.QueryTables.Add(Connection:= _
"URL;http://www.pmu.fr/turf/23012012/toutes-courses.html", Destination:=Range _
("$N$10"))
.Name = "toutes-courses_12"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = x0InsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.WebSelectionType = xlSpecifiedTables
.WebFormatting = xlWebFormattingNone
.WebTables = "2"
.WebPreFormattedTextToColumns = True
.WebConsecutiveDelimitersAsOne = True
.WebSingleBlockTextImport = False
.WebDisableDateRecognition = False
.WebDisableRedirections = False
.Refresh BackgroundQuery:=False
End With
ActiveWindow.SmallScroll Down:=-6
End Sub

[Banzai64]

Bonsoir

A voir

Code: Tout sélectionner

With ActiveSheet.QueryTables.Add(Connection:= _
"URL;http://www.pmu.fr/turf/" & Format(Date, "ddmmyyyy") & "/toutes-courses.html", Destination:=Range _
("$N$10"))
 

[nico60]

merci a toi

g vien d'essayer et sa semble fonctionner il c bien mis a la date du jour et dans le bon format je v voir sur plusieur jour m sa me semble pas mal du tout.

encore merci