Problème d'enregistrement au format *.csv

Bonsoir le forum

En pièce jointe, je fournis un fichier au format *.xls contenant une macro me permettant de créer un nouveau document et de l'enregistrer au format *.csv à l'endroit où je veux.

Je n'arrive pas à sélectionner le format *csv

si quelqu'un pouvait jeter un oeil

D'avance merci pour l'aide et le temps passé

Hello,

Je l'ai bossé lundi dernier, ta de la chance.

Code :

Dim CHEMINFICHIER As String
Dim NOMFICHIER As String

On Error Resume Next

'6. Choix Sauvegarde fichier en .csv
NOMFICHIER = ActiveWorkbook.Path & "\" & "Prépa" & Format(Time, "Hhmm") & Format(Time, "Ss") & ".csv"
With Application.FileDialog(msoFileDialogSaveAs)
      .FilterIndex = 15 '15 = position csv
      .ButtonName = "Sauvegarder sous" 'Par défaut est "ouvrir"
      .InitialFileName = NOMFICHIER 'à l'ouverture le 1er chemin proposé est celui du fichier en cours
      .Title = "Sélectionner l'emplacement de sauvegarde" '      'Titre de la boite de dialogue
      .Show      'Ouverture du gestionnaire de choix de dossier
      If .SelectedItems.Count > 0 Then      'Si choix de fichier
        CHEMINFICHIER = .SelectedItems(1)  'La variable de choix dossier prend la valeur du choix dans la boite de dialogue
      Else
        CHEMINFICHIER = "" 'si pas de choix rien et sort de la sub
        Exit Sub
      End If
End With
'---------------------------------------------------------------------------------------------------------------------
'-------------------------------------------------------------------------
'6 Sauvegarde du fichier en csv
ActiveWorkbook.SaveAs Filename:=CHEMINFICHIER, _
        FileFormat:=xlCSV, CreateBackup:=False, local:=True
'-------------------------------------------------------------------------

Bonsoir le forum

Bonsoir waard et merci pour ton aide j'essaierai ça la semaine prochaine