Private Sub Workbook_Open()
Dim chemin$, fichier$, feuille$, formule$
chemin = Me.Path & "\" 'à adapter
fichier = Dir(chemin & "Rapport 2 " & Format(Date, "dd.mm.yyyy") & ".xlsx") 'à adapter
feuille = "Feuil1" 'nom de la feuille source à adapter
If fichier = "" Then MsgBox "Mettez à jour la date du fichier source...": Exit Sub
formule = "'" & chemin & "[" & fichier & "]" & feuille
With Feuil1 'CodeName à adapter
.[C5] = ExecuteExcel4Macro(formule & "'!R5C3") 'C5 => R5C3 en notation R1C1
End With
Me.Saved = True 'évite l'invite à la fermeture si aucune modification
End Sub