Bonjour
tu peux utiliser cette fonction
Sub Macro1()
NomFichier = Cells(1, 1) 'ta cellule contenant le nom
CheminEnr = "chemin ou tu veux enregistrer"
'''''''''''''''''''''''
ChDir "chemin ou tu veux enregistrer" ''''''''''''''
''''''''''''''''''''''''''''''
ActiveWorkbook.SaveAs Filename:=CheminEnr & NomFichier, _
FileFormat:=xlExcel8, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
CheminEnr & NomFichier, Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
False
End Sub