Copier cellule date VBA

Bonjour tout le monde,

Un petit soucis qui m'agace particulièrement...

    Dim ws As Worksheet
    Dim ws1 As Worksheet
    Dim derlig As Integer
    Set ws = Worksheets("Interface")
    Set ws1 = Worksheets("Numéro Devis")
    derlig = ws1.[U65536].End(xlUp).Row + 1
    If derlig < 2 Then derlig = 2
    ws.[AA17].Copy ws1.Range("U" & derlig)
    [U65536].End(xlUp).Offset(1, 0).Select

Voici le code d'une macro qui sert à recopier la cellule AA17 de la feuille "Interface", dans la première cellule vide de la colonne U de la feuille "Numéro Devis". Elle marche très bien, là n'est pas le soucis.

La cellule AA17 contient la fonction =AUJOURDHUI(), affichant ainsi la date du jour. Quand je copie cette cellule dans la première cellule vide de la colonne U de la feuille "Numéro Devis", elle se copie bien mais quand je reviens le lendemain cette date n'est pas celle de la veille comme je l'aurai souhaitée mais bel et bien celle du jour présent... Traduction, j'aimerai qu'une fois cette cellule copiée dans la feuille "Numéro Devis", elle ne bouge plus !

Faut-il passer par un collage spécial ? Je n'ai pas réussi à résoudre ce problème étant donné le code de la macro déjà assez complexe pour moi...

Merci à ceux qui voudront bien m'aider (une fois de plus...)

Bonjour,

remplacer

ws.[AA17].Copy ws1.Range("U" & derlig) 

par

ws1.Range("U" & derlig) = Date

A+

Bonjour Galopin,

Un grand merci ! Ce qui parait si simple pour toi ne l'était pas pour moi ... mais j'apprend !