nom d'enregistrement tapant dans cellule

Bonjour,
Une macro a été développée afin que je puisse enregistrer mon classeur suivant une donnée d'une cellule du classeur même.
La macro suivante le fait, seulement lorsque je ferme "violemment" le document en cliquant sur "x". Si je passe par Fichier/Enregistrer sous, ça ne marche pas il m'indique tjrs "classeur1".
La macro est la suivante :

Private Sub Workbook_BeforeClose(Cancel As Boolean)

Application.Dialogs(xlDialogSaveAs).Show CStr(ThisWorkbook.ActiveSheet.Range("qualite").Value)

End Sub


Merci de votre aide. Peut-être faut-il ajouter quelque chose à la macro ou bien peut-êre existe-t-il une autre manière d'y arriver ?!!?

Merci de votre aide.
@+
Chrislio