Sub Macro1()
Dim date_cloture1 As String
Dim date_cloture2 As String
Dim nom_fichier As String
Dim date_annee As String
Dim index_lig As String
date_annee = InputBox("Quelle est l'année de clôture (format aaaa) ?")
date_cloture1 = InputBox("Quelle est la date de clôture (format aaaa.mm) ?")
date_cloture2 = InputBox("Quelle est la date de clôture (format jjmmaa) ?")
index_lig = "R9C11"
nom_fichier = "C:\Répertoire\clôture " & date_annee & "\" & date_cloture1 & "[Fichier1 " & date_cloture2 & ".xls]synthèse'!" & index_lig & ""
Range("G28").Value = "='" & nom_fichier
MsgBox ("Mise à jour effectuée")
End Sub