[Formats] Header Excel : formats incorrects

**Commodore** · 21/07/2008, 16h28

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 :

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

**TekP@f** · 21/07/2008, 17h22

Salut,

Tu pourras peut-être trouver ce que tu veux ici :
http://www.developpez.net/forums/sho...53#post2825653

**Commodore** · 22/07/2008, 16h52

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

**roro06** · 22/07/2008, 17h17

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 :

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

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

**Commodore** · 29/07/2008, 10h53

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

**Immobilis** · 02/08/2008, 22h57

Salut,

Il n'y a aucun espace résiduel?

Code :

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

trim(rs.fields(i).value)

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

Code :

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

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+

[Formats] Header Excel : formats incorrects

ASP

Vue hybride

Discussions similaires

Partager

Partager