enregistrement avec la date

[wachoo31]

bonsoir le forum,

je cherche une solution pour mon problème, je me bat avec les dates a enregistrer et puis a ne plus changer, plus d'explication dans la demo ci joint

 

[Coyote]

Si j'ai bien compris, tu voudrais avoir la date de dernière mise à jour dans la cellule A4.

Une macro évènementielle s'impose

Effectue la manipulation suivante depuis ton fichier Excel

ALT F11 (simultanément)
Une fenêtre Visual Basic s'ouvre
Dans la partie gauche clique sur ThisWorkbook (si pas de cadre à gauche clique sur Ctrl R)

et saisie dans la fenêtre de droite les instructions suivantes

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Sheets("Feuil1").Range("A1").Formula = Now()
End Sub


Cette instruction saisira la date du jour dans la cellule A4 de l'onglet Feuil1

 

[Coyote]

Oups

Complément au message précédent

Cette instruction saisira la date du jour dans la cellule A4 de l'onglet Feuil1 en quittant la fermeture du fichier

 

[wachoo31]

bonsoir le coyote, le forum

ce n'est pas exactement cela que je désire, je m'explique, je démarre le matin avec un fichier intitulé rapport du jour vierge, je l'ouvre y ajoute mes donnée et en poussant sur un bouton, il s'enregistre avec la valeur de la cellule A8.

Ce classeur est ré ouvert et ré enregistrer plusieur fois sur les 24 heures
Cela marche bien même si ma solution est peu être un peu barbare

Le problème si je réouvre un fichier un autre jour la date change toujours et la je voudrais quelle ne change plus

 

[Coyote]

Ok je crois avoir pigé.

Tout d'abord ton fichier modèle, protège le en lecture seule pour éviter d'écraser la maquette vierge.

Donc l'enregistrement ne pourra que se faire sous un autre nom

Maintiens tes formules automatique de date dans ton fichier intitiale

et reprend ma macro en y plaçant à la place ces instructions


Private Sub Workbook_Open()

Sheets("Feuil1").Range("A8").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlValues

End Sub



A l'ouverture du fichier, la formule de date (aujourdhui() ou maintenant()) est remplacé par sa valeur.

D'où l'intérêt de maintenir une maquette vierge pour ne pas écraser la formule sur le fichier de départ.

ATTENTION, si t'envisages de travailler sur la maquette pour l'améliorer.... penses à y replacer les formules de date avant sauvegarde car à chaque ouverture du fichier, elles seront remplacées par leur valeurs

 

[wachoo31]

re le coyote, re le forum

merci pour ta formule cela va règler mon prob et a la prochaine

 

[le CH'TI160]

SALUT"wachoo31 "
Bonjour le"FORUM"

cette petite macro à adapter en changeant la référence $B$8
ainsi que la value=1 dans l'exemple, elle peut être une variable celon l'enregistrement
cette Macro a été trouvée sur ce FORUM

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$B$8" Then Exit Sub
With Target
If .Value = 1 Then
.Offset(1, 0).Value = Date
Else
.Offset(1, 0).Value = ""
End If
End With
End Sub
Bon dimanche a tous
A+++
Jean Marie