Discussion :

[pc75]

Bonjour,

J'ai besoin d'extraire des données au format Excel.

Pour cela, j'utilise :

Code :

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

1
2
 
Response.ContentType = "application/msexel"

Le problème, est que je dois générer une colonne ayant le format suivant :

00001
00002
00003
.....

Et évidemment, à l'arrivée, Excel m'affiche :

1
2
3
...

Quelqu'un connait l'astuce pour conserver les zéros non significatifs en début de chaine ?

Merci

[roro06]

Bonjour

J'ai un peu du mal a comprendre :

extraire des données

et :

Response.ContentType = "application/msexel"

Ceci dit, deux pistes, si ton but est de fournir une sortie au format excel :

Code :

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

Response.ContentType = "application/vnd.ms-excel"

et essaye aussi :

Code :

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

Response.write(cstr(ma variable))

ou , au pire :

Code :

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

1
2
3
4
5
6
7
8
9
 
function formNumber(x_, lon_)
    while len(x_)<lon_
        x_="0" & x_
    wend
    formNumber=x_
end function
 
Response.write(formNumber(cstr(ma variable), 5)

[vva]

rapidement il faut exporter ta valeur vers xl comme ceci en ajoutant un ' devant le nombre, la valeur sera alors interprétée comme une chaîne sans suppression des 0 facultatifs

[pc75]

Re,

Merci de vos réponses.

roro06

Le but est bien de fournir une sortie au format Excel (je boucle sur un recordset).

J'ai essayé avec Response.ContentType = "application/vnd.ms-excel"

J'ai essayé le Cstr(MaVariable)

J'ai essayé avec ta fonction

=> Même résultat, il me supprime les zéros à gauche

vva

J'avais déjà tenté, mais dans la feuille Excel, l'apostrophe est conservée dans les données


D'autres idées ?

Merci

[vva]

le problème vient effectivement d'XL, y a t il moyen au moment de créer le fichier XL via ASP de formater la colonne si oui à ce moment la là colonne recevant le 0001 doit être en format texte

[roro06]

Ou alors :

Code :

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

Response.write(maVariable & " ")

ou

Code :

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

1
2
Response.write(maVariable & " ")
'Pas sûr de mon coup

[pc75]

Re,

Pas plus de succès.

J'ai aussi essayé ça, mais, pareil :

Code :

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

1
2
 
Response.Write(String(5 - len(trim(cStr(maVariable ))), "0") & trim(cStr(maVariable )))

[vva]

exactement ton soucis et d'XL vers ta page ASP ou de ton code ASP vers XL ? ou peut être les deux

[roro06]

exactement ton soucis et d'XL vers ta page ASP ou de ton code ASP vers XL ? ou peut être les deux

A priori, ce serait d'ASP vers XL

[pc75]

Re,

C'est bon, j'ai réussi avec une autre méthode de création d'un fichier Excel.

[roro06]

C'est bon, j'ai réussi avec une autre méthode de création d'un fichier Excel.

qui est .. ?

[pc75]

qui est .. ?

C'est un vieux bout de code que j'ai ressorti. Mais avec cette méthode, on ne peut pas faire de mise en page.

Voila, en résumé, le principe :

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
 
txtSQL = txtSQL & "SELECT * FROM MaTable "
Set rs = server.CreateObject("ADODB.recordset")
rs.cursorlocation = aduseclient
rs.cachesize = 5
rs.open txtSQL, Application("MonDsn"), 1, 3
 
if not rs.EOF then
    Response.Buffer = TRUE
    Response.Clear
 
    chemin = server.MapPath("\Base") & "\Donnees.XLS"
    Set fso = CreateObject("Scripting.FileSystemObject")
    fso.DeleteFile chemin, true
    Set a = fso.CreateTextFile(chemin, True)
    ' Titres des colonnes
    ' chr (34) remplace les guillements à la suite de l'instruction
    a.writeLine "ID;PWXL;N;E" ' Début du codage excel
    a.writeLine "C;Y1;X1;K" & CHR(34) & ("Code") & CHR(34)
    a.writeLine "C;Y1;X2;K" & CHR(34) & ("Nom") & CHR(34)
    a.writeLine "C;Y1;X3;K" & CHR(34) & ("Prenom") & CHR(34)
    Ligne = 2
    Str_Numero = 1
    Do Until rs.EOF
        Col1 = String(5 - len(trim(cStr(Str_Numero))), "0") & trim(cStr(Str_Numero))
	a.writeLine "C;Y" & Ligne & ";X1;K" & CHR(34) & (Col1) & CHR(34)
	a.writeLine "C;Y" & Ligne & ";X2;K" & CHR(34) & (rs("UO4") & "-" & rs("NOM")) & CHR(34)
	a.writeLine "C;Y" & Ligne & ";X3;K" & CHR(34) & (rs("UO4") & "-" & rs("PRENOM")) & CHR(34)
        rs.MoveNext
	Assise = Assise + 1
    Loop
 
    a.writeLine "E" ' Fin du codage excel
    a.Close
    rs.Close
    set rs = Nothing
    Set a = Nothing
    Set fso = Nothing
    Response.Redirect("http://MonServeur/Base/Donnees.XLS")
End if

Des commentaires ?

[StephM_asp]

Salut,

C'est dingue qu'on ne puisse pas écrire une chaine de caractères dans xl commençant par "0"...

++

[pc75]

Salut,

C'est dingue qu'on ne puisse pas écrire une chaine de caractères dans xl commençant par "0"...

++

Et le code que j'ai donné n'est qu'un extrait. Je dois exporter aussi des dates au format yyyy/mm/dd => Excel les transformait automatiquement au format dd/mm/yyyy.

[StephM_asp]

Le truc de fou quoi...

Je viens de fouiner rapidement sur le web et ils parlent de ça à plusieurs reprises :

Essaies de jouer sur le format des cellules :

Format text permettra de garder les 0 en tête de numéros mais encore faut il
qu'il y soit

Format personnalisé mettre comme type : 0000000000 ce qui permetra de garder
le 0 en tête de numéro ou de le rajouter si il a été oublié

As tu la possibilité de toucher ton xl avant de faire tes imports ? Où bien est-ce utilisé par des clients (par exemple) ?

[StephM_asp]

Tiens ce site aussi avec des tuto concernant xl et les asp
http://www.tutorialized.com/tutorial...xcel-and-ASP/1

Qui sait... Ils y présentent un composant (free) qui a l'air pas mal du tout.

Enfin, la page crosoft :
http://support.microsoft.com/default...;EN-US;q195951

++

[pc75]

Merci StephM_asp,

Tu penses bien que j'ai fouillé aussi sur le net.

Pour l'instant, j'obtiens le résultat attendu avec mon code actuel.

Mais la première option reste un challenge.

[StephM_asp]

Oui effectivement, je me doute bien que tu as du y passer quelques heures...

As-tu tout de même regardé ce composant gratuit ?

Ce qu'il faudrait c'est pouvoir forcer le formatage des cellules visiblement ?

++

[Immobilis]

Salut,

Sinon, il y a OWC. Il faut regarder la doc installée en mm temps que le composant il y a des options qui doivent permettre de définir le nombre de chiffres après la virgule. Si il s'agit de zéro au début du nombre il faut vraiment considérer les valeurs comme du texte.

A+

[StephM_asp]

Hello,

Oui comme du texte ou encore, "ils" parlent de formats "personnalisés", avec justement un exemple "000000" qui garderait les "0" donc.
Il semble possible de formater des dates, des n° de tel etc.

Évidemment, il faut trouver un système qui ne demande pas d'installer xl sur la serveur. Un composant bien chiadé devrait faire l'affaire.

++