Microsoft 365 [RESOLU] Enregistrer avec un nouveau nom sans macro et sans le bouton

[Marboi]

Bonjour à tous, j'ai un souci pour enregistrer mon fichier avec un nom défini par une cellule, sans la macro et sans le bouton qui permet la sauvegarde. Si je mets dans la macro : NameNew = .Range("I1") & .xlsx, je ne peux pas ouvrir le fichier généré, je suis obligé de le laisser en xlsm. Du fait le bouton est toujours existant et la macro aussi. Auriez-vous une solution pour ce problème.
Si vous pensez aussi que la macro peut être simplifiée, n'hésitez surtout pas 😀.
Merci par avance, cordialement.

 

[fanch55]

Bonjour,
Le savecopyas duplique le classeur en cours sans en modifier le type .
Le code ci-dessous devrait répondre à votre demande :

Option Explicit

Const Path As String = "K:\Mes documents\Temp\"

Sub Sauvegarde()
Dim NameNew As String, WbName As String, Wb As Workbook

    With Sheets("Feuil1")
        If .[I1] = "" Then Exit Sub
        WbName = ThisWorkbook.FullName ' nom du classeur en cours
        Application.DisplayAlerts = False
        NameNew = .[I1] & ".xlsx"
    End With
    ThisWorkbook.SaveAs Path & NameNew, xlWorkbookDefault
    ActiveSheet.[Button 2].Delete
    
    Set Wb = Workbooks.Open(WbName)
    With Wb.Sheets("Feuil1")
        .Range("B8:F32").ClearContents
        .Range("I3:I4").ClearContents
        .Range("I8:I32").ClearContents
        .Range("I3").Select
        .Parent.Save
        .Parent.Close
    End With
    
    ThisWorkbook.Save
Application.Quit

End Sub

 

[Marboi]

Bonjour fanch55, merci beaucoup, cela correspond exactement à ce que je cherchai. J'ai essayé plusieurs formules VBA sans succès. J'ai encore pas mal de progrès à faire ! merci beaucoup, bien à vous et bonne soirée.