transformer =AUJOURDHUI() en date fixe après un enregistrement sous.

[Kantarus]

Bonjour tout le monde,

Y a t'il une possibilité de garder une date créer par la fonction =AUJOURDHUI() en date fixe après une sauvegarde sous, du fichier ?

Merci

 

[Modeste geedee]

Bonsour®

Bonjour tout le monde,

Y a t'il une possibilité de garder une date créer par la fonction =AUJOURDHUI() en date fixe après une sauvegarde sous, du fichier ?

Merci

Créer une cellule quelconque que vous nommerez :
DateSave
pour y entrer la date du jour , tapez : Ctrl +
Dans le classeur remplacez la formule :
=AUJOURDHUI()
par :
=DateSave

ceci pourrait être effectué également par une proc événementielle sous VBA

 

[Kantarus]

Bonjour Modeste,
Merci pour cette réponse très rapide, juste un petit souci quand je fais Ctrl +, il m'affiche la fenêtre d'insertion de cellule !!

 

[Lone-wolf]

Bonjour le Fil, le Forum

@Kantarus : c'est Ctrl + Shift + ;

 

[Kantarus]

Bonjour Lone, comment vas-tu bien ?

Merci pour ta réponse, mais ça fonctionne pas mieux.... quand je fais Ctrl + Shift + ; , rien ne se passe ! à croire que mon pc est hanté...

 

[Kantarus]

Bon je comprend plus rien, je viens de refaire le Ctrl+; , et maintenant cela a fonctionné....

Je suis à la recherche d'un exorciste pour PC sous windows 10.....

 

[Robert]

Bonjour le fil, bonjour le forum,

Une autre option (nom d'onglet et cellule à adapter):

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
If SaveAsUI = True Then .Copy
    With Sheets("Feuil1")
        .Range("A1").Copy
        .Range("A1").PasteSpecial Paste:=xlPasteValues
    End With
End If
End Sub

 

[Modeste geedee]

Bon je comprend plus rien, je viens de refaire le Ctrl+; , et maintenant cela a fonctionné....

Je suis à la recherche d'un exorciste pour PC sous windows 10.....

Oupsss ...!
Ctrl + . (Contrôle et point) pour la date
Ctrl + : (Controle et ":") pour l'heure

"." ou ";" pour la date
":" ou "/" pour l'heure
c'est le code touche qui compte
ne pas actionner la touche "Shift" ou "Maj" pendant cette action

 

[Lone-wolf]

Re à tous

@Modeste geedee : pour avoir le point-virgule, il faut tenir aussi la touche Shift (clavier querty).

 

[Modeste geedee]

Re à tous

@Modeste geedee : pour avoir le point-virgule, il faut tenir aussi la touche Shift (clavier querty).

eh oui , même que sur Mac on ne parle pas de Ctrl
mais de

sur clavier PC AZERTY :
Shift n'a pas à intervenir....majuscule ou pas
c'est la touche qui compte !!!
Ctrl +
". "ou ";" pour la date
"/" ou":" pour l'heure

évidement sur un clavier QWERTY ....
le ":" et le ";" sont sur la même touche

ce que l'on constate via le VBA on n'y parle pas de SHIFT

via VBA :

Sub toto()
SendKeys "^;"
SendKeys "{enter}"
SendKeys "^:"
SendKeys "{enter}"
End Sub