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 .
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
Salut,
Essaie de remplacer ta ligne
If Fic > MemFic Then MemFic = Ficpar
If Fic > MemFic And Left(Fic.Name, 13) = "TOTO.T02.T01." Then MemFic = FicCordialement.