Problem changement de date automatique dans une macro

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

Bonsoir

A voir

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

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