Workbook.open "test " & MonthName(Month(Date)) & ".xls"
Bonjour
J'ai relu ton post c'est des semaines ou des mois?
Si le fichier s'appelle: "Test" & * Then Workbook.open
Set fs = CreateObject("Scripting.FileSystemObject")
If fs.FileExists("test " & MonthName(Month(Date)) & ".xls") Then
Workbook.Open Filename:="test " & MonthName(Month(Date)) & ".xls"
End If
A+ François