Vb.net organisé un export excel

3soleilic -  
 3soleilic -
Bonjour,

Je voudrais savoir comment on peux limite ( organisé un export d'un datagridview (en vb.net) vers excel).

Enfaite, dans mon datagridview j'ai une cinquantaine d'enregistrement et je voudrais qu'un fois exporte dans mon fichier excel sa m'affiche sur 4 colonne au bout de la 4eme colonne sa passe a la 2emeligne ....

Merci pour toute aide

Bonne journée

3 réponses

  1. Doraken
     
    Bonjour je sais que ce thread n'est pas tout récent mais voilà une solution que j'utilise via l'interope offi.excel

    Function PushToExcelFromDT(ByVal ExcelSheet As Microsoft.Office.Interop.Excel.Worksheet, ByVal Datagrid As System.Windows.Forms.DataGridView, Optional ByVal progressbar As System.Windows.Forms.ProgressBar = Nothing) As Boolean
    Dim __result As Boolean = False
    Try
    If Not progressbar Is Nothing Then
    progressbar.Maximum = Datagrid.Rows.Count - 1
    End If
    Dim MAX8ROW As Integer = Datagrid.Rows.Count - 1
    Dim MAXCOL As Integer = Datagrid.ColumnCount - 1

    Dim intRow As Integer = 1
    For __rows As Integer = 0 To MAX8ROW Step 1

    Dim IntCol As Integer = 1
    For __col As Integer = 0 To MAXCOL Step 1

    If Datagrid.Rows(__rows).Cells(__col).Value Is Nothing Then

    Else
    ExcelSheet.Cells(intRow, IntCol).value = Datagrid.Rows(__rows).Cells(__col).Value.ToString

    End If
    IntCol = IntCol + 1

    Next
    intRow = intRow + 1
    If Not progressbar Is Nothing Then
    progressbar.Increment(1)
    End If
    Next
    __result = True
    Catch ex As Exception
    __result = False
    End Try
    Return __result
    End Function

    Function PushTitleToExcel(ByVal ExcelSheet As Microsoft.Office.Interop.Excel.Worksheet, ByVal Datagrid As System.Windows.Forms.DataGridView) As Boolean
    Dim __result As Boolean = False
    Dim cols As System.Windows.Forms.DataGridViewColumnCollection
    cols = Datagrid.Columns
    ExcelSheet.Rows("1:1").Insert()

    Dim ColCount As Integer = 1
    Try

    For Each _col As System.Windows.Forms.DataGridViewColumn In cols
    If _col.HeaderText = Nothing Then
    Else

    ExcelSheet.Cells(1, ColCount).Value = _col.HeaderText.ToString
    ColCount = ColCount + 1
    End If

    Next
    ExcelSheet.Columns.AutoFit()
    ExcelSheet.Rows.AutoFit()

    __result = True
    Catch ex As Exception
    __result = False
    End Try
    Return __result
    End Function

    Si tu as besoin de plus d'information fait signe
    1
  2. 3soleilic
     
    personne a une idée si vous plais ?? Je suis dessus depuis plusieurs jours et j'ai jamais reussi a l'organisé
    0
  3. 3soleilic
     
    Tout d'abord MERCI d'avoir répondu meme si sa date.

    J'avais finalement reussi a faire mon export du datagridview dans excel mais Maintenant je dois faire l'inverse

    J'ai une liste de nom et de prenom dans Excel que je veux importer dans un datagridview et justement le code que j'avais je n'arrive pas a le prendre et le modifier pr faire sa je vais donc regarder ton code

    Merci

    D'ailleurs si tu as une idée c'est avec plaisir
    0