Microsoft 365 code vba = valeur de ActiveCell & .FormulaR1C1 = "=DAY(TODAY())&"" ""&MONTH(TODAY())&"" ""&YEAR(TODAY())"

[Usine à gaz]

Bonjour à toutes et à tous,
Je vous souhaite une bonne fin de journée

En vba, je butte sur un code que je n'arrive pas à réaliser :
Je voudrais que la cellule D6 (Cells(ActiveCell.Row, 4))
prenne la valeur de : ActiveCell & .FormulaR1C1 = "=DAY(TODAY())&"" ""&MONTH(TODAY())&"" ""&YEAR(TODAY())"

Auriez-vous le bon code ?
Je joins un petit fichier test.
Je vous remercie beaucoup,
lionel,

 

[Modeste geedee]

Bonsour®

Je voudrais que la cellule D6 (Cells(ActiveCell.Row, 4))
prenne la valeur de : ActiveCell & .FormulaR1C1 = "=DAY(TODAY())&"" ""&MONTH(TODAY())&"" ""&YEAR(TODAY())"

peut-etre ? :

Sub Macro2()
    Cells(ActiveCell.Row, 4).Value = Cells(ActiveCell.Row, 1) & " (" & Format(Now, "dd mm yyyy hh\hmm)")
End Sub
[\CODE]

 

[job75]

Bonjour Lionel, Modeste geedee,

Sans plus d'explications :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If ActiveCell <> "" Then Cells(ActiveCell.Row, 4) = ActiveCell & Format(Date, ", dd mm yyyy")
End Sub

A+

 

[Usine à gaz]

Bonjour Modeste geedee, Bonjour Gérard,

Merci d'être toujours là à me répondre
@Modeste geedee : ça fonctionne bien - Merci à toi.
je l'ai adapté comme suit : Cells(ActiveCell.Row, 4).Value = ActiveCell & ", " & Format(Now, "dd mm yyyy)") mais je n'arrive pas à enlever cette parenthèse "c'est bon, 18 06 2020), 18 06 2020"

@Gérard Merci le code dans la feuille est nickel comme d'hab
Bonne fin de journée,
lionel,

 

[Usine à gaz]

Re
@ Modeste geedee : c'est bon :
Cells(ActiveCell.Row, 4).Value = ActiveCell & ", " & Format(Date, ", dd mm yyyy")