MsgBox sur enregistrement

Benben à dit:

Bonjour,

Je souhaite afficher une MsgBox après que la personne ait enregistré ou non le fichier.

J'arrive à faire afficher une MsgBox pour dire que le fichier a bien été enregistré, mais je n'arrive pas à afficher une autre MsgBox dans le cas où la personne annule l'enregistrement.

La fin de mon code est :

PHP:

Application.Dialogs.Item(xlDialogSaveAs).Show arg1:=Filename
 
Fin = MsgBox("Votre fichier " & Filename & " a bien été sauvegardé.", vbInformation, "Création réussie")

Et je souhaiterai avoir cela en plus :

PHP:

Fin2 = MsgBox("Votre fichier " & Filename & " n'a pas été sauvegardé.", vbCritical, "Création interrompue")

Comment faire ?

Merci

Ben

Cliquez pour agrandir...

Application.Dialogs.Item(xlDialogSaveAs).Show arg1:=Filename
If Filename = False Then
MsgBox "Votre fichier " & Filename & " n'a pas été sauvegardé.", vbCritical, "Création interrompue"
Else
MsgBox "Votre fichier " & Filename & " a bien été sauvegardé.", vbInformation, "Création réussie"
End If