[Formats] Header Excel : formats incorrects

Version imprimable

Bonjour,

J'ai un bout de code qui execute une requete sql et qui l'envoie dans excel.
Le pb: certaines cellules mettent les cellules numériques en format texte, ce qui gêne les formules (somme etc...)

Voici le code:

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
52
53
54
55
56
57
58
59
60
<%Response.Buffer = "False"
Response.ContentType = "application/vnd.ms-excel"%>
<html>
<head>
  <title>Ageing sp&eacute;cifique code vendor</title>
</head>
<body>
 
  <table border='1' cellpadding='0' cellspacing='0'>
    <tr>
      <th>BranchNbr</th>
       <th>AverageCostLocAmt</th>
      <th>AVGValueBOH</th>
      <th>AgingMonthDescription</th>
      [...]
      <th>AgingDaysRsvLocAmt</th>
      <th>AgingDaysRsvPerc</th>
      <th>AgingDaysDescription</th>
      <th>Currency</th>
      <th>LastSalesDt</th>
      <th>ProtectedVendor</th>
      <th>BaseCostForAmt</th>
      <th>PriceSchemeCode</th>
    </tr>
    <%
      'Déclaration de la variable de connexion
      Dim cnx
      Dim rs
 
      Set cnx = server.createobject("ADODB.Connection")
 
      'Ouverture de la base de données
      cnx.open "PROVIDER=SQLOLEDB;DATA SOURCE=FRLS0ITRIM01;UID=RIM_read;PWD=read;DATABASE=RIM_F"
 
      'recordset
      Set rs=server.createObject("ADODB.Recordset")
 
      SQL="SELECT BranchNbr, BuyerCode, BuyerName, CodedRsvLocAmt, [...]AgingMonthRsvPerc, AgingMonthRsvLocAmt, boh AS Stock, [Commit], OnOrder, AverageCostLocAmt, ReplacementCostLocAmt FROM V_AnalystagingRealReceiptLocal WHERE ((VendorNbr = '" & Request.QueryString("cdvdor") & "'));"
 
      rs.open SQL,cnx,3,3
 
      do while not rs.eof
        response.write "<tr>"
        for i=0 to rs.fields.count-1 
          response.write "<td>" & rs.fields(i).value & "</td>" 
        next
        response.write "</tr>" 
        rs.movenext 
      loop 
 
        rs.close 
        set rs=nothing 
        cnx.close 
        set cnx=nothing 
    %>
  </table>
 
 
</body>
</html>

J'ai allégé le code pour le rendre plus compréhensible en vous épargnant la totalité des champs de la requête et l'affichage des <th> (j'ai mis un [...] pour dire que j'ai enlevé des trucs)

Savez vous pourquoi j'ai dans la même colonne des valeur numériques au bon format et d'autres au mauvais format ???
Y a-t-il un moyen de forcer les formats dans Excel à partir de ASP ?

21/07/2008, 17h22
TekP@f

Salut,

Tu pourras peut-être trouver ce que tu veux ici :
http://www.developpez.net/forums/sho...53#post2825653
22/07/2008, 16h52
Commodore

j'utilise la même méthode que celle prescrite dans le post que tu me donnes, mais les formats de cellules ne sont pas toujours les bons. En fait, ils sont bons au départ, mais arrivé sur un tuple (numéro aléatoire selon les essais effectués dans mes tests), le format n'est plus détecté par excel...
22/07/2008, 17h17
roro06
Bonjour

N'y aurait-il pas un problème de point et de virgule, dans les données que te renvoies la base de données ?

en mettant :
Code:

1 2 3 for i=0 to rs.fields.count-1 response.write "<td>" & replace(rs.fields(i).value, ",", ".") & "</td>" next
(ou l'inverse)

j'ai déjà eu le cas, mais avec Access
29/07/2008, 10h53
Commodore

nope, ce pb est déjà traité... et dans ce ca, le fait de rentrer dans le cellule et d'en sortir sans rien y modifier ne chage rien, alors que dans mon cas, faire F2 puis Echap sur la cellule corrige le format
02/08/2008, 22h57
Immobilis
Salut,

Il n'y a aucun espace résiduel?

Code:

trim(rs.fields(i).value)

Tu peux essayer de faire un test si la valeur est numérique et faire une conversion:
Code:

1 2 3 4 5 6 If isnumeric(trim(rs.fields(i).value)) then cdbl(rs.fields(i).value) else rs.fields(i).value end if
Ou encore peut-être en utilisant OWC comme indiqué ici: http://www.developpez.net/forums/sho...63&postcount=7

A+
04/08/2008, 10h06
Commodore

merci pour ton aide, je teste ça dans la journée, et je reviens éditer ce post pour donner le résultat

edit:
c'est pas ça... pas d'espace résiduel... on dirait qu'excel finit par avoir une indigestion de données, au bout d'un nb variable de lignes les chiffres s'alignent a gauche dans les cellules, comme du texte...