Sauvegarde fichier

Bonjour,

je cherche à optimiser le temps d'enregistrement d'une sauvegarde datée réalisée à partir d'une macro lancée du fichier source.

J'utilise l'instruction "SaveAs" comme suit,

Sub SaveInArchives()
'
    'On Error Resume Next
    Application.DisplayAlerts = False
    Application.EnableEvents = False
    Call InitVar                            ' Initialise valeurs des variables pour archivage
    ' Vérifie si répertoire d'archives existe, si non, le crée
    VérifRep (Strpath)                      ' Vérifie existence répertoire Archives, si non le crée
    ' Enregistre copie datée en archives
    ActiveWorkbook.SaveAs Filename:=Strpath & NomFichier & " " & User & " " & FormatDateTime(Date, vbLongDate) & " " & Format(Time, "hh-mm") & ".xlsm"
    ' Enregistre copie dans répertoire de travail 
    ActiveWorkbook.SaveAs Filename:=StrPathS & "" & NomFichier
    Application.DisplayAlerts = True
    Application.EnableEvents = True
End Sub

Lorsque cette macro est lancée, une copie de sauvegarde est réalisée dans le répertoire StrPath , mais Le fichier actif devient alors le fichier de la copie de sauvegarde.

Pour revenir au répertoire de travail, je relance une sauvegarde avec nom répertoire et nom fichier d'origine.

Cette méthode fonctionne mais entraine la réouverture du fichier avec réinitialisation.

Est-il possible de réaliser cette opération de sauvegarde et de revenir au fichier source sans avoir à réaliser la seconde opération de sauvegarde?

Merci pour votre aide

Cordialement,

JMV

Bonjour JMV ,

Allez voir du coté de SaveCopyAs (explication ICI).

Bonjour,

merci pour la réponse qui répond exactement à ce que je recherche.

J'obtiens la réalisation de la copie de sauvegarde datée sans modifier le nom du classeur actif. C'est beaucoup plus rapide.

Cdt

JM