Enregistrer sous + Nom Onglet de la feuille

Bonjour à tous,

Quelqu'un aurait l'amabilité de me communiquer le code VBA à affecter à un

bouton afin d'ouvrir la fenêtre enregistrer-sous et que le nom de l'onglet feuille

soit indiqué sous nom de fichier et non le nom du classeur.

Il va de soit si cela est possible.

Je vous remercie d'ores et dejà de votre aide et vous souhaite une excellente fin de journée

Bonjour Tiago

Pour faire ce que vous voulez. La fonction d'origine ne le permet pas.

Par contre créer un formulaire qui vous permettra de sélectionner un dossier et voir ensuite les couples (noms de classeurs, noms de feuilles) dans une liste c'est possible en VBA. Attention les classeurs peuvent contenir de nombreuses feuilles

Peut-être voulez-vous filtrer sur les classeurs qui contiennent un nom de feuille particulière?

Je ne sais pas ce que vous voulez mais soyez un peu plus clair dans l'interface homme-machine, la fonctionnalité de base d'excel ne permet pas ce que vous voulez faire?

Bonjour à tous

Vois si cet exemple correspond à ton besoin.

Bonne fin de journée.

Bonjour,
Une autre proposition sans affichage bôite de dialogue !?
Cdlt.

Option Explicit

Public Sub NewWorkbook()
Dim wb As Workbook, ws As Worksheet
Dim Filename As String, Folderpath As String

    With Application
        .DisplayAlerts = False
        .ScreenUpdating = False
    End With

    Set ws = ActiveSheet

    Folderpath = ThisWorkbook.Path & Application.PathSeparator
    Filename = ws.Name & ".xlsm"

    Set wb = Workbooks.Add(xlWBATWorksheet)
    wb.SaveAs Filename:=Folderpath & Filename, FileFormat:=xlOpenXMLWorkbookMacroEnabled '52

    ws.Copy Before:=wb.Worksheets(1)

    With wb
        .Worksheets(1).Delete
        .Close SaveChanges:=True
    End With

End Sub

Bonjour à tous,

En tout premier lieu je tiens à m'excuser de ma réponse plus que tardive.

Pour en revenir à mon sujet je viens de tester à l'instant le fichier transmis par Patty5046

et cela fonctionne parfaitement et c'est exactement ce que je souhaitais.

Je vous remercie tous du temps que vous avez accordé à résoudre mon problème

e vous souhaite d'ores et déjà une excellente fin de journée.

Bonjour à tous,

Merci Tiago de nous avoir tenus au courant.

Bonne fête de fin d'année aussi à toi et à tous.