IMPORTER/EXPORTER FACILEMENT VOS DONNÉES SOUS DIFFÉRENTS FORMATS

Imports System.IO
Imports Addy.Utilities


'==================================================================================
' Englobe les fonctionnalités d'échange de données avec les applications les plus
' courantes. Gère l'importation et l'exportation du contenu d'un DataSet ADO.NET
' sous l'un des formats suivants: XML, CSV, Document Word et Classeur Excel.
'==================================================================================
Public Class DataExchange

#Region " Constantes "

	Const WORD_MAX_ROWS As Integer = 32767
	Const EXCEL_MAX_ROWS As Integer = 65535
	Const DEFAULT_FIELD_SEPARATOR As Char = ";"c

#End Region

#Region " Export "

#Region " Generique "

    ' Permet d'exporter les données d'un DataSet vers un fichier.
    ' L'extension du nom de fichier permet de déviner le format.
    Public Shared Sub Export(ByVal dataSet As DataSet, ByVal fileName As String)
        Dim ext As String = Path.GetExtension(fileName)
        Select Case ext.ToLower()
            Case ".xml"
                ExportXml(dataSet, fileName)
            Case ".csv"
                ExportCSV(dataSet.Tables(0), fileName)
            Case ".doc"
                ExportWord(dataSet, fileName)
            Case ".xls"
                ExportExcel(dataSet, fileName)
            Case Else
                Throw New InvalidOperationException("Ce format de fichier n'est pas pris en charge")
        End Select
    End Sub

#End Region

#Region " XML "

    ' Exporte les données d'un DataSet vers un document XML
    Public Shared Sub ExportXml(ByVal dataSet As DataSet, ByVal fileName As String)
        dataSet.WriteXml(fileName)
    End Sub

    ' Exporte une plage de données d'un DataTable vers un document XML
    Public Shared Sub ExportXml(ByVal dataTable As DataTable, ByVal fileName As String, ByVal startIndex As Integer, ByVal rowCount As Integer)
        ' On crée un DataSet et on y met une copie du DataTable
        Dim dataSet As New dataSet(dataTable.TableName)
        Dim dtClone As dataTable = dataTable.Clone()
        dataSet.Tables.Add(dtClone)

        ' Par la suite, on transfarère une copie des lignes à exporter dans la copie du DataTable
        Dim i As Integer = startIndex
        Dim n As Integer = Math.Min(startIndex + rowCount, dataTable.Rows.Count)

        While i < n
            dtClone.ImportRow(dataTable.Rows(i))
            i += 1
        End While

        ' On termine en enregistrant le tout au format XML
        dataSet.WriteXml(fileName)
    End Sub

    ' Exporte toutes les données d'un DataTable vers un document XML
    Public Shared Sub ExportXml(ByVal dataTable As DataTable, ByVal fileName As String)
        ExportXml(dataTable, fileName, 0, Integer.MaxValue)
    End Sub

#End Region

#Region " CSV "

    ' Exporte une plage de données d'un DataTable vers un fichier texte
    ' Chaque enregistrement sera écrit sur une seule ligne. Un caractère spécial sera
    ' utilisé comme séparatier de champs. Un autre sera utilisé pour entourer les champs.
    Public Shared Sub ExportCSV(ByVal dataTable As DataTable, ByVal fileName As String, _
            ByVal startIndex As Integer, ByVal rowCount As Integer, ByVal fieldSeparator As Char, _
            ByVal fieldContainer As Char)

        ' Ouvrir un fichier texte en écriture
        Dim csvFile As New StreamWriter(fileName)
        Dim n As Integer = dataTable.Columns.Count

        ' Ecrire les noms de colonnes sur la première ligne en les séparant par des points-virgules
        For j As Integer = 0 To n - 2
			csvFile.Write(DataFormat.QuotedString(dataTable.Columns(j).ColumnName, fieldContainer))
			csvFile.Write(fieldSeparator)
		Next j

		csvFile.WriteLine(DataFormat.QuotedString(dataTable.Columns(n - 1).ColumnName, fieldContainer))

        ' Ecrire chaque enregistrement par la suite en respectant la même logique
        Dim i As Integer = startIndex
        Dim m As Integer = Math.Min(startIndex + rowCount, dataTable.Rows.Count)

        While i < m
            For j As Integer = 0 To n - 2
				csvFile.Write(DataFormat.QuotedString(Convert.ToString(dataTable.Rows(i)(j)), fieldContainer))
				csvFile.Write(fieldSeparator)
			Next j

			csvFile.WriteLine(DataFormat.QuotedString(Convert.ToString(dataTable.Rows(i)(n - 1)), fieldContainer))
            i += 1
        End While

        ' Fermer le fichier
        csvFile.Close()
    End Sub

    ' Une surchage pour laquelle fieldSeparator vaut le poit-virgule tandis que fieldContainer est le caractère nul (donc pas de conteneur de champs)
    Public Shared Sub ExportCSV(ByVal dataTable As DataTable, ByVal fileName As String, ByVal startIndex As Integer, ByVal rowCount As Integer)
        ExportCSV(dataTable, fileName, startIndex, rowCount, DEFAULT_FIELD_SEPARATOR, Char.MinValue)
    End Sub

    ' Une surchage sans borne (on exporte toute la table)
    Public Shared Sub ExportCSV(ByVal dataTable As DataTable, ByVal fileName As String, ByVal fieldSeparator As Char, ByVal fieldContainer As Char)
        ExportCSV(dataTable, fileName, 0, Integer.MaxValue, fieldSeparator, fieldContainer)
    End Sub

    ' Une surchage sans borne et pour laquelle fieldSeparator vaut le poit-virgule tandis que fieldContainer est le caractère nul
    Public Shared Sub ExportCSV(ByVal dataTable As DataTable, ByVal fileName As String)
        ExportCSV(dataTable, fileName, 0, Integer.MaxValue, DEFAULT_FIELD_SEPARATOR, Char.MinValue)
    End Sub

    ' Exporte les données d'un DataSet vers un ensemble de fichiers texte à valeurs separées par des caractères spéciaux.
    ' Chaque table est exportée vers un fichier distinct. Tous ces fichiers sont regroupés dans le même dossier
    Public Shared Sub ExportCSV(ByVal dataSet As DataSet, ByVal dirName As String, ByVal fieldSeparator As Char, ByVal fieldContainer As Char)
        ' On crée le répertoire du groupe...
        If Not Directory.Exists(dirName) Then
            Directory.CreateDirectory(dirName)
        End If

        ' ...et on exporte chaque jeu d'enregistrements du groupe de données vers un fichier qui porte son nom
        For Each table As DataTable In dataSet.Tables
            ExportCSV(table, Path.Combine(dirName, table.TableName & ".csv"), fieldSeparator, fieldContainer)
        Next
    End Sub

    ' Exporte les données d'un DataSet vers un ensemble de fichiers texte à valeurs separées par des point-virgules.
    Public Shared Sub ExportCSV(ByVal dataSet As DataSet, ByVal dirName As String)
        ExportCSV(dataSet, dirName, DEFAULT_FIELD_SEPARATOR, Char.MinValue)
    End Sub

#End Region

#Region " Word "

    ' Exporte les données d'un DataSet vers un document Word
    Public Shared Sub ExportWord(ByVal dataSet As DataSet, ByVal fileName As String)
        ' Lancer Word en arrière-plan
        Dim wordApp As New Word.ApplicationClass

        Try
            ' Créer un nouveau document
            Dim document As Word.Document = wordApp.Documents.Add()

            ' Définir Arial (taille 10) comme police par défaut du document
            Dim range As Word.Range = document.Content
            range.Font.Name = "Arial"
            range.Font.Size = 10

            ' Exporter chaque DataTable dans un tableau spécifique
            For Each dataTable As dataTable In dataSet.Tables
                ExportWord(dataTable, document, range, 0, WORD_MAX_ROWS)
                SkipToNextParagraph(range)
            Next

            ' Enregistrer le document sous le chemin spécifié
			document.SaveAs(CObj(fileName))
        Catch ex As System.Runtime.InteropServices.COMException
            Throw New ApplicationException(ex.Message, ex)
        Finally
            ' Quitter Word
            wordApp.Quit()
        End Try
    End Sub

    ' Exporte une plage de données d'un DataTable vers un document Word
    Public Shared Sub ExportWord(ByVal dataTable As DataTable, ByVal fileName As String, ByVal startIndex As Integer, ByVal rowCount As Integer)
        ' Lancer Word en arrière-plan
        Dim wordApp As New Word.ApplicationClass

        Try
            ' Créer un nouveau document
            Dim document As Word.Document = wordApp.Documents.Add()

            ' Définir Arial (taille 10) comme police par défaut du document
            Dim range As Word.Range = document.Content
            range.Font.Name = "Arial"
            range.Font.Size = 10

            ' Exporter la plage de DataRows dans un tableau spécifique
            ExportWord(dataTable, document, range, startIndex, rowCount)

            ' Enregistrer le document sous le chemin spécifié
			document.SaveAs(CObj(fileName))
        Catch ex As System.Runtime.InteropServices.COMException
            Throw New ApplicationException(ex.Message, ex)
        Finally
            ' Quitter Word
            wordApp.Quit()
        End Try
    End Sub

    ' Exporte toutes les données d'un DataTable vers un document Word
    Public Shared Sub ExportWord(ByVal dataTable As DataTable, ByVal fileName As String)
        ExportWord(dataTable, fileName, 0, WORD_MAX_ROWS)
    End Sub

    ' Définit la logique d'exportation vers Word à proprement parler
    Private Shared Sub ExportWord(ByVal dataTable As DataTable, ByVal document As Word.Document, ByVal range As Word.Range, ByVal startIndex As Integer, ByVal rowCount As Integer)
        Dim m As Integer = Math.Min(rowCount, WORD_MAX_ROWS - 2)
        Dim n As Integer = dataTable.Columns.Count

        With document.Tables.Add(range, m + 2, n) ' Créer un tableau dans la plage "range"
            .Cell(1, 1).Merge(.Cell(1, n))  ' Fusionner toutes les cellules de la première ligne du tableau
            With .Cell(1, 1).Range          ' Mettre l'unique cellule de cette ligne en forme et lui affecter le nom du DataTable
                .Shading.BackgroundPatternColor = Word.WdColor.wdColorGray15
                .ParagraphFormat.Alignment = Word.WdParagraphAlignment.wdAlignParagraphCenter
                .Font.Size = 16
                .Bold = True
                .Text = dataTable.TableName
            End With ' Cell(1, 1).Range

            ' Les cellules de la deuxième ligne contiendront les noms de colonnes
            For i As Integer = 0 To n - 1
                With .Cell(2, i + 1).Range
                    .ParagraphFormat.Alignment = Word.WdParagraphAlignment.wdAlignParagraphCenter
                    .Bold = True
                    .Text = dataTable.Columns(i).ColumnName
                End With ' Cell(2, i + 1).Range
            Next i

            ' Les autres cellules du tableau contiendront les valeurs du DataTable
            Dim k As Integer = startIndex, l As Integer = 3
            Dim m2 As Integer = Math.Min(startIndex + m, dataTable.Rows.Count)

            While k < m2
                For j As Integer = 0 To n - 1
                    .Cell(l, j + 1).Range.Text = Convert.ToString(dataTable.Rows(k)(j))
                Next j
                l += 1
                k += 1
            End While

            .AutoFitBehavior(Word.WdAutoFitBehavior.wdAutoFitContent)       ' Ajuster la taille du tableau à son contenu
            .Borders.OutsideLineStyle = Word.WdLineStyle.wdLineStyleSingle  ' Encadrer le tableau à l'exterieur...
            .Borders.InsideLineStyle = Word.WdLineStyle.wdLineStyleSingle   ' ...et à l'intérieur (afficher le quadrillage)
        End With ' Word.Tables.Add
    End Sub

#End Region

#Region " Excel "

    ' Exporte les données d'un DataSet vers un classeur Excel
    Public Shared Sub ExportExcel(ByVal dataSet As DataSet, ByVal fileName As String)
        ' Lancer Excel en arrière-plan
        Dim excelApp As New Excel.ApplicationClass

        Try
            Dim workBook As Excel.Workbook = excelApp.Workbooks.Add()

            ' Avant de continuer, on enregistre les feuilles par défaut créées
            ' dans le classeur afin de pouvoir les supprimer plus tard
            Dim defaultSheets As New ArrayList
            For i As Integer = 1 To workBook.Sheets.Count
                defaultSheets.Add(workBook.Sheets(i))
            Next

            ' On parcourre la collection de DataTables du DataSet et
            ' on crée une feuille de calcul pour chacun
            For Each table As DataTable In dataSet.Tables
                ExportExcel(table, workBook, 0, Integer.MaxValue)
            Next

            ' Supprimer les feuilles par défaut (Feuil1...Feuil3 ou Sheet1...Sheet3 ou...)
            ' Il est impossible de les supprimer toutes au départ car un classeur Excel
            ' doit toujours conténir une feuille au moins
            For Each worksheet As Excel.Worksheet In defaultSheets
                worksheet.Delete()
            Next

            ' Sauvegarder le classeur
            workBook.SaveAs(fileName)
        Catch ex As System.Runtime.InteropServices.COMException
            Throw New ApplicationException(ex.Message, ex)
        Finally
            ' Quitter Excel
            excelApp.Quit()
        End Try
    End Sub

    ' Exporte une plage de données de DataTable vers un classeur Excel
    Public Shared Sub ExportExcel(ByVal dataTable As DataTable, ByVal fileName As String, ByVal startIndex As Integer, ByVal rowCount As Integer)
        ' Lancer Excel en arrière-plan
        Dim excelApp As New Excel.ApplicationClass

        Try
            Dim workBook As Excel.Workbook = excelApp.Workbooks.Add()

            ' Avant de continuer, on enregistre les feuilles par défaut créées
            ' dans le classeur afin de pouvoir les supprimer plus tard
            Dim defaultSheets As New ArrayList
            For i As Integer = 1 To workBook.Sheets.Count
                defaultSheets.Add(workBook.Sheets(i))
            Next

            ' On crée une feuille de calcul pour le DataTable
            ExportExcel(dataTable, workBook, startIndex, rowCount)

            ' Supprimer les feuilles par défaut (Feuil1...Feuil3 ou Sheet1...Sheet3 ou...)
            ' Il est impossible de les supprimer toutes au départ car un classeur Excel
            ' doit toujours conténir une feuille au moins
            For Each worksheet As Excel.Worksheet In defaultSheets
                worksheet.Delete()
            Next

            ' Sauvegarder le classeur
            workBook.