Date

Re : Date

Bonjour,
as tu essayé avec = Date
A +

Re : Date

Bonjour Bruno et bienvenue sur le forum,

Nous avons l'habitude de travailler sur des cas concrets, avec des exemples. Alors pourrais-tu nous donner un fichier exemple ou la macro concernée?
En éclairsissant un point, qu'appèles-tu la date du jour, si tu ne veux pas qu'elle change.

Par définition, la date du jour est changeante.

A bientôt

Re : Date

Oui la date du jour est changeante. C'est quasiment un proverbe chinois.
Mais justement !
Une macro me fait une copie de feuille (comme une archive) et la protège.
Sur cette copie, j'aimerais avoir la date où a été effectuée cette copie.
Or Today() ne fonctionne pas, ni Date, et aucun des essais que j'ai pu faire.

Merci pour ta réponse.

Re : Date

Salut Bruno, abc🙂, Hasco🙂, le Forum

Si c'est dans une Macro La préconisation de l'ami Hasco est justifiée, ne serait-ce que le code 😉

As tu essayé l'enregistreur de Macro?
après que ta macro soit effectuée
Lance l'enregistreur
-->Click droit sur la cellule incriminée ou alors si pas de cellule créée en une par ex en IV1, cellule rarement utilisée
-->Copier
-->Collage Spéciale/Valeur
-->supprime la valeur en IV1 (Facultatif)
-->Ok

colle le code avant le End If de ta macro principale
On ne sait jamais 😛

Heu... mettonfichierceseraitplussimple

Bonne Journée

Re : Date

Voilà le code utilisé
. Dull pas encore essayé le collage spécial valeurs, mais c'est une piste.

Merci pour votre aide à tous

Sub Macro4()
'
' Macro4 Macro
' Macro enregistrée le 17/04/2008 par Bruno Sébag
'

'
Columns("A:L").Select
Selection.Copy
Sheets("Liste Codes").Select
Sheets.Add
ActiveWindow.View = xlNormalView
Range("A1").Select
ActiveSheet.Paste
Range("A1").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "Sauvegarde"
Range("A2:B2").Select
With Selection
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.AddIndent = False
.ShrinkToFit = False
.MergeCells = True
End With
Range("A2:B2").Select
ActiveCell.FormulaR1C1 = "=TODAY()"
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Sheets("Données").Select
Range("A1").Select
End Sub

Re : Date

Salut Bruno, le Forum

Ton Code Modifié

Bonne Journée

Re : Date

Merci Dull,

Cela marche parfaitement et complète mon fichier.
Je ne manquerai pas de revenir sur le forum.....