Bonjour,
mon programme consiste à générer un fichier xml et le compresser en format zip.
Voici le code que j'utilise pour la compression:
-----------------------------------------------------------------------------------------
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
 Private Sub compresser(ByVal fileZip As String, ByVal fileXml As String)
        Try
            '--- Definit et exécute
            Dim nomzip As String = fileZip 
            Dim ZipStream As ZipOutputStream = New ZipOutputStream(File.Create(nomzip))
            ZipStream.SetLevel(9)
            Dim i As Integer = 0
 
            Dim fichier As String = fileXml 
            Dim fs As FileStream = File.OpenRead(fichier)
            Dim buffer(fs.Length) As Byte
            fs.Read(buffer, 0, buffer.Length)
            Dim entry As ZipEntry = New ZipEntry(Path.GetFileName(fichier))
            ZipStream.PutNextEntry(entry)
            ZipStream.Write(buffer, 0, buffer.Length)
 
            '--- Termine la procédure de compression
            ZipStream.Finish()
            '--- ferme le fichier de compression
            ZipStream.Close()
 
        Catch Ex As Exception
            '--- La compression ne s'est pas bien passée, une erreur est survenue
            MessageBox.Show("Erreur lors de la création de l'archive" & Microsoft.VisualBasic.Chr(10) & "Erreur : " + Ex.Message, "Erreur")
        End Try
    End Sub
-----------------------------------------------------------------------------------------
Avant la compression, le fichier s'ouvre correctement dans le navigateur mais après la compression on m'affiche ce message:

Erreur d'analyse XML : mal formé
Emplacement : file:///C:/Users/hanane/AppData/Local/Temp/Rar$DI00.518/Dedsomanex012015.xml
Numéro de ligne 103, Colonne 30 :
</DeclarationReleveDeduction>
Est ce que quelqu'un peut m'aider à résoudre ce problème ?
Merci d'avance.