Variable date a chaque lancement de macro

[anthooooony]

Bonjour à tous cher exceldownloadiens

Je reçois tous les jours des fichiers sur un disque local.
J'ai un code vba qui est ci dessous qui permet de recuperer tous les fichiers pour recuperer les champs que je souhaite et les mettre les uns en dessous des autres.
Ca marche tres bien, seulement je reçois aujourdhui une 15ène de fichier par jour, et j'en suis à 800 aujourd'hui.
Est-il possible d'affecter une variable date, de type à chaque lancement de macro il identifie une date, et si je lance la macro demain il recupererait que les fichiers entre demain et aujourdhui seulement 14 au lieu de 786 hier, aujourdhui 800 demain 814 etc.. ca commence à être long alors dans 5-10 mois !

J'ai regardé sur notre ami google, "stock date à chaque lancement de macro" / "lancement de macro recuperer date" mais aucune info recuperable. Peut etre que je choisis mal les mots clefs..

merci d'avance de votre aide,

Anthooooony

Sub aaaaa()

Application.ScreenUpdating = False
 Application.DisplayAlerts = False
 Application.Calculation = xlCalculationManual
 sousRépertoire = "Fichiers Retard Relance"
 [A2].CurrentRegion.Offset(1, 0).Clear
 Set maitre = ActiveWorkbook
 Repertoire = ThisWorkbook.Path
 nf = Dir(Repertoire & "\" & sousRépertoire & "\*.xls") ' premier fichier
Do While nf <> ""
 Workbooks.Open Filename:=Repertoire & "\" & sousRépertoire & "\" & nf
With ThisWorkbook.Sheets("Feuil1")
    derlig = .Range("A65000").End(xlUp).Row + 1
   .Range("A" & derlig) = DateSerial((Mid(Cells(1, 1), 18, 4)), (Mid(Cells(1, 1), 15, 2)), (Mid(Cells(1, 1), 12, 2)))
   .Range("B" & derlig) = Left([D7], InStr(1, [D7], " ") - 1)
   .Range("C" & derlig) = LTrim(Split([B3] & " ")(0))
   .Range("D" & derlig) = Application.Sum(Range("j1").EntireColumn) / 2
End With

 ActiveWorkbook.Close False

nf = Dir ' fichier suivant


 Loop
 Application.Calculation = xlCalculationAutomatic
ActiveWorkbook.RefreshAll
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub