Private Sub cmd_Enregistrement_OF_Click()
If Range("J5") <> "" Then
'a vous de mettre le chemin correct
chemin = "Z:\CONTROLE\MSP_SPC\pilotage tableaux excel V2\MESSIER\A35534\"
'sauvegarde en xlsm
ActiveWorkbook.SaveAs Filename:=chemin & Range("I5") & Range("J5") & ".xlsm", FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
MsgBox "fiche sauvegargée et archivée !"
Windows("CNOMO.xlsx").Activate
ActiveWorkbook.Close True
Else
MsgBox "Attention: il faut un numéro d'OF"
End If
End Sub