Bonjour

J'ai dans un répertoire des fichiers txt qui sont déposés chaque jour .
J'ai créé une macro pour ouvrir le fichier txt le plus récent .

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Sub test()
'
'ouverture du fichier le plus recent
 Dim Fic As Object, MemFic As String, VPath As String
 Dim Fso
 Dim SourceFolder
 ' Initialisation des variables
 MemFic = ""
 VPath = "C:\test\"
 ' Définit le dossier à traiter
 Set Fso = CreateObject("Scripting.FileSystemObject")
 Set SourceFolder = Fso.GetFolder(VPath)
 'Liste des fichiers du dossier Sélectionné
 For Each Fic In SourceFolder.Files
 ' Mémorise le dernier fichier selon l'ordre alphanumérique
 If Fic > MemFic Then MemFic = Fic
 Next Fic
 Workbooks.Open MemFic
 
End Sub
Elle fonctionne nickel .
Cependant dans ce répertoire en question, j'ai plusieurs fichiers texte avec des noms différents et je voudrais uniquement que la macro traite uniquement les fichiers commençant par TOTO.T02.T01.XXXXXXXXXX.txt
( XXXXXXXXXX étant sous la forme AAMMJJHHMM)
Toute aide serait la bien bienvenue.
Merci