Exporter en vb.net cellule datagridview vers Excel avec les même couleur que la Datagrid !

**didpoy** · 18/09/2017, 10h38

Bonjour

J'aimerai pouvoir exporter une datagridview vers Excel; ce que j'arrive avec le code proposé plus bas; mais aussi exporter les couleurs des cellules de Datagrid que je retrouverai dans Excel !

Si c'est possible, merci de votre aide...

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
50
51
52
53
54
55
56
57
58
59
60
 
Dim ExcelApp As Object, ExcelBook As Object
        Dim ExcelSheet As Object
        Dim i As Integer
        Dim j As Integer
 
        ' Minimum à 1 
        ProgressBar1.Minimum = 0
        ' Maximum= nombre total de fichier à copier.
        'ProgressBar1 = filenames.Length
        ' On initialise la ProgressBar.
        ProgressBar1.Value = 1
        ' On indique le pas.
        ProgressBar1.Step = 6
        ProgressBar1.Style = ProgressBarStyle.Blocks
        ProgressBar1.Visible = True
 
        'create object of excel
        ExcelApp = CreateObject("Excel.Application")
        ExcelBook = ExcelApp.WorkBooks.Add
        ExcelSheet = ExcelBook.WorkSheets(1)
 
        With ExcelSheet
            For Each col As DataGridViewColumn In Me.DataGridView1.Columns
                ExcelSheet.Cells(1, col.Index + 1) = col.HeaderText.ToString
                For i = 1 To Me.DataGridView1.RowCount - 1
                    ExcelSheet.cells(i + 1, 1) = Me.DataGridView1.Rows(i - 1).Cells("numero_offre").Value
                    For j = 1 To DataGridView1.Columns.Count - 1
                        'If DataGridView1.Rows(i - 1).Cells(j).Value = "" Then DataGridView1.Rows(i - 1).Cells(j).Value = "/"
                        ExcelSheet.cells(i + 1, j + 1) = DataGridView1.Rows(i - 1).Cells(j).Value
                    Next
                Next
                ProgressBar1.PerformStep()
            Next
        End With
        ExcelApp.Visible = True
        ExcelSheet = Nothing
        ExcelBook = Nothing
        ExcelApp = Nothing
 
        ' Save Excel (XLSX) to a file.
        'ExcelBook.Saveas("D:\Mes Documents\Visual Studio 2015\Projects\EMPLOI_Suivi\WindowsApplication1\bin\Debug\export\Export_Excel.xlsx")
 
        System.Threading.Thread.Sleep(3000)
        ProgressBar1.Visible = False
        MessageBox.Show("Excel créé:" & Chr(10) &
                        "- Sauvegardez le dans le Dossier de votre choix !")
        If System.IO.File.Exists(My.Application.Info.DirectoryPath + "\export\Export_Excel.xlsx") Then
            IO.File.Delete(My.Application.Info.DirectoryPath + " \export\Export_Excel.xlsx")
        End If
        ' Minimum à 1 
        ProgressBar1.Minimum = 0
        ' Maximum= nombre total de fichier à copier.
        'ProgressBar1 = filenames.Length
        ' On initialise la ProgressBar.
        ProgressBar1.Value = 1
        ' On indique le pas.
        ProgressBar1.Step = 6
        ProgressBar1.Style = ProgressBarStyle.Blocks
        ProgressBar1.Visible = False

**J@ckHerror** · 18/09/2017, 17h09

Bonjour,

Et quel est le problème ? Tu as juste à récupérer la couleur de la cellule et de la donner à celle d'excel, tout comme tu le fais déjà pour la valeur

?!?

J@ck.

**didpoy** · 18/09/2017, 18h04

Oui c'est exactement ça ...

Mais je ne réussi pas à trouver le bon code pour cela !

**J@ckHerror** · 19/09/2017, 08h33

https://stackoverflow.com/questions/...-sharp#6059374

https://stackoverflow.com/questions/...-using-c-sharp

Hésite pas à chercher en anglais les résultats sont souvent bien plus nombreux et pertinent.

