Probleme de format dans un export vers excel
Bonjour,
Je fais un export vers excel d'une base HFSQL, et j'ai un problème de format au niveau des dates.
Ma première version était :
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
|
MaFeuille est un xlsDocument
ww_piecejointe est une chaîne
xlsAjouteFeuille(MaFeuille,"BDF") // ajoute feuille ds excel
x est un entier
y est un entier
POUR i = 1 A 2
SELON i
CAS 1 : MaFeuille[x,y] = "CONTRAT"
CAS 2 : MaFeuille[x,y] = "DateLetRecevabilite"
FIN
y++
FIN
HLitPremier(BDF,SEQUENCE)
TANTQUE HEnDehors(BDF) = Faux
y = 1
MaFeuille[x,y] = BDF.CONTRAT
y++
SI DateValide(BDF.DateLetRecevabilite) ALORS
MaFeuille[x,y] = DateVersChaîne(BDF.DateLetRecevabilite,"JJ/MM/AAAA")
FIN
y++
x++
HLitSuivant(BDF)
FIN
ww_piecejointe = "L:\Recouvrement\Transfert Bases\BDF.xlsx"
resultat = xlsSauve(MaFeuille,ww_piecejointe)
xlsFerme(MaFeuille) |
Avec cette version j'ai dans mon fichier excel des dates en texte inexploitables.
Donc j'ai fait cette 2eme version :
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
|
MaFeuille est un xlsDocument
ww_piecejointe est une chaîne
dMaDate est une Date
xlsAjouteFeuille(MaFeuille,"BDF") // ajoute feuille ds excel
x est un entier
y est un entier
POUR i = 1 A 2
SELON i
CAS 1 : MaFeuille[x,y] = "CONTRAT"
CAS 2 : MaFeuille[x,y] = "DateLetRecevabilite"
FIN
y++
FIN
HLitPremier(BDF,SEQUENCE)
TANTQUE HEnDehors(BDF) = Faux
y = 1
MaFeuille[x,y] = BDF.CONTRAT
y++
SI DateValide(BDF.DateRecevabilte) ALORS
dMaDate = BDF.DateRecevabilte
MaFeuille[x,y] =dMaDate
FIN
y++
x++
HLitSuivant(BDF)
FIN
ww_piecejointe = "L:\Recouvrement\Transfert Bases\BDF.xlsx"
resultat = xlsSauve(MaFeuille,ww_piecejointe)
xlsFerme(MaFeuille) |
Et dans ce cas j'ai des entiers à la place des dates mais en changeant le format sous excel j'ai bien des dates exploitables.
Il me reste donc la dernière étape et c'est là que j'ai besoin d'aide, je n'arrive pas à formater depuis windev le format en date de ma colonne.
Avez vous une idée ?
Merci d'avance :lol:
