Discussion :

[holly8004]

Bonjour,
Je souhaitais faire une sauvegarde d'un classeur dans un répertoire "SAUVEGARDE" dès lors que quelqu'un y apportait une modification.
Je me suis dit que le plus simple était peut-être une macro de type : "Private Sub Workbook_afterSave" ainsi dès qu'une personne souhaite sauvegarder le classeur, cela fera une sauvegarde.
J'ai essayé le code ci-dessous mais cela fait planter Excel et je ne sais pas pourquoi.
Je souhaite qu'il fasse l'enregistrement du classeur en conservant seulement un exemplaire du fichier par jour s'il y a eu plusieurs modifications dans la journée. Pour cela j'avais mis un display alert = false.
Je l'ai enlevé au cas où que ce soit cela qui plante mais ce n'est pas le cas.

Pourriez-vous svp m'aider ?

Private Sub Workbook_afterSave(ByVal Success As Boolean)
ActiveWorkbook.SaveAs "C:\Users\xxx\ xxx\Archive\SUIVI-" & Format(Date, "ddmmyyyy") & ".xls"
ThisWorkbook.activate
End Sub

[Nain porte koi]

Hello

attention, quand vous sauvegardez un classeur sous un nouveau nom vous ne travaillez plus le classeur original mais sa copie.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Private Sub Workbook_afterSave(ByVal Success As Boolean)
    
    Dim Nom_Complet As String
    Nom_Complet = ActiveWorkbook.FullName
    
    ActiveWorkbook.SaveAs "C:\Users\xxx\ xxx\Archive\SUIVI-" & Format(Date, "ddmmyyyy") & ".xlsx"
    ActiveWorkbook.Close
    
    Workbooks.Open Nom_Complet
    
End Sub

Attention aussi à l'extension que vous donnez, normalement et depuis longtemps c'est .xlsX.

[Philippe Tulliez]

Bonjour,
Il existe la méthode SaveCopyAs pour enregistrer une copie du classeur sans modifier le classeur ouvert en mémoire.

[Nain porte koi]

Oups, merci Philippe

[holly8004]

Bonjour,
Merci beaucoup pour vos retours.
Je ne comprends pas ce qui "buggait" mais ça marche parfaitement avec votre code et "SaveCopy as"!