J@ck.

**didpoy** · 19/09/2017, 09h51

Ok je vais voir si je trouve mon bonheur.

Oui cela aide pour colorer du coté Excel et c'est bien utile... Mais cela ne me donne comment on récupère la couleur dans la DataGrid !!!

Je veux récupérer seulement la couleur de la DataGrid et non tester la valeur de la cellule car il y a un grand nombre de tests pour obtenir la couleur selon la ou les valeurs incriminées afin d'éviter d'alourdir le code ....

Sinon je reviendrai

Merci.

**J@ckHerror** · 19/09/2017, 10h50

Mouai...

Je t'aurais bien répondu que normalement si tu arrive à mettre la couleur dans la cellule de ta dgv alors tu devrais savoir la récupérer

...
Ou même je t'aurais renvoyé vers google ... tu demande à google avant de poster ? parce que sans être méchant la recherche d'une info fait parti intégrante du métier de développeur.... et franchement la j'ai un doute, en demandant à google ce que tu veut j'ai eu a chaque fois la ligne de code dans le premier lien ...

D'ailleurs j'utilise souvent DuckDuck, et ce qui est génial avec lui c'est qu'il te pose les extraits de code direct dans l'écran des résultats, comme ça

Bon code,
J@ck.

**ZenZiTone** · 19/09/2017, 10h56

Envoyé par J@ckHerror

D'ailleurs j'utilise souvent DuckDuck, et ce qui est génial avec lui c'est qu'il te pose les extraits de code direct dans l'écran des résultats, comme ça

Merci pour l'info

@didpoy, sinon, pourquoi ne pas utiliser un modèle de doc Excel, qui serait déjà formaté et contiendrait les règles d'affichage des résultats?

**didpoy** · 19/09/2017, 17h09

Re

Merci pour les infos, je vais voir ce que je peux faire avec votre et je reviendrai donner mes résultats...

Merci.

**didpoy** · 20/09/2017, 15h12

Re à tous

Voilà un code complet qui fonctionne pour exporter une DataGridView vers Excel avec les couleurs de la DataGrid (si ça peut servir!!!):

A NOTER: Le test des cellules Blanches est un peu "bourrin" mais cela fonctionne

Je vois aussi pour faire la même chose sur un export vers Pdf....

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
 
      ' Minimum à 1 
        ProgressBar1.Minimum = 0
        ' Maximum= nombre total de fichier à copier.
        'ProgressBar1 = filenames.Length
        ' On initialise la ProgressBar.
        ProgressBar1.Value = 1
        ' On indique le pas.
        ProgressBar1.Step = 6
        ProgressBar1.Style = ProgressBarStyle.Blocks
        ProgressBar1.Visible = True
 
        Dim ExcelApp As Object, ExcelBook As Object
        Dim ExcelSheet As Object
        Dim i As Integer
        Dim j As Integer
 
        'create object of excel
        ExcelApp = CreateObject("Excel.Application")
        ExcelBook = ExcelApp.WorkBooks.Add
        ExcelSheet = ExcelBook.WorkSheets(1)
        ProgressBar1.PerformStep()
 
        ' Export Excel
        Dim c As Color
        With ExcelSheet
            For Each col As DataGridViewColumn In Me.DataGridView1.Columns
                ExcelSheet.Cells(1, col.Index + 1) = col.HeaderText.ToString
                For i = 1 To Me.DataGridView1.RowCount - 1
                    ExcelSheet.cells(i + 1, 1) = Me.DataGridView1.Rows(i - 1).Cells("numero_offre").Value
                    For j = 0 To DataGridView1.Columns.Count - 1
                        ProgressBar1.PerformStep()
                        ExcelSheet.cells(i + 1, j + 1) = DataGridView1.Rows(i - 1).Cells(j).Value
                        c = DataGridView1.Rows(i - 1).Cells(j).Style.BackColor
                        Dim value As Integer = c.ToArgb()
                        Dim hex As String = value.ToString("X6")
                        If hex = "000000" Then GoTo suite_excel
                        ExcelSheet.Cells(i + 1, j + 1).Interior.Color = System.Drawing.ColorTranslator.ToOle(c)
