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
    Dim CheminFichier As String = ""
        Dim m_sConn1 As String = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
                    "Data Source=" & CheminFichier & " " & _
                    ";Extended Properties=""Excel 8.0;HDR=YES"""
        Dim conn1 As New System.Data.OleDb.OleDbConnection(m_sConn1)
        Dim objInfosListe As New BObject.oListeParam
        Dim dttRequete As DataTable = objInfosListe.mDttRequeteSql(sql)
        Response.Clear()
        Response.Buffer = True
        Response.Charset = ""
        Response.ContentEncoding = System.Text.Encoding.Default
        Response.Cache.SetCacheability(HttpCacheability.NoCache)
        Dim gdvEmplacement As GridView = New GridView()
        Dim NomFichier As String = libelle & "_" & Now.ToShortDateString.Replace("/", "_") & ".xls"
 
        gdvEmplacement.DataSource = dttRequete2
        gdvEmplacement.DataBind()
        'Dim ioWriter As New System.IO.StringWriter
        'Dim htmlWriter As New System.Web.UI.HtmlTextWriter(ioWriter)
        Dim htmlWriter As New System.Web.UI.HtmlTextWriter(Response.Output())
        gdvEmplacement.RenderControl(htmlWriter)
        Response.ContentType = "application/vnd.ms-excel"
        Response.AddHeader("content-disposition", "attachment;filename=" & NomFichier)
        'Response.Write(Replace(ioWriter.ToString(), "'", ""))
        'Response.Write(Replace(htmlWriter.ToString(), "'", ""))
        Response.End()

Bonjour, la génération marche bien mais ca prends beucoup de temps (plus de 10 mn pour 13144 lignes).
y a-t-il moyen de l'optimiser?
Merci.