Macro pour enregistrer une feuille sous un nom précis

Bonjour le groupe

Étrange je n'arrive pas à appliquer votre macro pour ma feuille "bulletin"

mon chemin de destination est

C:\Users\sboulanger\Desktop\FMA

Merci d'avance

Bonjour

Essayez ceci :

Sub Archiver()
'Macro par Dan
Dim extension As String
Dim chemin As String, nomfichier As String
Dim style As Integer
Application.ScreenUpdating = False
ThisWorkbook.ActiveSheet.Copy
extension = ".xlsx"
chemin = "C:\Users\sboulanger\Desktop\FMA\"
nomfichier = ActiveSheet.Name & "_" & Format(Date, "yy-mm-dd") & extension
With ActiveWorkbook
    .ActiveSheet.DrawingObjects(1).Delete
    .SaveAs Filename:=chemin & nomfichier
    .Close
End With
End Sub

Votre fichier bulletin sera sauvegardé avec le nom Bulletin_Annee-mois-jour dans le répertoire demandé

Cordialement