Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
If SaveAsUI Then
Nom = Sheets("Demande").Range("m2")
Dem = Sheets("Demande").Range("k3")
ARangerds = Sheets("Demande").Range("g9")
Ad = "P:\Tests\Tests laboratoire\Volants-Balles\"
Chemin = Ad & ARangerds & "\"
If Sheets("Demande").Range("k2") <> "" And Sheets("Demande").Range("g9") <> "" Then
a = MsgBox("Bonjour " & Dem & ", la demande de test va être enregistrée dans le dossier suivant " & Chemin & Nom & ". Merci de compléter le 'n° de demande' et la partie 'Commentaires'", vbOKCancel)
If a = vbCancel Then
Cancel = True
Else
ActiveWorkbook.SaveAs Filename:=Chemin & Nom
End If
Else
a = MsgBox("Veuillez svp renseigner le demandeur et le dossier d'enregistrement", vbOKOnly)
If a = vbOK Then Cancel = True
End If
End If
End Sub