Sub Sauvegarde_2()
On Error Resume Next ' s'il y a une erreur sur la prochaine ligne elle sera ignorée
With ActiveWorkbook
.SaveAs "Z:\PROCESS\LABO\Produits Finis\Etudes Process en Cours\" & Range("B2").Value & " " & Range("B3"), FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
End With
If Err Then ' si 'il y a eu une erreur
On Error GoTo 0 'on annule l'erreur
MsgBox "Merci de renseigner les cellules $B$2 et $B$3", 64, "Attention" 'on préviens l'utilisateur
End If
End Sub