Importation Auto Fichier TXT plus récent

Bonjour,

Tous les jours je reçois un fichier TXT que j'importe sur excel.

Sub lire()

 Fichier = Application.GetOpenFilename("Fichiers txt, *.txt")
    If Fichier = False Then Exit Sub

    N = FreeFile
    Open Fichier For Input As #N

    i = 0
    Do While Not EOF(1)
    Line Input #N, Contenu
    i = i + 1

    Table = Split(Contenu, ";")
     For j = 0 To UBound(Table)
           Cells(i, j + 1).Value = "'" & Replace(Table(j), """", "")
        Next j

  Loop

Avec cette fonction je peux aller choisir mon fichier dans mes docs mais j'aimerai que ma macro n'est qu'a juste selectionner le txt ayant la date la plus récente, le fichier s'ecrit sous cette forme XXX201606011100, c'est a dire le 1er juin 2016 à 11h.

Comment faire pour avoir un critère d'age ?

J'ai tenté avec ca :

 Dim oldR As String
  Dim R$, S$, chemin$
  Dim MaDate As String

        chemin = "\\Winsab\diffusion\Batch\B0UG\GRECCO\Encaissement\Telereglement\ano\"
        S = chemin
        R = Dir(chemin & "\ANOMALIE_TELEREG_D*.TXT")
          While R <> ""
 If oldR < R Then oldR = R
    R = Dir()
    Wend

Mais ca n'a pas trop marché, si quelqu'un a des idées