Discussion :

[mattyeux]

Bonjour,

Je ne sais pas si je dois poster ce topic dans ASP ou Excel mais comme je dois développer un truc qui marche, je le met ici.

J'ai un script tout simple qui récupère des données d'une BD via asp et qui les écrit dans un fichier Excel.

Le problème est que quand j'ouvre ce fichier, j'ai des erreurs excel comme quoi :
"Impossible de lire l'enregistrement n° XXX" ( g ce message plusieurs fois)

puis :
"Microsoft Office Excel ne peut pas convertir certaines cellules"

J'ai l'impression que ces erreurs sont due a des champs de ma BD qui sont plutôt long et tronqués dans mon fichier excel. Y a til une solution a ce problème ? Laquelle ?

Je donne mon code au cas où :

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
 
<%
Set fso = CreateObject("Scripting.filesystemobject")
Set Fic = fso.CreateTextFile(server.mappath(monFichier), True)
%><a href="<%=monFichier%>">Telecharger le fichier Excel</a><%
 
Fic.writeLine "ID;PWXL;N;E" ' Début du codage excel
Fic.writeLine "C;Y1;X1;K" & CHR(34) & ("N° du changement") & CHR(34) 
Fic.writeLine "C;Y1;X2;K" & CHR(34) & ("Date de création") & CHR(34) 
Fic.writeLine "C;Y1;X3;K" & CHR(34) & ("Code") & CHR(34) 
Fic.writeLine "C;Y1;X4;K" & CHR(34) & ("Date de planification") & CHR(34) 
Fic.writeLine "C;Y1;X5;K" & CHR(34) & ("Nom") & CHR(34) 
Fic.writeLine "C;Y1;X6;K" & CHR(34) & ("Prenom") & CHR(34) 
Fic.writeLine "C;Y1;X7;K" & CHR(34) & ("Login") & CHR(34) 
Fic.writeLine "C;Y1;X8;K" & CHR(34) & ("Value") & CHR(34) 
Fic.writeLine "C;Y1;X9;K" & CHR(34) & ("Commentaire") & CHR(34) 
Fic.writeLine "C;Y1;X10;K" & CHR(34) & ("Date de modification") & CHR(34) 
 
Ligne = 2
 
for i=1 to nbRow					
  Fic.writeLine "C;Y" & Ligne & ";X1;K" & CHR(34) & (oRS.fields(0)) & CHR(34) 
  Fic.writeLine "C;Y" & Ligne & ";X2;K" & CHR(34) &(oRS.fields(1)) & CHR(34)
  Fic.writeLine "C;Y" & Ligne & ";X3;K" & CHR(34) &(oRS.fields(2)) & CHR(34)
  Fic.writeLine "C;Y" & Ligne & ";X4;K" & CHR(34) &(oRS.fields(3)) & CHR(34)
  Fic.writeLine "C;Y" & Ligne & ";X5;K" & CHR(34) & (oRS.fields(4)) & CHR(34)
  Fic.writeLine "C;Y" & Ligne & ";X6;K" & CHR(34) &(oRS.fields(5)) & CHR(34)
  Fic.writeLine "C;Y" & Ligne & ";X7;K" & CHR(34) &(oRS.fields(6)) & CHR(34)
  Fic.writeLine "C;Y" & Ligne & ";X8;K" & CHR(34) &(oRS.fields(7)) & CHR(34)
  Fic.writeLine "C;Y" & Ligne & ";X9;K" & CHR(34) &(oRS.fields(8)) & CHR(34)
  Fic.writeLine "C;Y" & Ligne & ";X10;K" & CHR(34) &(oRS.fields(9)) & CHR(34)
  Ligne = Ligne + 1
  RS.MoveNext
next
Fic.writeLine "E"
Fic.Close
Set Fic = Nothing
Set fso = Nothing
end if
%>

[mattyeux]

Peut-être une histoire de carcactères invisibles, où de codage entre ma BD et Excel ?

Vous en pensez quoi ?

[sqlnoob]

Salut,

un test rapide m'a amené à constater qu'Excel avait du mal avec le point-virgule.
Maintenant, je serais bien incapable de dire comment il faut le coder, et quels sont les autres caractères susceptibles de poser problème :/

Le contenu de mon fichier de test :

ID;PWXL;N;E
C;Y1;X1;K"N° du changement"
C;Y1;X2;K"Entête 2"
C;Y2;X1;K"12"
C;Y2;X2;K"jjbnkjdbv<sn vjnmd"fnsdvnsldmkcvn:ds c<:nco'mksnfl?.WXNcsdoicvksdN%EOfjpd"
C;Y3;X1;K"13"
C;Y3;X2;K"b;labla\#kdsp"
E

Avec le ";" de l'avant-dernière ligne, il crie; sans ça passe...

Je ne sais pas combien d'enregistrements tu exportes. Si tu n'en exportes pas trop, tu peux peut-être essayer de mettre le doigt sur ceux qui posent problème.

[EDIT]
Mieux: regarde quels champs sont tronqués, et à partir de quel caractère
[/EDIT]

a+

[mattyeux]

Malheureusement, j'ai plusieurs centaine de ligne a exporter ...Jte remercie en tout cas. Je vasi essayer de trouver une autre solution ...

J'ai regardé et ca dépend vraiment des cas, c'est pour ca que je me demandais si ce n'était pas des caractères invisibles pour Excel ...