Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

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

gosselien

XLDnaute Barbatruc
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

XLDnaute Barbatruc
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:

VB:
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
 
Dernière édition:
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…