Importation Automatique

Bonjour à tous,
Je veux importer automatiquement des fichiers Csv dans ACCESS avec un code VBA.
Les fichiers sont sont enregistrés dans un répertoire sous le format exemple: TACHES_GE_E0D441_D150331_T2055.CSV; quelque soit le fichier la partie TACHES_GE_E0D441 ne change pas, c'est la partie D150331 qui change(Date du 31/03/2015): c'est la date ou le ficher est enregistré dans le répertoire.
Chaque jour je dois importer de manière automatique le dernier fichier, c'est dire le fichier de la veille pour pouvoir automatiser mes tableaux de bord.
Pour aujourd'hui c'est:TACHES_GE_E0D441_D150409_....csv.(D150409=Date du 09/04/2015).

Mon code vba pour l'importation automatique:

Public Sub ImportationAutomatique()
Dim strFichier As String
'Demander confirmation
If MsgBox("Confirmez-vous l'importation de la table Tache?", vbQuestion + vbYesNo) = vbNo Then
Exit Sub
End If
'Initialisation
strFichier = "D:\TACHES_GE_I4D212_D150409_T2044.CSV"
'Verifier que le fichier existe bien
If Dir(strFichier) = "" Then
MsgBox "le fichier" & strFichier & " est introuvable!", vbExclamation
Exit Sub
End If
'Vider la Table temporaire si elle existe
'(elle est de toute façon crée automatiquement si elle n'existe pas)
On Error Resume Next
CurrentDb.Execute "DELETE*FROM[TOTO];"
'Importer le fichier csv
DoCmd.TransferText acImportDelim, "TableModel", "TOTO", strFichier, True
DoCmd.SetWarnings False
'Tansfert de données vers R1
DoCmd.OpenQuery "R1"
'Tansfert de données vers R2
DoCmd.OpenQuery "R2"
'Transfer des données vers R3
DoCmd.OpenQuery "R3"
'Terminé!
DoCmd.SetWarnings True
MsgBox " Importation terminée !", vbInformation
End Sub

Ma question c'est comment importer seulement de manière automatiquement le fichier de la veille avec ce code vba (strFichier = "D:\TACHES_GE_I4D212_D150331_T2044.CSV") ou avec un autre code qui me permettra de lire ce format date( D150409) qui change tous les jours?

Merci par avance pour vos aides.