Bonjour chris6999, le forum
ton code un peu modifié
[Edit] j'ai modifié, j'avais laissé passer le name à la place de nom
Private Sub CommandButton1_Click()
Dim nom As String, Chemin As String
'mon chemin
Chemin = "D:\Bureau\SUIVI FMM\"
Nom = "FICHIER " & ActiveSheet.Range("D2").Value
extension = ".xlsm"
ThisWorkbook.Sheets(Array("FICHIER ", "DOUBLONS")).Copy
ActiveWorkbook.SaveAs Filename:=Chemin & Nom & extension, FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
ActiveWorkbook.Close True
End Sub