XL 2013 Fichier de sauvegarde sans macro

[anass1]

Bonjour,

J'ai utilisé ce code pour enregistrer une copie de sauvegarde;

Sub CS()
 Dim DN As String
    Application.DisplayAlerts = False

        With ThisWorkbook
            On Error Resume Next
                DN = ThisWorkbook.Path & "\sauvegarde\"
                MkDir DN
            On Error GoTo 0
            .SaveCopyAs Filename:=DN & .Name
        End With
    Application.DisplayAlerts = True

    Application.OnTime Now + TimeValue("00:00:15"), "CS"
End Sub

SVP, Je veux enregistrer la copie de sauvegarde avec un format "xlsx" ( sans macro).
Merci

 

[Phil69970]

Bonjour Anass, le forum

La réponse a ta question se trouve ici :

Sauvegarder sous un fichier Excel au fiormat sans macros

Bonjour le forum! J'ai un petit problème: Dans un classeur Excel, j'ai un bouton qui permet à un utilisateur de sauvegarder son fichier au format .xlsx (sans macros) mais une fois cette sauvegarde réalisée, je veux qu'on soit de nouveau sur le fichier initial. Voici le code que j'avais...

www.excel-downloads.com

@Phil69970

 

[anass1]

Bonjour Phil69970,
Merci pour votre attention
J'ai déjà vu ce sujet;
Je voulais faire cela sans ouvrir et fermer le fichier, Parce que dans mon cas, le fichier original disparaît aussi.