Hi
I assume that you want a the number 1 after the french word for the day, as in your original post
If so, try this:
Sub file_open_todays()
Dim MyPath, MyFileName, MyDays, MyDay As String, MyDayNum As Long
MyDays = Array("dimanche", "lundi", "mardi", "mercredi", "jeudi", "vendredi", "samedi")
MyDayNum = Application.WorksheetFunction.Weekday(Date) - 1
MyDay = MyDays(MyDayNum)
MyPath = "C:\Mydocuments\" 'enter file directory here, including concluding "\"
MyFileName = "SignOn-Agents-UTOPIA - " & Format(Date, "yyyy-mm-dd") & " - " & MyDay & "1.xlsx"
MsgBox MyFileName
Workbooks.Open Filename:=MyPath & MyFileName
End Sub
Bookmarks