Private Sub Workbook_Open()
Dim Ce_Jour As Date
Dim Nom_Fic As String
'ici adapter le nom du fichier à ouvrir
Nom_Fic = "C:\test.xls"
Ce_Jour = Date
'ici adapter la cellule contenant la date
If Sheets("Feuil1").Range("A1").Value = Ce_Jour Then
Workbooks.Open (Nom_Fic)
End If
End Sub