Sub ouvrirFichier()
Dim chemin As String
chemin = Range("C11") 'récupère le chemin inscrit dans C11
Workbooks.Open Filename:="C:\Users\atuy\Downloads\Extraction.xlsx" 'ouvre le fichier
ActiveWorkbook.Sheets("Feuil1").Range("E12") = chemin 'activeworkbook = celui qui vient d'etre ouvert: on y colle le chemin en E12
End Sub