Sub TaMacro()
Dim Chemin As String, Fichier As String
Range("W2").FormulaR1C1 = "=R[14]C[-15]" '?
Range("W3").FormulaR1C1 = "=R[12]C[-15]" '?
Range("W4").FormulaR1C1 = "=RC[-20]" '?
Chemin = "D:\Travail\Logist\"
Fichier = Range("W2") & "-" & Range("W3") & " Stock-" & Range("W4") & ".xls"
Workbooks.Open Chemin & Fichier
End Sub