GENERER UN FICHIER EXCEL

Question

Bonjour.
Je suis étudiant débutant avec Visual Basic .je rencontre un  problème avec mes lignes de codes, car j'ai  créer un fichier excel depuis un bouton et  importes les données de ce datagridview vers ce fichiers excel mais alors a chaque fois que je veux générer ce fichier il me fait un flash back (s'ouvre et se referme en même temps ) . j'arrive pas a voir l'erreur dans mon programme , je vous en prie de m'aider , s'il vous plait ceci  me stresse beaucoup ,j'arrive pas a trouver une solution depuis des jours .voici mon code en gros: 
Private Sub BtnGenererFichierExcel_Click(sender As Object, e As EventArgs) Handles BtnGenererFichierExcel.Click

Dim excel As Microsoft.Office.Interop.Excel.Application

Try
            excel = New Microsoft.Office.Interop.Excel.Application
            excel.Workbooks.Open("C:\Users\wayne\Desktop\ClasseursTexts .xlsx")
            Dim i As Integer, j As Integer
            Dim diff As Integer = 1
            ' if you want column header from dgv elese omit the block  
            ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''  
            For j = 0 To DataGridViewFichier.ColumnCount - 4
                excel.Worksheets(1).cells(1, j + 1) = DataGridViewFichier.Columns(j).Name
            Next
            diff += 1
                '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''  
                For i = 1 To DataGridViewFichier.RowCount - 1

If DataGridViewFichier.Rows(i).IsNewRow = False Then
                    For j = 0 To DataGridViewFichier.ColumnCount - 1

excel.Worksheets(1).cells(i + 24, j + 1) = DataGridViewFichier.Item(j, i).Value  'i+22, starts from 22nd rows, and j+8, starts from 8th column
                    Next
                    End If
            Next

excel.Application.Visible = True
            excel.Worksheets(1).select()
            excel.ActiveWorkbook().Save()
            excel.Workbooks.Close()
            excel.Quit()
            excel = Nothing
        Catch ex As System.Runtime.InteropServices.COMException
            MessageBox.Show("Error accessing Excel: " + ex.ToString())
        Catch ex As Exception
            MessageBox.Show("Error: " + ex.ToString())
        End Try

End Sub

vb95 · Answer

bonjour
Sans certitude
Ces 3 lignes ferment le classeur, font quitter Excel
Donc tu ne vois plus Excel
excel.Workbooks.Close()excel.Quit()excel = Nothing  
Crées-toi un bouton de commande sur ta Form VB pour fermer Excel

wayne2017 · Answer

C'est génial tu as raison , ça fonctionne .merci beaucoup pour l'aide tu es un champion :)

wayne2017 · Answer

merci beaucoup pour l'aide ,il fonctionne parfaitement.
j'ai une question je ne sait pas comment faire pour déplacer toutes les premières lignes de  la feuille excel pour le ramener vers le bas avec une ligne de code dans mon programme VB, donc a chaque fois que je vais devoir générer un fichier excel via ma datagridview je voudrais que toutes les premières lignes qui identifie les données de ma datagridview ne restent plus a la toute première ligne de la feuille excel . comment le faire s'il vous plait?

ucfoutu · Answer

je ne sait pas comment faire pour déplacer toutes les premières lignes de la feuille excel pour le ramener vers le bas

Le faire depuis VB.Net = instructions VBA à passer depuis VB.Net.
Quelles seraient ces instructions depuis VBA (directement, donc). Si tu ne les connais pas non plus ==>> question à poser dans le forum VBA/Excel.

cs_Le Pivert · Answer

Bonjour,
voir ceci:
http://codes-sources.commentcamarche.net/source/101574-import-excel-dans-datagridview-en-vb-net
'Deplacer up down
    Private Sub MoveRow(ByVal i As Integer)
        Try
            If (DataGridView1.SelectedCells.Count > 0) Then
                Dim curr_index As Integer = DataGridView1.CurrentCell.RowIndex
                Dim curr_col_index As Integer = DataGridView1.CurrentCell.ColumnIndex
                Dim curr_row As DataGridViewRow = DataGridView1.CurrentRow
                DataGridView1.Rows.Remove(curr_row)
                DataGridView1.Rows.Insert(curr_index + i, curr_row)
                DataGridView1.CurrentCell = DataGridView1(curr_col_index, curr_index + i)
            End If
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try
    End Sub
    'monter item
    Private Sub cmdup_Click(sender As System.Object, e As System.EventArgs) Handles cmdup.Click
        If DataGridView1.CurrentCell.RowIndex = 0 Then
            Exit Sub
        End If
        MoveRow(-1) ' move up in the datagridview (row index is 1 less)
        cmdsave.Enabled = True
        modif = True
    End Sub
    'descendre item
    Private Sub cmddown_Click(sender As System.Object, e As System.EventArgs) Handles cmddown.Click
        If DataGridView1.CurrentCell.RowIndex = DataGridView1.Rows.Count - 2 Then
            Exit Sub
        End If
        MoveRow(1) ' move down in the datagridview (row index is 1 more)
        cmdsave.Enabled = True
        modif = True
    End Sub 
@+ Le Pivert

GENERER UN FICHIER EXCEL

5 réponses

Votre réponse

Discussions similaires