OVH Cloud OVH Cloud

Sauvegarde tire +MAJ date sauvegarde

2 réponses
Avatar
figwer Philippe
Bonjour le forum!

Ca doit bien exister ce que j'aimerais bien avoir...?

Comment faire pour que lorsque j'enregistre un document (word et Excel) la
date de modification soit inscrite devant après le titre
du document??(sous un format tel que : année_ mois_jour)

Ca c'est une chose mais il faufdrait aussi que lorsque que lorsque le
document est sauvegardé plusisurs fois après retouche..que les dates ne
s'accumulent pas à la suite des autres, mais se mette juste à jour....

je me creuse la cervelle en attendant des suggestoin...

merci beaucoup et bonne soirée à tous.

2 réponses

Avatar
RaMa
Bonjour
essaie ceci
=TEXTE(MAINTENANT();"aaaa-mm-jj")&" montitre du hdhqskfd"

salutations
RaMa

"figwer Philippe" a écrit dans le message de
news:40a8e693$0$10207$
Bonjour le forum!

Ca doit bien exister ce que j'aimerais bien avoir...?

Comment faire pour que lorsque j'enregistre un document (word et Excel) la
date de modification soit inscrite devant après le titre
du document??(sous un format tel que : année_ mois_jour)

Ca c'est une chose mais il faufdrait aussi que lorsque que lorsque le
document est sauvegardé plusisurs fois après retouche..que les dates ne
s'accumulent pas à la suite des autres, mais se mette juste à jour....

je me creuse la cervelle en attendant des suggestoin...

merci beaucoup et bonne soirée à tous.




Avatar
michdenis
Bonjour Philippe,

à chaque fois que tu enregistres,

ton fichier est sauvegardé avec le format suivante

Année_Mois_Jour_heure_Minute_Seconde afin d'éviter qu'il y ait présence de doublons du nom du même fichier si tu
enregistres ton fichier 2 fois dans la même journée,

Une ligne de code a été ajouté pour supprimer l'ancien fichier .... si besoin !

'----------------------------------
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)

Dim CheminFichierActuel As String
Dim LaDate As String, NomFichier As String

CheminFichierActuel = ThisWorkbook.FullName

NomFichier = Split(ThisWorkbook.Name, "_") _
(UBound(Split(ThisWorkbook.Name, "_")))

LaDate = Format(Now, "yyyy_MM_dd_")
ThisWorkbook.SaveAs LaDate & Fichier

'Supprime l'ancien fichier
Kill CheminFichierActuel

End Sub
'----------------------------------


Salutations!



"figwer Philippe" a écrit dans le message de news:40a8e693$0$10207$
Bonjour le forum!

Ca doit bien exister ce que j'aimerais bien avoir...?

Comment faire pour que lorsque j'enregistre un document (word et Excel) la
date de modification soit inscrite devant après le titre
du document??(sous un format tel que : année_ mois_jour)

Ca c'est une chose mais il faufdrait aussi que lorsque que lorsque le
document est sauvegardé plusisurs fois après retouche..que les dates ne
s'accumulent pas à la suite des autres, mais se mette juste à jour....

je me creuse la cervelle en attendant des suggestoin...

merci beaucoup et bonne soirée à tous.