Sub TempsCourse()
Dim A_Date As String
Dim M_Date As String
A_Date = Format(Now, "yyyy")
M_Date = Format(Now, "mmdd")
Dim pFld As String, f As String
pFld = "C:\Thibaut" & "\" & A_Date & "\" & M_Date & "\"
f = Dir(pFld)
Do Until f = ""
If f Like "Paris" Then
Workbooks.Open (f)
Else
End If
f = Dir()
Loop
End Sub