Sub B_Enregistrer_Commande()
Dim path As String

NWK = Range("C8").Value & "_" & Range("A8").Value & ".xlsm"
path = Application.ActiveWorkbook.path & ""
If Range("A8").Value = "" Then
   Range("A8").Value = Format(Date, "dd-mm-yyyy")
End If
If Range("C8").Value = "" Then
     MsgBox ("ATTENTION, vous n'avez pas tape un Prenom du client !")
     Range("C8").selecte
      ActiveCell.FormulaR1C1 = ""
End If
If Range("C8").Value <> "" And Range("A8").Value <> "" And ThisWorkbook.Name = NWK Then
ActiveWorkbook.Save
ElseIf Range("C8").Value <> "" And Range("A8").Value <> "" And ThisWorkbook.Name <> NWK Then
ChDir path
ActiveWorkbook.SaveAs path & NWK, FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
 MsgBox ("La Commande a ete sauve !")
End If
    End Sub