bonjour à tous

J'aiun bout de code qui me permet de sauvegarder une page d'un fichier excel sous un format csv.

Mais le fichier est bien enregistrer avec une extension csv parcontre le format du fichier est apparemment rester sous un format xls et non csv.

Quelque chose doit manquer dans mon code.

Voici le code:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
Dim NomFichier As Variant
 
NomFichier = Application.GetSaveAsFilename("aze.csv", fileFilter:="Fichier (*.csv), *.csv")
 
If NomFichier <> False Then
        ActiveWorkbook.SaveAs NomFichier
Si quelqu'un peut m'aider.

Merci d'avance