Bonjour,
ça pourrait ressembler à :
1 2 3 4 5 6 7 8 9 10
| Option Explicit
Public Function TrouveFichier(UnDossier As String, UnSuffixe As String, Optional AncienneteMax As Long = 10) As String
Dim I As Long
Dim UnFichier As String
While I < AncienneteMax And UnFichier = ""
UnFichier = Dir(UnDossier & Format(Date - I, "yyyy-mm-dd-") & UnSuffixe)
I = I + 1
Wend
TrouveFichier = UnFichier
End Function |
Qui va s'appeler par un truc comme
toto = TrouveFichier("C:\TMP\","test1.txt")
Si on trouve un fichier en remontant jusqu'à AncienneteMax, on récupère son nom, et "" si non trouvé.
Partager