Bonjour,
Si en A3, tu as 'cas d'étude:STR-2', le code ci-dessous enregistrera le fichier en STR-2.
Maintenant il faudra faire attention aux espaces!!
Public Sub Enreg_Fichier_1()
Dim NomFichier As String
NomFichier =Split(Range("A3"), ":")(1)
MsgBox NomFichier
ActiveWorkbook.SaveAs "D:\Mes documents\" & NomFichier
End Sub