Discussion :

[thibaultdus]

Bonjour,

Je suis actuellement sur une application VB6 qui permet de générer des fichiers Excel.

Je rencontre des problèmes lors de l'extraction de champs au format Date.

Pour des dates dont le jour est inférieur à 12 (ex : 01/10/2009), Excel m'affiche 10/01/2009.

Ci-dessus la ligne VB permettant d'extraire le champ date :
ObjApp.Application.ActiveSheet.Cells(l, c).Value = CDate(Trim(RcdSet(c - 1).Value))

Qd j'affiche cette donnée dans VB, j'ai bien 01/10/2009.

Tout en sachant que dans Excel, j'ai mis pour le format de la cellule jj/mm/aaaa.

J'ai essayé d'autres formules telles que :
- ObjApp.Application.ActiveSheet.Cells(l, c).Value = Format(CDate(Trim(CSng(RcdSet(c - 1).Value))), "dd/mm/yyyy")
- ObjApp.Application.ActiveSheet.Cells(l, c).Value = Format(CDate(Trim(RcdSet(c - 1).Value)), "dd/mm/yyyy")
mais toujours le même résultat....

Avez-vous une idée pour résoudre ce problème?

Merci d'avance.

[SfJ5Rpw8]

Format doit être utilisé pour Formater une chaine de caractéres, les valeurs dates sont stocké dans VB (et excel) dans une variable de type Date

Lesvariables de type Date sont stockées sous la forme de nombres à virgule flottante de 64 bits (8 octets) IEEE représentant des dates comprises entre le 1er janvier 100 et le 31 décembre 9999, et des heures allant de 0:00:00 à 23:59:59. Toute valeur de littéral de date peut être attribuée à une variable de type Date. Les

quel est le type de donnée dans :

RcdSet

[thibaultdus]

RcdSet est un Recordset récupérant le résultat d'une requete(Set RcdSet = dbs.OpenRecordset(sql))

Dans cette requete, je récupére mon champ date définit comme un champ DATE/HEURE en base

Lorsque j'affiche le résultat de "CDate(Trim(CSng(RcdSet(c - 1).Value)))" sous VB j'obtient bien le bon format pourtant.

[SfJ5Rpw8]

et si tu affiche directement RcdSet ..? tu as quoi sous VB ?


où dans excel :

Code :

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

ObjApp.Application.ActiveSheet.Cells(l, c).Value = RcdSet(c - 1).Value

[Delbeke]

Heu, question bête, pourquoi utiliser format ? puisque le format de la colonne dans Excel est défini.

Code :

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

ObjApp.Application.ActiveSheet.Cells(l, c).Value = RcdSet(c - 1).Value

devrait suffire

[thibaultdus]

En effet, c'est beaucoup mieux... J'ai voulu aller trop vite en ajoutant des fonctions en plus....

Merci à vous!!!