Exporter onglet en fichier Excel

Bonjour à tous,

J'aimerais créer une macro qui créé un fichier excel pour un onglet mais pas une boucle pour tous les onglets, je souhaite sur chaque onglet un bouton d'export

J'ai testé ce code mais il copie tous les onglets d'un coup et en plus j'ai un message d'erreur "Vérificateur de compatibilité"

Sub copieOngletsfinal()

Dim ceFichier As Workbook

Dim fSheet As Worksheet

Set ceFichier = ActiveWorkbook

Dim nouveauFichier As Workbook

For Each fSheet In ceFichier.Worksheets

Workbooks.Add

Set nouveauFichier = ActiveWorkbook

fSheet.Copy Before:=nouveauFichier.Sheets(1)

DoEvents

nouveauFichier.SaveAs Filename:="C:\Users\Léa\Documents\BSB 4A\DSc\VBA\Projets à rendre\VBAProject\Files" & "\" & fSheet.Name, FileFormat:=xlNormal

DoEvents

nouveauFichier.Close

Next

ceFichier.Activate

End Sub

Auriez vous une idée pour m'aider ?

Je vous remercie!

Bonne soirée!

Bonjour,

à tester,

Sub nouveauFichier()
ActiveSheet.Copy
With ActiveWorkbook
.SaveAs Filename:="C:\Users\Léa\Documents\BSB 4A\DSc\VBA\Projets à rendre\VBAProject\Files" & "\" & ActiveSheet.Name, FileFormat:=xlNormal
.Close
End With
End Sub

Super merci beaucoup c'est exactement ça !

Merci !