Découverte astuce (pour moi , peut être pas vous)

[gosselien]

Hello,

un truc que je viens de découvrir sous XL2010 et 2016 donc fatalement en 2013:
quand on fait un ficher / ouvrir, on a la possibilité de cliquer droit et "ouvrir une copie" , ce qui permet de garder son originel en bon état en cas de perte ou d grosse bêtise

P.

 

[MJ13]

Bonjour Gosselien

Merci pour l'astuce .

Mais, bon, après il faut pas se mélanger les pinceaux avec les différentes versions.

Perso, en général, si je tiens vraiment à une version je sauve une copie du fichier dans un dossier de sauvegarde avec la date et l'heure.

Exemple de code:

Sub Sauve_Programme_Avec_Date_Heure()
CheminSauve = "C:\Sauvegarde"
NomFichier = Mid(ThisWorkbook.Name, 1, Len(ThisWorkbook.Name) - 5) & " " & Format(Now, "DD_MM_YYYY") & " " & Format(Now, "hh_mm_ss")
ThisWorkbook.SaveCopyAs CheminSauve & "\" & NomFichier & ".xlsm"
  Shell "C:\Windows\explorer.exe " & CheminSauve & "", vbMaximizedFocus
End Sub