Discussion :

[alex1005]

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 :

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
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 :

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
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

[frenchsting]

Tout simplement essaye de mettre un :

Code :

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

MaFeuille[x,y] =BDF.DateRecevabilte

[dsr57]

Bonjour

En parcourant la documentation de PC-Soft, je suis tombé sur les propriétés Masque et MasqueWD d'une varaible de type XlsCellule : XlsCellule

Je n'ai jamais testé, à voir si cela peut te servir.

Bon dev