bonjour a tous
J'ai un petit souci avec la fonction GetSaveAsFilename

j'ai une erreur lorsque je donne le nom du fichier et que je clique sur enregister.
et je ne vois pas pourquoi mon code et celui ci :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
 Dim NomFichier As String
 
NomFichier = Application.GetSaveAsFilename("aze.cvs", fileFilter:="Fichier (*.csv), *.csv")
 
If NomFichier <> False Then
        ActiveWorkbook.SaveAs NomFichier
        ActiveWorkbook.Close
    Else
        Exit Sub
End If
si quelqu'un peux m'aider.

Merci d'avance