Date au format texte

Bonjour,

je suis entrain d'écrire une macro qui copie la date dans une colonne vers un fichier csv.

Cependant quand je fais une copie de la valeur je me retrouve avec un nombre qui ressemble à un timestamp.

Code:

---

Sheets("ChangementsCategorie").Cells(n, 5).Value= Sheets("Changements").Cells(n, colonneDate).Value

---

avec ce code la date 20/07/2013 devient 41475.

J'ai donc essayé de copier de texte de la date avec la ligne suivante

Code:

---

Sheets("ChangementsCategorie").Cells(n, 5).Value = Sheets("Changements").Cells(n, colonneDate).Text

---

Mais cela ne marche pas.

Pourriez-vous m'indiquer comment copier la valeur de la date sous forme de texte.

D'avance merci

Cordialement

Bonjour,
Deux possibilités
Soit on formate la valeur au format Date

Code:

---

1 2 3 4

With Sheets("Feuil1").Cells(N, 5) .NumberFormat = "dd/mmm/yyyy" .Value = Sheets("Feuil2").Cells(N, colonneDate).Value End With

---

Soit on transforme la valeur en texte avec un formatage comme une date

Code:

---

1 2 3

With Sheets("Feuil1").Cells(N, 5) .Value = Format(Sheets("Feuil2").Cells(N, colonneDate).Value, "dd/mmm/yyyy") End With

---

Bonjour,

Tu pourrais aussi y aller avec un "cast" de la valeur en utilisant CDate.
Il faut par contre t'assurer que la valeur est bien une date

Code:

---

Sheets("ChangementsCategorie").Cells(n, 5) = CDate(Sheets("Changements").Cells(n, colonneDate))

---