gestion erreur dans fenêtre 'enregistrer sous'

[donpopo]

Bonjour le forum,

Je cherche désespérément à résoudre un problème d'utilisation de la fenêtre 'Enregistrer sous...'.

J'ai comme procédure:

Sub enregistrer()
Dim NomClasseur As String
NomClasseur = Application.GetSaveAsFilename(filefilter:="Fichier Excel(*.xlsm),*.xslm")
ThisWorkbook.SaveAs NomClasseur
End Sub

Cela fonctionne bien si j'inscris un nom de fichier et le sauve.

Cependant, lorsque je clique le bouton 'Annuler', le programme me crée un fichier sauvegarde 'Faux.xslm'. Si je recommence après, le programme me dit qu'il existe un fichier 'Faux.xslm'. Si je clique sur 'Annuler', la procédure se bloque.

Quelqu'un pourrait-il m'aider à résoudre ce problème?

Merci d'avance,


donpopo

 

[Softmama]

Re : gestion erreur dans fenêtre 'enregistrer sous'

Bjour donpopo,

à tester, mais à priori, comme ceci :

Sub enregistrer()
Dim NomClasseur As String
NomClasseur = Application.GetSaveAsFilename(filefilter:="Fichier Excel(*.xlsm),*.xslm")
if NomClasseur <> False then ThisWorkbook.SaveAs NomClasseur
End Sub

 

[donpopo]

Re : gestion erreur dans fenêtre 'enregistrer sous'

Merci Softmama,

cela fonctionne à merveille.

Donpopo