Discussion :

[SonnyFab]

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.

[Philippe Vialatte]

Salut,

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

[SonnyFab]

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

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

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

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

[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

[SonnyFab]

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

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 :

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