Bonjour,

j'ai ce petit code qui fonctionne très bien pour trouver un fichier du style "2024-11-01-nom.xlsx"
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
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
Je cherche à l'adapter pour trouver un fichier du style "nom_2024-11-01.xlsx"

Merci beaucoup pour votre aide.