Ouvrir un fichier avec une partie du nom variable

Bonjour,
Voici mon problème, j'ai un fichier avec comme nom "2018-4-2_20-58-28_Titi_Rapport.xlsm" le début du nom change 2018-4-2_20-58-28 puisque c'est une date qui est générée automatiquement, je souhaiterai utiliser la partie

Citation:

---

_Titi_Rapport.xlsm

---

pour ouvrir le fichier, ci dessous le code qui fonctionne avec le nom du fichier complet. J'ai essayé de mettre

Citation:

---

*_Titi_Rapport.xlsm

---

mais j'ai erreur d'exécution, pouvez-vous m'aider ?

Code:

---

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

Sub mrv()     Dim Path_name As String Dim Complete_File_name As String Path_name = ThisWorkbook.Path & "\" Complete_File_name = Path_name Application.DisplayAlerts = False     ChDir Complete_File_name Workbooks.Open Filename:= _ Complete_File_name & "2018-4-2_20-58-28_Titi_Rapport.xlsm"   End Sub

---

Bonjour Pierre, bonjour le forum,

Pas sûr d'avoir bien compris... Peut-être comme ça :

Code:

---

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

Sub mrv() Dim CH As String Dim F As String   CH = ThisWorkbook.Path & "\" F = Dir(CH) Do While F <> "" If InStr(1, F, "Titi_Rapport.xlsm", vbTextCompare) <> 0 Then Workbooks.Open (CH & F) Exit Sub End If F = Dir Loop End Sub

---