Choix de fichiers dans une macro

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:

---

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

Bonjour,

merci de baliser le code via l'icône # dédiée !

Sinon consulter l'aide VBA de la fonction Dir et son exemple …

_________________________________________________________________________________________________________

Je suis Paris, Charlie, Bruxelles, …

Je n'ai pas testé donc il pourrait y avoir du débugage à faire.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Sub test() Dim Fic As String Dim MemFic As String Dim VPath As String   MemFic = "" VPath = "C:\test\" Fic = Dir(VPath & "TOTO.T02.T01.*.txt") While Fic <> "" If Fic > MemFic Then MemFic = Fic Fic = Dir() Wend Workbooks.Open(VPath & MemFic) End Sub

---

https://msdn.microsoft.com/fr-fr/lib.../gg278779.aspx

Salut, voir l'aide en ligne sur Like ou Manipuler les chaînes de caractères en VB6 et VBA Excel.

P.-S. : Balise ton code

Merci Menhir,le code fonctionne parfaitement .