VBA, problème sauvegarde

[pehaut]

Bonjour,

Je suis sur un petit projet VBA et j'utilise à un moment le SaveAs. Quand je teste, ça marche : je peux choisir l'emplacement, le fichier prend tout seul le bon format, mais si par malheur j'appuie sur annuler, le fichier s'enregistre quand même automatiquement sous le nom "FAUX".

Savez vous d'où vient cette bizarerie?

voici le code :

Code :

1
2
3
4
5
6
Dim fname As String
 
fname = Application.GetSaveAsFilename
fname = fname & ".xlsm"
 
ActiveWorkbook.SaveAs Filename:=fname, FileFormat:=xlOpenXMLWorkbookMacroEnabled

merci !

[DeTraX]

Bonjour,

fname contient la valeur retournée par GetSaveAsFilename.
Si l'utilisateur ne choisit aucun nom, la fonction renvoie Faux.

Adapte simplement ton code pour ne pas sauver si l'utilisateur choisir d'annuler la sauvegarde

Code :

1
2
3
4
5
6
7
8
 
Dim fname As String
 
fname = Application.GetSaveAsFilename
If fname <> False Then
    fname = fname & ".xlsm"
    ActiveWorkbook.SaveAs Filename:=fname, FileFormat:=xlOpenXMLWorkbookMacroEnabled
End If