1. #1
    Membre du Club
    Inscrit en
    novembre 2007
    Messages
    108
    Détails du profil
    Informations forums :
    Inscription : novembre 2007
    Messages : 108
    Points : 41
    Points
    41

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

    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

  2. #2
    Membre expérimenté
    Homme Profil pro
    Développeur .NET
    Inscrit en
    juillet 2005
    Messages
    508
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 35
    Localisation : France, Saône et Loire (Bourgogne)

    Informations professionnelles :
    Activité : Développeur .NET
    Secteur : Distribution

    Informations forums :
    Inscription : juillet 2005
    Messages : 508
    Points : 1 352
    Points
    1 352

    Par défaut

    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.
    Pas de réponse par MP, merci.

    Penser au ça fait plaisir

  3. #3
    Membre du Club
    Inscrit en
    novembre 2007
    Messages
    108
    Détails du profil
    Informations forums :
    Inscription : novembre 2007
    Messages : 108
    Points : 41
    Points
    41

    Par défaut oui

    Oui c'est exactement ça ...

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

  4. #4
    Membre expérimenté
    Homme Profil pro
    Développeur .NET
    Inscrit en
    juillet 2005
    Messages
    508
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 35
    Localisation : France, Saône et Loire (Bourgogne)

    Informations professionnelles :
    Activité : Développeur .NET
    Secteur : Distribution

    Informations forums :
    Inscription : juillet 2005
    Messages : 508
    Points : 1 352
    Points
    1 352

    Par défaut

    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.
    Pas de réponse par MP, merci.

    Penser au ça fait plaisir

  5. #5
    Membre du Club
    Inscrit en
    novembre 2007
    Messages
    108
    Détails du profil
    Informations forums :
    Inscription : novembre 2007
    Messages : 108
    Points : 41
    Points
    41

    Par défaut

    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.

  6. #6
    Membre expérimenté
    Homme Profil pro
    Développeur .NET
    Inscrit en
    juillet 2005
    Messages
    508
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 35
    Localisation : France, Saône et Loire (Bourgogne)

    Informations professionnelles :
    Activité : Développeur .NET
    Secteur : Distribution

    Informations forums :
    Inscription : juillet 2005
    Messages : 508
    Points : 1 352
    Points
    1 352

    Par défaut

    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.
    Pas de réponse par MP, merci.

    Penser au ça fait plaisir

  7. #7
    Membre émérite
    Homme Profil pro
    Développeur .NET
    Inscrit en
    octobre 2013
    Messages
    1 366
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations professionnelles :
    Activité : Développeur .NET
    Secteur : Industrie

    Informations forums :
    Inscription : octobre 2013
    Messages : 1 366
    Points : 2 978
    Points
    2 978

    Par défaut

    Citation Envoyé par J@ckHerror Voir le message
    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?

  8. #8
    Membre du Club
    Inscrit en
    novembre 2007
    Messages
    108
    Détails du profil
    Informations forums :
    Inscription : novembre 2007
    Messages : 108
    Points : 41
    Points
    41

    Par défaut

    Re

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

    Merci.

  9. #9
    Membre du Club
    Inscrit en
    novembre 2007
    Messages
    108
    Détails du profil
    Informations forums :
    Inscription : novembre 2007
    Messages : 108
    Points : 41
    Points
    41

    Par défaut re

    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 !!!!

  10. #10
    Membre émérite
    Homme Profil pro
    Développeur .NET
    Inscrit en
    octobre 2013
    Messages
    1 366
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations professionnelles :
    Activité : Développeur .NET
    Secteur : Industrie

    Informations forums :
    Inscription : octobre 2013
    Messages : 1 366
    Points : 2 978
    Points
    2 978

    Par défaut

    Citation Envoyé par didpoy Voir le message
    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




    Citation Envoyé par didpoy Voir le message
    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 !!!!

  11. #11
    Membre du Club
    Inscrit en
    novembre 2007
    Messages
    108
    Détails du profil
    Informations forums :
    Inscription : novembre 2007
    Messages : 108
    Points : 41
    Points
    41

    Par défaut re

    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

  12. #12
    Membre émérite
    Homme Profil pro
    Développeur .NET
    Inscrit en
    octobre 2013
    Messages
    1 366
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations professionnelles :
    Activité : Développeur .NET
    Secteur : Industrie

    Informations forums :
    Inscription : octobre 2013
    Messages : 1 366
    Points : 2 978
    Points
    2 978

    Par défaut

    Citation Envoyé par didpoy Voir le message
    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?

  13. #13
    Membre du Club
    Inscrit en
    novembre 2007
    Messages
    108
    Détails du profil
    Informations forums :
    Inscription : novembre 2007
    Messages : 108
    Points : 41
    Points
    41

    Par défaut re

    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()

  14. #14
    Membre du Club
    Inscrit en
    novembre 2007
    Messages
    108
    Détails du profil
    Informations forums :
    Inscription : novembre 2007
    Messages : 108
    Points : 41
    Points
    41

    Par défaut re

    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

  15. #15
    Membre du Club
    Homme Profil pro
    Enseignant
    Inscrit en
    mars 2017
    Messages
    76
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Ille et Vilaine (Bretagne)

    Informations professionnelles :
    Activité : Enseignant
    Secteur : Enseignement

    Informations forums :
    Inscription : mars 2017
    Messages : 76
    Points : 54
    Points
    54

    Par défaut Export Excel

    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 ?

  16. #16
    Membre du Club
    Inscrit en
    novembre 2007
    Messages
    108
    Détails du profil
    Informations forums :
    Inscription : novembre 2007
    Messages : 108
    Points : 41
    Points
    41

    Par défaut re

    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...

  17. #17
    Membre du Club
    Homme Profil pro
    Enseignant
    Inscrit en
    mars 2017
    Messages
    76
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Ille et Vilaine (Bretagne)

    Informations professionnelles :
    Activité : Enseignant
    Secteur : Enseignement

    Informations forums :
    Inscription : mars 2017
    Messages : 76
    Points : 54
    Points
    54

    Par défaut

    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

  18. #18
    Membre du Club
    Inscrit en
    novembre 2007
    Messages
    108
    Détails du profil
    Informations forums :
    Inscription : novembre 2007
    Messages : 108
    Points : 41
    Points
    41

    Par défaut re

    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

  19. #19
    Membre du Club
    Homme Profil pro
    Enseignant
    Inscrit en
    mars 2017
    Messages
    76
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Ille et Vilaine (Bretagne)

    Informations professionnelles :
    Activité : Enseignant
    Secteur : Enseignement

    Informations forums :
    Inscription : mars 2017
    Messages : 76
    Points : 54
    Points
    54

    Par défaut

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

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

  20. #20
    Membre du Club
    Inscrit en
    novembre 2007
    Messages
    108
    Détails du profil
    Informations forums :
    Inscription : novembre 2007
    Messages : 108
    Points : 41
    Points
    41

    Par défaut re

    Re

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

    A plus...


Discussions similaires

  1. Export vers Excel avec les noms des colonnes
    Par JauB dans le forum AS/400
    Réponses: 7
    Dernier message: 04/02/2011, 10h18
  2. Exporter le contenu d'un DataGridView vers Excel
    Par David Fouejio dans le forum Windows Forms
    Réponses: 7
    Dernier message: 31/05/2010, 11h50
  3. Réponses: 7
    Dernier message: 05/05/2010, 19h48
  4. Réponses: 1
    Dernier message: 24/11/2008, 21h39
  5. Exporter une dataGridView vers Excel
    Par drayif dans le forum Windows Forms
    Réponses: 2
    Dernier message: 02/08/2007, 18h45

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo