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

Modeste geedee

XLDnaute Barbatruc

• 14 Septembre 2018

• #2

Bonsour®

Kantarus à dit:

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

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif

Kantarus

XLDnaute Nouveau

• 14 Septembre 2018

• #3

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 !!

 

Vote positif 0 Vote négatif

Lone-wolf

XLDnaute Barbatruc

• 14 Septembre 2018

• #4

Bonjour le Fil, le Forum

@Kantarus : c'est Ctrl + Shift + ;

 

Vote positif 0 Vote négatif

Kantarus

XLDnaute Nouveau

• 14 Septembre 2018

• #5

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é...

 

Vote positif 0 Vote négatif

Kantarus

XLDnaute Nouveau

• 14 Septembre 2018

• #6

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.....

 

Vote positif 0 Vote négatif

Robert

XLDnaute Barbatruc

Repose en paix

• 14 Septembre 2018

• #7

Bonjour le fil, bonjour le forum,

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

VB:

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

 

Vote positif 0 Vote négatif

Modeste geedee

XLDnaute Barbatruc

• 14 Septembre 2018

• #8

Kantarus à dit:

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.....

Cliquez pour agrandir...

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

 

Dernière édition: 14 Septembre 2018

Vote positif 0 Vote négatif

Lone-wolf

XLDnaute Barbatruc

• 14 Septembre 2018

• #9

Re à tous

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

 

Vote positif 0 Vote négatif

Modeste geedee

XLDnaute Barbatruc

• 14 Septembre 2018

• #10

Lone-wolf à dit:

Re à tous

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

Cliquez pour agrandir...

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 :

VB:

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

 

Vote positif 0 Vote négatif