Date

[Bruno S.]

Bonjour,

Petit bricoleur sur Excel, je cherche à insérer dans une macro la date du jour.
Mais en utilisant Today(), la date subit une mise à jour. Ce qui ne me convient pas.
Comment faire donc pour obtenir la date du jour sans qu'elle ne varie.
Merci

 

[abc]

Re : Date

Bonjour,
as tu essayé avec = Date
A +

 

[Guest]

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

 

[Bruno S.]

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.

 

[Dull]

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

 

[Bruno S.]

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

 

[Dull]

Re : Date

Salut Bruno, le Forum

Ton Code Modifié

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()"
   [B] Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False[/B]
    Application.CutCopyMode = False
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Sheets("Données").Select
Range("A1").Select
End Sub

Bonne Journée

 

[Bruno S.]

Re : Date

Merci Dull,

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