Discussion :

[Thal000]

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 :

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

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 :

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

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

[Philippe Tulliez]

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

Code :

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

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 :

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

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

[parmi]

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 :

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

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