Rechercher le fichier le plus récent avec critère
Résolu
icecube
-
icecube -
icecube -
bonjour a tous,
j'ai besoin d'une fonction qui cherche dans un répertoire , le fichier le plus récent dans le nom commence par FP21_FIN_
pour vous aider j'ai cette macro qui recherche le dernier fichier mais je ne sais pas comment lui intégrer le critère du fichier qui commence par FP21_FIN_
je vous remrcie par avnce
j'ai besoin d'une fonction qui cherche dans un répertoire , le fichier le plus récent dans le nom commence par FP21_FIN_
pour vous aider j'ai cette macro qui recherche le dernier fichier mais je ne sais pas comment lui intégrer le critère du fichier qui commence par FP21_FIN_
je vous remrcie par avnce
Function FindLastFile(Path As String)
'cette fonction permet de chercher le fichier le plus récent dans le répertoire
Dim fName As String
Dim fDate As Date
Dim fso
Set fso = CreateObject("Scripting.FileSystemObject")
Dim folder
Set folder = fso.GetFolder(Path)
Dim Files
Set Files = folder.Files
Dim file
For Each file In Files
If file.DateCreated > fDate Then
fDate = file.DateCreated
fName = file.Name
End If
Debug.Print file.Name, file.DateCreated, "=>", fName, fDate
Next
Set Files = Nothing
Set folder = Nothing
Set fso = Nothing
FindLastFile = Path & "\" & fName
End Function
A voir également:
- Rechercher le fichier le plus récent avec critère
- Fichier bin - Guide
- Fichier epub - Guide
- Fichier rar - Guide
- Comment réduire la taille d'un fichier - Guide
- Fichier .dat - Guide
1 réponse
yg_be
Messages postés
23541
Date d'inscription
Statut
Contributeur
Dernière intervention
Ambassadeur
1 584
bonsoir, suggestion:
If file.DateCreated > fDate and left(file.name,9) = "FP21_FIN_" Then
tu vois la moi j veux qu"il récupére seulement le deuxieme car il a été créé a 20:19
?FindLastFile("C:\Users\Marseille\Desktop\OIG")
FP21_FIN_20180222_20185400.xlsx 22/02/2018 20:10:39 => 00:00:00
FP21_FIN_20180222_20203300.xlsx 22/02/2018 20:19:31 => 00:00:00
C:\Users\Marseille\Desktop\OIG\
For Each file In Files If file.DateCreated > fDate and left(file.name,9) = "FP21_FIN_" Then fDate = file.DateCreated fName = file.Name End If Next file Debug.Print "file.Name, file.DateCreated, =>", fName, fDateje te remercie beaucoup c'est tres gentil, tu viens de me sauver franchement c'est cool.
Bonne soiré a toi :)
?FindLastFile("C:\Users\Marseille\Desktop\OIG")
FP21_FIN_20180222_20185400.xlsx 22/02/2018 20:10:39 => 00:00:00
FP51_FIN_20180222_20203300.xlsx 22/02/2018 20:19:31 => 00:00:00
C:\Users\Marseille\Desktop\OIG\