Discussion :

[Celia1303]

Bonjour !

J'exporte les données d'un recordset vers un modèle de document excel.
Voici le code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 
While Not Rst_cot.EOF
 
 
appexcel.Cells(i, 1) = Rst_cot![Num_Ent1]
appexcel.Cells(i, 2) = Rst_cot![RaisonSociale_Ent]
appexcel.Cells(i, 3) = Rst_cot![TypeAdherent_Ent]
appexcel.Cells(i, 4) = Rst_cot![Num_Cotisations]
appexcel.Cells(i, 5) = Rst_cot![Annee_Cotisation]
appexcel.Cells(i, 6) = Rst_cot![MontantAnnee_Cotisations]
appexcel.Cells(i, 7) = Format(Rst_cot![DateAnee_Cotisations], "dd/mm/yyyy")
appexcel.Cells(i, 8) = Format(Rst_cot![DateEnvoi_Annee], "dd/mm/yyyy")
appexcel.Cells(i, 9) = Format(Rst_cot![Rappel1_Annee], "dd/mm/yyyy")
appexcel.Cells(i, 10) = Format(Rst_cot![Rappel2_Annee], "dd/mm/yyyy")
 
 
 
 
'Passer au suivant
Rst_cot.MoveNext

Malheureusement, les dates sont parfois affichées correctement , au format francais,
mais parfois elles sont au format US.
Par exemple, au lieu d'afficher 04/02/2005, j'ai 02/04/2005.

En fait, toute les dates (en francais) qui ont un jour compris entre 1 et 12 s'affiche au format US.

La propriété des champs de type date ont pour format date abrégée.

Merci d'avance aux personnes qui pourront m'aider.

[cafeine]

Hello,
une idée, peut-être, essaie d'exporter avec un CDbl(), puis de formater la cellule en format date.

[Celia1303]

Merci.

J'ai essayé

Code :

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

1
2
 
appexcel.Cells(i, 8) = CDbl(Format(Rst_cot2![Date1_Cotisations], "dd/mm/yyyy"))

mais cela ne fonctionne pas : "incompabilité de type"

[Celia1303]

Par contre, lorsque je formate au format US, toutes mes dates s'affichent correctement.

Code :

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

1
2
 
appexcel.Cells(i, 7) = Format(Rst_cot![DateAnee_Cotisations], "mm/dd/yyyy")

Mais je comprends pas, c'est pas logique !!!

[JeansmackS]

Malheureusement, les dates sont parfois affichées correctement , au format francais,

Salut,

Quand tu dis ça, tu es bien sûre que les dates de départ et d'arrivée sont identiques ??

J'avais eu ce souci une fois, et la seule façon que j'avais trouvé pour y palier était de faire une petite routine permettant d'inverser les jours et les mois lors de la procédure. Or dans mon cas ça le faisait pour toutes les dates. D'où ma précédente question.

Il doit bien y avoir une explication ...


Bonne chance.

[cafeine]

re,

je voulais plutôt dire (non testé à essayer) :

Code :

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

1
2
appexcel.Cells(i, 8) = CDbl(Rst_cot2![Date1_Cotisations])
appexcel.Cells(i, 8).NumberFormat = "dd/mm/yy"

[_developpeur_]

bonjour avez vous trouvé une réponse à ce problème car j ai le meme actuellement ?

Merci

[Invité]

Salut

Regarde le format de test cellules dans ton fichier excel, tu as le format français et le format américain. Met bien un format français.

Starec