XL 2013 Date Fixe

[Danyk01]

Bonjour
En ouvrant mon document "DEVIS" j'ai programmé la date : =(AUJOURDHUI)
Lorsque je sauvegarde le document je voudrais que la date reste fixe et garde la date du jour de création.
Peut-on supprimer la formule au moment de la SVG?
y a-t'il une autre solution?
Merci pour votre réponse
Danyk01

 

[Eric C]

Bonjour le forum
Bonjour Danyk
Tu as une réponse juste à ta droite (discussions similaires)
Bonne journée à toutes & à tous
@+ Eric c

 

[Danyk01]

Merci Eric
J'ai vu trop tard
mais je n'ai pas encore trouvé la solution
A bientôt
Danyk01

 

[Eric C]

Re,

Je viens de tester avec la formule de notre ami Modeste Geedee (que je salue ) et qui fonctionne parfaitement.

 

[Danyk01]

Oui
Mais je voudrais que ça fasse la date automatiquement
Là il faut qd même renseigner la date d'aujourd'hui à un moment

 

[Ikito]

Bonjour,

Voir fichier CJ.
Mettre la formule =AUJOURDHUI() en case B2 puis enregistrer le fichier. La date se fige

 

[Eric C]

Re,
Pas trouvé mieux mais déjà suffisant ....

Places ce code dans le module de ta feuille ... Avec un double clic .... tu obtiens ta date du jour qui restera figée.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
   Target = Date
   Target.Value = Target.Value
   Cancel = True
End Sub

 

[Hasco]

Bonjour,

Avec la macro évènementielle ci-dessous, lorsque vous ferez 'Enregistrer sous' et si la Cellule A1 n'a pas de date alors elle mettra la date du jour en A1.

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    If Not SaveAsUI Then Exit Sub
    With ThisWorkbook.Sheets("Feuil1").Range("A1")
        If Not IsDate(.Value) Then .Value = Date
    End With
End Sub

Vous avez le choix

Cordialement

 

[Eric C]

Re le fil,
bonjour Roblochon.
@ Roblochon - Reprenant ton idée, on peut aussi faire l'inverse, c'est à dire inscrire la date à l'ouverture du fichier ?

Private Sub Workbook_Open()
With ThisWorkbook.Sheets("Feuil1").Range("A1")
        If Not IsDate(.Value) Then .Value = Date
    End With
End Sub

@+ Eric c

 

[Danyk01]

Merci à tous
Je suis un peu nul pour l'instant...j’espère toujours acquérir votre niveau...c'est pas gagné!!!
Je ne comprends pas bien vos codes,
Voici le module de sauvegarde que j'ai, à quel endroit je colle le code?
est-ce qu'il va fonctionner avec mon usine à gaz?

'*******************************************************
'Procédure permettant de créer une sauvegarde du fichier
'*******************************************************
Sub FichierSVG()

'Déclaration des variables
Dim NomDossier As String 'Dossier dans lequel on va stocker la SVG
Dim NomFichier As String 'Fichier de SVG

Dim chemin_dossier_SVG As String 'Chemin de la SVG

Dim nomclient As String 'Déclare le nom de client
Dim numdevis As String 'Déclare le numéro de devis
Dim title As String 'Déclare le Titre de la SVG

'Rafraichissement de l'écran
Application.ScreenUpdating = False

'Affectation des variables du devis
NomDossier = "F:\Documents\01.DK.PLAC'ART_QUOTIDIEN\02.DEVIS_FACTURES\2020 DEVIS\"
nomclient = Cells(12, 18)
numdevis = Cells(9, 8)
title = Cells(11, 2)

'Désactiver les messages d'alertes
Application.DisplayAlerts = False

'On crée le nom du fichier de SVG
NomFichier = title & " " & "N°" & " " & numdevis & " " & nomclient & ".xlsm"
ActiveWorkbook.SaveCopyAs NomDossier & NomFichier

'On affiche un message de confirmation
MsgBox "Votre fichier de sauvegarde intitulé : " & NomFichier & vbNewLine & _
"dans le dossier suivant : " & NomDossier, vbOKOnly + vbInformation, "CONFIRMATION"

'Rafraichissement de l'écran
Application.ScreenUpdating = True
Sheets("DEVIS").Range("D16") = ("***A Renseigner***")
Sheets("DEVIS").Range("R12") = ("NOM-Prénom")

With Range("H9")
.Value = .Value + 1
End With

'On quitte Excel
'Application.Quit

End Sub
*****************************************************************************************************

 

[Ikito]

Dans ThisWorkbook

 

[Danyk01]

Dans ThisWorkbook

Regarde la pièce jointe 1055519

ça ne fonctionne pas, ça me remets la formule =AUJOURDHUI dans le document sauvegardé

 

[Eric C]

RE le fil
Bonjour Ikito

Il te faut "virer" la formule =Aujourdhui() de ta feuille !!

 

[Danyk01]

ça ne fonctionne pas, ça me remets la formule =AUJOURDHUI dans le document sauvegardé

J'ai recommencé, je vais voir demain si ça a fonctionné.
En effet après avoir sauvegardé le document la formule AUJOURDHUI a disparu de la SVG, mais sur le document matrice également.
Je vais voir demain et vous tiens au courant
Merci à vous

 

[Danyk01]

RE le fil
Bonjour Ikito

Il te faut "virer" la formule =Aujourdhui() de ta feuille !!

Hello Eric

Le code fonctionne mais en fermant la matrice tout est remis à 0 et le prochain N° s'affiche bien, ensuite je sors de la matrice et je dois l'enregistrer pour la prochaine fois.

Et à ce moment la formule =(AUJOURDHUI) disparaît de la matrice, A la prochaine ouverture je n'ai plus la date du jour mais l'ancienne date.

J'ai une idée, mais est-ce faisable?
Ne peut-on pas simplement supprimer la formule =(AUJOURDHUI) uniquement sur le document sauvegardé au moment de la SVG?
A+