Sub cmdEnregistrer_Click()
Dim strChemin As String
Dim strNomFic As String
' Si le nom du fichier n'est pas saisi, message alerte et on ne fait rien
strNomFic = Range("E17").Value
strChemin = Range("E16").Value
[COLOR="Blue"] If strNomFic = "" Or strChemin = "" Then
MsgBox "Le répertoire et le nom du fichier doivent être saisis.", vbCritical, "Enregistrement impossible"
Exit Sub
End If[/COLOR]
' Enregistrement
ActiveSheet.Copy
ActiveWorkbook.SaveAs strChemin & "\" & strNomFic
End Sub