Discussion :

[Krishnak]

Bonjour ! J'essaie de générer un fichier Excel enregistrable à l'aide d'EPPlus, voici mon 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
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
Dim ExistFile = Server.MapPath("~/Vues/tableau_qualif1.xlsx")
 
        Dim File = New FileInfo(ExistFile)
        Dim Connection As New SqlConnection(ConfigurationManager.ConnectionStrings("Formation_2014ConnectionString").ConnectionString)
        Dim i = 3
        Dim Query = "SELECT * FROM personnes"
 
        Using package As New ExcelPackage(File)
            package.Load(New FileStream(ExistFile, FileMode.Open))
 
            Dim workSheet As ExcelWorksheet = package.Workbook.Worksheets("Feuil1")
 
            Try
                'Ouverture de la connexion
                Connection.Open()
                'Définition de la commande et de ses paramètres
                Dim Commande As New SqlCommand(Query, Connection)
 
                'Création du SqlDataAdapter et du DataSet (En fonction de la Commande)
                Dim Adaptateur As New SqlDataAdapter(Commande)
                Dim MonDataSet As New DataSet
                Try
                    'Définition de l'adaptateur
                    Adaptateur.Fill(MonDataSet, "Personnes")
 
                    For Each Ligne As DataRow In MonDataSet.Tables("Personnes").Rows()
                        workSheet.Cells("A" & i).Value = Ligne("Prenom_personne").ToString() & " " & Ligne("Nom_personne").ToString()
                        i = i + 1
                    Next
                Catch ex As Exception
                    MsgBox(ex.Message)
                End Try
 
            Catch ex As Exception
                MsgBox(ex.Message)
            End Try
            'Fermeture de la connexion
            Connection.Close()
 
            package.Save()
 
 
            Response.Clear()
            Response.ContentType = "application/vnd.openxmlformats-officedocument.spreadsheetml.sheet"
 
            Response.BinaryWrite(package.GetAsByteArray())
            Response.[End]()
 
        End Using

Mon programme plante au niveau de

Code :

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

            Response.BinaryWrite(package.GetAsByteArray())

Avec l'erreur :

Comme l'objet Package était fermé et libéré, les opérations ne peuvent être exécutées sur cet objet ou sur un flux ouvert sur une partie de ce package.

Une idée du soucis ?

[Krishnak]

J'ai retiré la ligne

Code :

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

Package.Save()

Et tout fonctionne parfaitement