suite_excel:
                    Next
                Next
                ProgressBar1.PerformStep()
            Next
        End With
        ExcelApp.Visible = True
        ExcelSheet = Nothing
        ExcelBook = Nothing
        ExcelApp = Nothing

Merci pour votre aide bien utile à tous...

Cordialement.

A SAVOIR: Si on peut tout trouver tout via Google, je ne vois pas l'utilité de ce forum !!!!

**ZenZiTone** · 20/09/2017, 15h36

Envoyé par didpoy

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
        ' Export Excel
        Dim c As Color
        With ExcelSheet
            For Each col As DataGridViewColumn In Me.DataGridView1.Columns
                ExcelSheet.Cells(1, col.Index + 1) = col.HeaderText.ToString
                For i = 1 To Me.DataGridView1.RowCount - 1
                    ExcelSheet.cells(i + 1, 1) = Me.DataGridView1.Rows(i - 1).Cells("numero_offre").Value
                    For j = 0 To DataGridView1.Columns.Count - 1
                        ProgressBar1.PerformStep()
                        ExcelSheet.cells(i + 1, j + 1) = DataGridView1.Rows(i - 1).Cells(j).Value
                        c = DataGridView1.Rows(i - 1).Cells(j).Style.BackColor
                        Dim value As Integer = c.ToArgb()
                        Dim hex As String = value.ToString("X6")
                        If hex <> "000000" Then GoTo suite_excel
                        ExcelSheet.Cells(i + 1, j + 1).Interior.Color = System.Drawing.ColorTranslator.ToOle(c)
                        End If
suite_excel:
                    Next
                Next
                ProgressBar1.PerformStep()
            Next
        End With

Les GoTo sont a proscrire

Envoyé par didpoy

A SAVOIR: Si on peut tout trouver tout via Google, je ne vois pas l'utilité de ce forum !!!!

A SAVOIR : Si on trouve des résultats dans Google, c'est que des gens se sont posés les question et ont trouvé des réponses sur des forums comme celui-ci !!!!

**didpoy** · 20/09/2017, 16h15

re

ok ZenZiTone bien vu le goto et merci.

Bien aussi le moteur Duckduck que je ne connaissais pas.

Bon je cherche maintenant à exporter les couleurs datagrid vers pdf ... pas évident non plus

**ZenZiTone** · 20/09/2017, 16h31

Envoyé par didpoy

Bon je cherche maintenant à exporter les couleurs datagrid vers pdf ... pas évident non plus

Comment génères-tu ton PDF? Et surtout, a-t-il la même forme que ton Excel?

**didpoy** · 20/09/2017, 16h47

J'utilise itextSharp et le code suivant:

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
50
51
52
 
