Discussion :

[gbrualla]

Bonjour,

Je génère un document Excel à partir d'une DATATABLE;
Tout se passe correctement si ce n'est un message que j'obtiens systématiquement à l'ouverture d'Excel qui est :
Le format de fichier que vous tentez d'ouvrir,"listeexcel.aspx" est différent de celui spécifié par l'extension du fichier. Assurez-vous ....... avant de l'ouvrir. Souhaitez-vous ouvrir le fichier maintenant ?

J'ai défini un contenttype = application/vnd.ms-excel
Y-a-t-il un moyen de faire disparaitre ce message.
Merci pour votre aide

[Ditch]

Vous utilisez la technique suivante?

http://webman.developpez.com/article.../aspnet2excel/

[gbrualla]

Je suis allé voir le code que vous m'avez recommandé. Le code que j'ai utilisé est pratiquement le même(voir ci-dessous).
_______________________________________________________________

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
Dim persist As New Persistance
        Dim tableMembres As DataTable
        Dim maLigne As DataRow
        tableMembres = persist.LireTous()
        Dim TabExcel As String
        TabExcel = "<table border=1><tr>"
        TabExcel &= "<td><b>NOM</b></td><td><b>PRENOM</b></td>"
        TabExcel &= "<td><b>Adresse</b></td><td><b>Adr. suite</b></td>"
        TabExcel &= "<td><b>Code postal</b></td><td><b>Ville</b></td>"
        TabExcel &= "<td><b>Tel. fixe</b></td><td><b>Tel.mobile</b></td>"
        TabExcel &= "<td><b>Adresse mail</b></td></tr>"
        For Each maLigne In tableMembres.Rows
            TabExcel &= "<tr><td>" & Server.HtmlEncode(maLigne("nom")) & "</td><td>" & Server.HtmlEncode(maLigne("prenom")) & "</td>"
            TabExcel &= "<td>" & Server.HtmlEncode(maLigne("rue1")) & "</td><td>" & Server.HtmlEncode(maLigne("rue2")) & "</td>"
            TabExcel &= "<td>" & Server.HtmlEncode(maLigne("codepostal")) & "</td><td>" & Server.HtmlEncode(maLigne("ville")) & "</td>"
            TabExcel &= "<td>" & Server.HtmlEncode(maLigne("telefixe")) & "</td><td>" & Server.HtmlEncode(maLigne("telemobile")) & "</td>"
            TabExcel &= "<td>" & Server.HtmlEncode(maLigne("adressemail")) & "</td></tr>"
        Next
        TabExcel &= "</table>"
        Response.Buffer = True
        Response.ContentEncoding = System.Text.Encoding.Default
        Response.ContentType = "application/vnd.ms-excel"
        Response.Write(TabExcel)
        Response.Flush()
        Response.End()

____________________________________________________________

Je ne vois pas de différences fondamentales, sauf si votre analyse trouve le contraire...
Merci pour votre aide.

[JauB]

moi j'utilisais la fonction pour exporter un DataGrid suivante et tout marchait bien :

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
 
 Private Sub exportExcel()
        Response.Clear()
        Dim stringWrite = New System.IO.StringWriter
        Dim htmlWrite = New System.Web.UI.HtmlTextWriter(stringWrite)
        Response.AddHeader("content-disposition", "attachment;filename=myFile.xls")
        Response.Charset = ""
        Response.Cache.SetCacheability(HttpCacheability.NoCache)
        Response.ContentType = "application/vnd.xls"
        'System.IO.StringWriter(stringWrite = New System.IO.StringWriter)
        'System.Web.UI.HtmlTextWriter(htmlWrite = New HtmlTextWriter(stringWrite))
        myDataGrid.RenderControl(htmlWrite)
        Response.Write(stringWrite.ToString())
        Response.End()
    End Sub

je ne pense pas que ça soit difficile pour l'adapter à ton cas!
Bon courage