Discussion :

[lol42]

Bonjour,

Dans le fichier traité par ma macro, j'ai un endroit où la cellule dans laquelle j'inscris une date doit être concaténée avec une autre; seulement lorsque la concaténation se fait, je n'ai plus ma date mais un nombre..
Comment faire pour conserver le format date?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Sheets("Copie").Select
ActiveCell.Offset(1, -1).Select
ActiveCell.Formula = "VerifieLe;"
ActiveCell.Offset(0, 1).Select
ActiveCell.Formula = "12/01/2004" '--> Cette date la..

Merci d'avance

[mercatog]

Un exemple direct

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
With Sheets("Copie")
    .Range("C1").Value = "Vérifié le " & .Range("B1").Value
End With

en B1 une date (11/05/2011)
En C1 tu auras Vérifié le 11/05/2011