Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
' Sauvegarde dans le bon repertoire avec le bon nom de fichier
sRep = ThisWorkbook.Path
'sRep = "https://teamplace.volvo.com/sites/parts-SPI/Back office docline/ARGUS non conformities cases"
sName = Range("B4") & ".xlsm"
If Feuil1.CheckBox1.Value = True Then sRep = sRep & "/03 - Non conformités non avérées/"
If Feuil1.CheckBox2.Value = True Then
If Range("G5") <> "" Then
sRep = sRep = sRep & "/02 - Non conformités réelles corrigées/"
Else
sRep = sRep & "/01 - Non conformités réelles non corrigées/"
End If
End If
Application.Dialogs(xlDialogSaveAs).Show sRep & sName
End Sub