Bonjour,
Voici le code à mettre dans un module et lier l'image à ce code
Sub AfficherPlanning()
Dim sNom As String, sNomFic As String
sNom = ThisWorkbook.Sheets("Feuil2").Range("H3").Value
sNomFic = Replace(LCase(sNom), " ", "-") & ".xlsx"
Workbooks.Open ThisWorkbook.Path & "\" & sNomFic
End Sub
A+