Changer le format d'une cellule excel

Version imprimable

02/08/2010, 14h32
SonnyFab

Changer le format d'une cellule excel

Bonjour,
voila j'exporte mon repeater dans un fichier excel, mais il s'avère que mon repeater est composé d'un champ contenant des numéros commençant par 0.
Ainsi dans le fichier excel tous les 0 sont homis. Le problème aparemment vient du format des cellules et j'arrête pas de fouiller sur le net comment changé ce format en texte depuis mon code ci-dessus.
Si quelqu'un connait un lien ou un code qui pourrait m'aider je le supplie de m'aider.

Merci d'avance. :hola:
02/08/2010, 14h59
Philippe Vialatte

Salut,

comment génères tu ton fichier Excel ??

A partir d'un repeater, au clic j'appelle cette fonction:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 Protected Sub Button2_Click(sender As Object, e As EventArgs)
 
	Response.Clear()
	Response.AddHeader("content-disposition", "attachment;filename=fichier.xls")
	Response.Charset = ""
	Response.ContentType = "application/vnd.xls"
	Dim stringWrite As New System.IO.StringWriter()
	Dim htmlWrite As System.Web.UI.HtmlTextWriter = New HtmlTextWriter(stringWrite)
	MonRepeater.RenderControl(htmlWrite)
	Response.Write(stringWrite.ToString())
	Response.[End]()
End Sub
 
Public Overrides Sub VerifyRenderingInServerForm(control As Control)
 
End Sub

10/08/2010, 12h58
SonnyFab

J'admets que je ne comprends pas exactement le fonctionnement de cette fonction masi sa marche tant mieux, mais dois-je modifier le code ou dois-je créer une nouvelle fonction qui se chargera des cellules s'il vous plait?
10/08/2010, 13h11
Nicolas Esprit

Bonjour,

L'astuce utilisée par ton code est de renvoyer uniquement l'HTML correspondant à ton repeater. Excel est capable de l'interpréter pour l'afficher comme un tableau.

Maintenant, pour de la mise en forme plus spécifique, il va falloir utiliser les styles css.

Tu as une illustration du concept ici (premier lien pris parmi d'autres, tu dois pouvoir trouver facilement un tuto complet sur le sujet via Google).

En espérant t'avoir aidé.
10/08/2010, 13h41
SonnyFab

Là j'ai pour un bon moment !
Mais dis Nico j'ai un peu du mal à te suivre, c'est le css qui va dire sous quelle format dois être enregistrer le fichier excel?
Je pensais que le css c'était juste pour la mise en forme.

Sinon merci encore pour ce que vous faites Nico

J'adore ce forum!! :mouarf:
En sous titre on devrait écrire:
Ne perdez jamais espoir !!! :mouarf:

Merci Nico et surtout Enkel ce problème est résolu, et pour ceux qui auront le même problème 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
 Protected Sub ToExcel_Click(sender As Object, e As EventArgs)
 
    'On transforme chaque cellule du tableau en format "text" afin de pouvoir affiché les 0 non significatifs (à gauche) à l aide de la feuille de style'
For i As Integer = 0 To monGV.Rows.Count - 1
     For j As Integer = 0 To monGV.Rows(i).Cells.Count - 1
          monGV.Rows(i).Cells(j).Attributes.Add("class", "vartochar")
     Next
Next
 
	Response.Clear()
	Response.AddHeader("content-disposition", "attachment;filename=file.xls")
	Response.Charset = ""
	Response.ContentType = "application/vnd.xls"
	Dim stringWrite As New System.IO.StringWriter()
	Dim htmlWrite As System.Web.UI.HtmlTextWriter = New HtmlTextWriter(stringWrite)
	' Transmission des données de la DataSet vers le HtmlTextWtriter'
	monGV.RenderControl(htmlWrite)
' On applique la feuille de style'
Dim style As String = "<style>.vartochar{mso-number-format:\@;text-align='center';}</style>"
Response.Write(style)
 
	Response.Write(stringWrite.ToString())
	Response.[End]()
end sub
 
 
   Public Overrides Sub VerifyRenderingInServerForm(control As Control)
 
End Sub

Je vous suis très reconnaissant!

Merci encore