Ecraser sauvegarde précédente

[Rubis57]

Bonjour tout le monde,

dans mon fichier ci-joint, j’aimerai savoir ce qu’il faut rajouter ou modifier dans le code du module, afin qu’il m’écrase la sauvegarde précédente lorsque je clique sur le bouton sauvegarder.

Merci d’avance pour votre aide.

Cdt Rubis57

essai save.xlsm (15,5 Ko)

[Rubis57]

Re,

désolé, mais je viens de retrouver dans mes archives le code que Mimimathy m’avait mis en place.

Merci Mimi

Bonne journée à vous tous

Cdt Rubis57

[Eugcolle01]

Bonjour je serai intéressé par cette formule serait-il possible de la recevoir ou d’avoir un fichier Excel exemple
Je vous remercie d’avance

[Rubis57]

Bonsoir Eugcolle01,

voici le code pour ce traitement. A placer dans module simple:

Sub sauvegarde()
Dim Chemin As String, Fichier As String, AncienPathName As String
AncienPathName = ThisWorkbook.Path & «  » & ThisWorkbook.Name
Chemin = « C:\Users\langm\Documents\temp »

'Ajoute la date du jour et l’heure dans le nom du fichier

Fichier = « SAUVEGARDE_ » & Format(Date, « dd_mm_yyyy ») & « _ » & Format(Time, « hh_mm_ss ») & « .xlsm »

Application.DisplayAlerts = False

ActiveWorkbook.SaveAs Filename:=Chemin & Fichier, FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=True

Application.DisplayAlerts = True
Kill AncienPathName
End Sub

A placer dans ThisWorkbook

Private Sub Workbook_close()
sauvegarde
End Sub

En espérant t’avoir aidé.

Cdt Rubis57