Dim pdfTable As New PdfPTable(DataGridView1.ColumnCount)
        pdfTable.DefaultCell.Padding = 1
        pdfTable.WidthPercentage = 100
        pdfTable.HorizontalAlignment = Element.ALIGN_MIDDLE
        pdfTable.DefaultCell.BorderWidth = 1
        Dim font12Boldblack As New iTextSharp.text.Font(iTextSharp.text.Font.FontFamily.TIMES_ROMAN, 12.0F, iTextSharp.text.Font.BOLD, BaseColor.BLACK)
        Dim font9Normal As New iTextSharp.text.Font(iTextSharp.text.Font.FontFamily.TIMES_ROMAN, 9.0F, iTextSharp.text.Font.NORMAL, BaseColor.BLACK)
        Dim font9BoldBlack As New iTextSharp.text.Font(iTextSharp.text.Font.FontFamily.TIMES_ROMAN, 9.0F, iTextSharp.text.Font.BOLD, BaseColor.BLACK)
        Dim ptable As New iTextSharp.text.Font(iTextSharp.text.Font.FontFamily.TIMES_ROMAN, 8.0F, iTextSharp.text.Font.BOLD, BaseColor.BLACK)
 
        'Adding Header row
        For Each column As DataGridViewColumn In DataGridView1.Columns
            Dim cell As New PdfPCell(New Phrase(column.HeaderText, ptable))
            cell.BackgroundColor = New iTextSharp.text.BaseColor(240, 240, 240)
            pdfTable.AddCell(cell)
        Next
 
        i = -1
        For Each row As DataGridViewRow In DataGridView1.Rows
            i = i + 1
            ProgressBar1.PerformStep()
        Next
 
        Dim jj As Integer
        jj = -1
 
        'Adding DataRow
        For Each row As DataGridViewRow In DataGridView1.Rows
            jj = jj + 1
            If jj <> i Then
                For Each cell As DataGridViewCell In row.Cells
                    pdfTable.AddCell(New Phrase(cell.Value.ToString(), font9Normal))
                Next
            End If
            ProgressBar1.PerformStep()
        Next
 
        'Exporting to PDF
        Dim folderPath As String = My.Application.Info.DirectoryPath + "\export\"
        If Not Directory.Exists(folderPath) Then
            Directory.CreateDirectory(folderPath)
        End If
 
        Using stream As New FileStream(folderPath & "Export_Pdf.pdf", FileMode.Create)
            Dim pdfDoc As New Document(PageSize.A4.Rotate, 10.0F, 10.0F, 10.0F, 0.0F)
            PdfWriter.GetInstance(pdfDoc, stream)
            pdfDoc.Open()
            pdfDoc.Add(New Phrase(New Chunk(nom & " " & prenom & referant & numero, font12Boldblack)))
            pdfDoc.Add(pdfTable)
            pdfDoc.Close()
            stream.Close()

**didpoy** · 22/09/2017, 11h20

Re

Après maintes recherches et maintes essai, je ne trouve pas de solutions pour colorer l'export Pdf suivant ma DataGridView !!!!!

Mais je continue de chercher

**Feliperennes** · 31/10/2017, 11h11

Bonjour et merci pour ces contributions.
J'ai utilisé le code indiqué ci-dessus pour un export excel.
Mais comment exclure de l'export une colonne invisible du DataGridView ?

**didpoy** · 31/10/2017, 12h45

Re

