VBA, problème sauvegarde

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 !

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

---