Cellule date figée après sauvegarde

[Souka]

Bonjour le forum,

Après recherche, je sèche.

Je voudrais créer une cellule, dans un fichier de base, qui m'indique la date d'aujourd'hui (=aujourdhui) mais qui, une fois une copie de mon fichier de base réalisé par "enregistré sous", reste figée. Je ne veux pas que la date du jour en court apparaisse dans la copie du fichier de base.

En espérant être assés clair (rien n'est moins sure 😀)

 

[Raja]

Re : Cellule date figée après sauvegarde

Bonjour,

Dans ce cas, rentre la date du jour dans la cellule prévue par le raccourci des touches

CTRL + ;

 

[Souka]

Re : Cellule date figée après sauvegarde

Merci pour ta réponse Raja, mais je voudrais que la date s'inscrive automatiquement à l'ouverture du fichier de base, mais pas a l'ouverture des copies.

 

[Gael]

Re : Cellule date figée après sauvegarde

Bonsoir Souka, bonsoir Raja,

Avec ce code dans Thisworkbook:

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
ActiveSheet.Range("A1").Select
If SaveAsUI And Left(Selection.Formula, 1) = "=" Then
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues
End If

End Sub

Si on fait Enregistrersous (SaveasUI est vrai) et que la cellule A1 contient une formule (débute par "=") alors on fait un copier/coller valeur.

La date restera figée pour toutes les copies et copies de copies.

Exemple joint

@+

Gael

 

[Souka]

Re : Cellule date figée après sauvegarde

Merci beaucoup Gael, ça fonctionne très bien =)