Bonjour à tous,

J'ai un fichier Excel avec 4 feuilles et une macro qui me permet d'exporter uniquement la première feuille.
Cette feuille s'enregistre donc par défaut en fichier .xlsx

Seulement, j'ai besoin que, si besoin, on puisse choisir au moment de l'enregistrement, si on veut l'exporter en fichier Excel (.xlsx) ou en fichier .csv

Est-ce possible ?

Voici le code de ma macro :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Dim Sh1 As Worksheet
Set Sh1 = ThisWorkbook.Worksheets(1)
 
Titre = "Enregistrer le fichier sous"
Chemin = Application.GetSaveAsFilename(FichierFinal, Filtre, , Titre)
 
If Chemin = False Then
     Exit Sub
Else
     Sh1.Copy
     If Chemin <> "" Then
          ActiveWorkbook.SaveAs Filename:=Chemin
     Else
          MsgBox "Fichier non enregistré"
     End If
End If
Merci d'avance !