Sub Cherche_Classeur()
'Cherche un classeur selon son nom (variable)
'ATTENTION => sensible à la casse
Dim fs As Object, oFiles As Object, feuille As Object, Mois$, pFld$
Set fs = CreateObject("Scripting.FileSystemObject")
'Mois = InputBox("Mois en cours?")
Mois = "15_05_14"
pFld = ThisWorkbook.Path & "\" '& Mois 'chemin de mon dossier
If fs.FolderExists(pFld) Then
Set oFiles = fs.GetFolder(pFld).Files
For Each feuille In oFiles
If feuille.Name Like "CL" & Mois & " v*.xlsx" Then
Workbooks.Open feuille
Exit For
End If
Next
End If
Set fs = Nothing
Set oFiles = Nothing
End Sub