voici le code final que j'ai utilisé pour coloriser le PDF:

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
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
 
            Dim pdfTable As New PdfPTable(DataGridView1.ColumnCount)
            pdfTable.DefaultCell.Padding = 1
            pdfTable.WidthPercentage = 100
            pdfTable.HorizontalAlignment = Element.ALIGN_MIDDLE
            pdfTable.DefaultCell.BorderWidth = 1
            Dim font12Boldblack As New iTextSharp.text.Font(iTextSharp.text.Font.FontFamily.TIMES_ROMAN, 9.0F, iTextSharp.text.Font.BOLD, BaseColor.BLACK)
            Dim font9Normal As New iTextSharp.text.Font(iTextSharp.text.Font.FontFamily.TIMES_ROMAN, 8.0F, iTextSharp.text.Font.NORMAL, BaseColor.BLACK)
            Dim font9BoldBlack As New iTextSharp.text.Font(iTextSharp.text.Font.FontFamily.TIMES_ROMAN, 8.0F, iTextSharp.text.Font.BOLD, BaseColor.BLACK)
            Dim ptable As New iTextSharp.text.Font(iTextSharp.text.Font.FontFamily.TIMES_ROMAN, 8.0F, iTextSharp.text.Font.BOLD, BaseColor.BLACK)
            'Adding Header row
            For Each column As DataGridViewColumn In DataGridView1.Columns
                Dim cell As New PdfPCell(New Phrase(column.HeaderText, ptable))
                cell.BackgroundColor = New iTextSharp.text.BaseColor(240, 240, 240)
                pdfTable.AddCell(cell)
            Next
 
            i = -1
            For Each row As DataGridViewRow In DataGridView1.Rows
                i = i + 1
            Next
 
            'Affichage des Cellules colorées
            Dim c As Color
            For i = 1 To Me.DataGridView1.RowCount - 1
                For j = 0 To DataGridView1.Columns.Count - 1
                    Dim cellText As String = DataGridView1.Rows(i - 1).Cells(j).Value.ToString
                    Dim cell As New PdfPCell(New Phrase(cellText, font9Normal))
                    'cell.FixedHeight = 25.0F
                    c = DataGridView1.Rows(i - 1).Cells(j).Style.BackColor
                    Dim aRGB As Integer = c.ToArgb
                    Dim RED, GREEN, BLUE As Integer
                    RED = Color.FromArgb(aRGB).R
                    GREEN = Color.FromArgb(aRGB).G
                    BLUE = Color.FromArgb(aRGB).B
                    Dim value As Integer = c.ToArgb()
                    Dim hex As String = value.ToString("X6")
                    If hex <> "000000" Then
                        cell.BackgroundColor = New BaseColor(RED, GREEN, BLUE)
                    End If
                    pdfTable.AddCell(cell)
                Next
            Next
 
            'Exporting to PDF
            Dim folderPath As String = My.Application.Info.DirectoryPath + "\export\"
            If Not Directory.Exists(folderPath) Then
                Directory.CreateDirectory(folderPath)
            End If
            Using stream As New FileStream(folderPath & "Export_Pdf.pdf", FileMode.Create)
                Dim pdfDoc As New Document(PageSize.A4.Rotate, 10.0F, 10.0F, 10.0F, 0.0F)
                PdfWriter.GetInstance(pdfDoc, stream)
                pdfDoc.Open()
                ProgressBar1.PerformStep()
                pdfDoc.Add(New Phrase(New Chunk(titre, font12Boldblack)))
                pdfDoc.Add(pdfTable)
                Dim img As iTextSharp.text.Image = iTextSharp.text.Image.GetInstance("images\image.jpg")
                img.ScalePercent(50.0F)
                img.ScaleToFit(250.0F, 250.0F)
                pdfDoc.Add(img)
                pdfDoc.Add(New Phrase(New Chunk("© Copyright 2017 - Didier POHU - EMPLOI Suivi®  -  ", font9BoldBlack)))
                pdfDoc.Add(New Phrase(New Chunk("Site EMPLOI Suivi : http://contact72.free.fr//sites/EMPLOI_Suivi/", font9BoldBlack)))
                pdfDoc.Close()
                stream.Close()
                Process.Start(folderPath & "Export_Pdf.pdf")
            End Using
            Menu_Base.Label89.Text = "! EXPORT RÉUSSI !"

Sinon pour ta colonne si c'est toute une colonne, peut-être connaissez-vous la position de la colonne sachant que la première de la datagrid est = à 0 et tester sur:
DataGridView1.Rows(i - 1).Cells(j).Value.ToString

où j = la position de votre colonne !!!!!

bon courage...

**Feliperennes** · 31/10/2017, 17h47

Bonjour didpoy

Il me manque des morceaux pour profiter de ton travail sur la création d'un pdf (je suis un peu débutant).

faut-il télécharger iTextSharp et si oui quel est le lien de téléchargement
Ensuite faut-il l'importer dans Imports.system (quelle est la syntaxe ?)

Merci d'avance pour ta réponse

**didpoy** · 31/10/2017, 20h38

re

pour télécharger la dll isharp:
https://www.aspsnippets.com/Articles...and-VBNet.aspx

pour l'importer dans ton projet :
https://msdn.microsoft.com/fr-fr/lib...v=vs.100).aspx

Sinon, de bon cours simple pour vb.net:
http://plasserre.developpez.com/cours/vb-net/

Bon courage

**Feliperennes** · 31/10/2017, 22h03

Merci pour les infos
J'ai réussi à finaliser l'export pdf.

Sais-tu comment faire des bordures pour l'export excel ?

**didpoy** · 01/11/2017, 07h59

Re

Bonne question, je n'ai pas encore fait, je vais y réfléchir car j'en ai besoin aussi

A plus...

Exporter en vb.net cellule datagridview vers Excel avec les même couleur que la Datagrid !

VB.NET

Discussions similaires

Partager

Partager