1. #21
    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

    voilà ce que j'ai bidouillé pour les bordures de l'export Excel:
    En rouge la partie bordure.
    Pour changer le style de border, agir sur : .LineStyle = Excel.XlLineStyle.xlContinuous ou d'autres options que xlContinuous sont possibles (je n'ai pas essayé)

    Surtout mettre au tout début du code cette ligne: Imports Excel = Microsoft.Office.Interop.Excel
    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
    68
    69
    70
    71
    72
    73
    74
    75
    76
    77
    78
    79
    80
    81
    82
    83
    84
    85
    86
    87
                Dim ExcelApp As Object, ExcelBook As Object
                Dim ExcelSheet As Object
                Dim i As Integer
                Dim j As Integer
    
                'Export Excel
                ExcelApp = CreateObject("Excel.Application")
                ExcelBook = ExcelApp.WorkBooks.Add
                ExcelSheet = ExcelBook.WorkSheets(1)
    
                Dim c As Color
                Dim titre As String
                With ExcelSheet
                    titre = "Titre apparaissant dans Excel"
                    ExcelSheet.Cells(1, 1).value = titre
                    For Each col As DataGridViewColumn In Me.DataGridView1.Columns
                        ExcelSheet.Cells(3, col.Index + 1).Font.Color = System.Drawing.ColorTranslator.ToOle(Color.White)
                        ExcelSheet.Cells(3, col.Index + 1).Interior.Color = System.Drawing.ColorTranslator.ToOle(Color.Black)
                        ExcelSheet.Cells(3, col.Index + 1) = col.HeaderText.ToString
                        For i = 1 To Me.DataGridView1.RowCount - 1
                            ExcelSheet.cells(i + 3, 1) = Me.DataGridView1.Rows(i - 1).Cells("numero_offre").Value
                            For j = 0 To DataGridView1.Columns.Count - 1
                                ExcelSheet.cells(i + 3, 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 'MessageBox.Show(MyColor.Name)
                                    ExcelSheet.Cells(i + 3, j + 1).Interior.Color = System.Drawing.ColorTranslator.ToOle(c)
                                End If
                            Next
                        Next
                    Next
                End With
                '======================= BORDURES des CELLULES dans EXCEL ===============================================================
                Dim A As String = "A3" ' ---------------------------------------- Première cellule Excel départ de la datagrid après Export
                Dim B As String = "M" & 3 + Me.DataGridView1.RowCount - 1 & "" '- M = la dernière case selon le nom de case dans la datagrid / 3 = A3 / Me.DataGridView1.RowCount - 1 = Nbr de ligne de Datagrid -1 (ligne vide)
                Dim M As String = A + ":" + B
                With ExcelSheet.Range(M)
                    With .Borders(Excel.XlBordersIndex.xlEdgeLeft)
                        .LineStyle = Excel.XlLineStyle.xlContinuous
                        .ColorIndex = 0
                        .TintAndShade = 0
                        .Weight = Excel.XlBorderWeight.xlThin
                    End With
                    With .Borders(Excel.XlBordersIndex.xlEdgeTop)
                        .LineStyle = Excel.XlLineStyle.xlContinuous
                        .ColorIndex = 0
                        .TintAndShade = 0
                        .Weight = Excel.XlBorderWeight.xlThin
                    End With
                    With .Borders(Excel.XlBordersIndex.xlEdgeBottom)
                        .LineStyle = Excel.XlLineStyle.xlContinuous
                        .ColorIndex = 0
                        .TintAndShade = 0
                        .Weight = Excel.XlBorderWeight.xlThin
                    End With
                    With .Borders(Excel.XlBordersIndex.xlEdgeRight)
                        .LineStyle = Excel.XlLineStyle.xlContinuous
                        .ColorIndex = 0
                        .TintAndShade = 0
                        .Weight = Excel.XlBorderWeight.xlThin
                    End With
                    With .Borders(Excel.XlBordersIndex.xlInsideVertical)
                        .LineStyle = Excel.XlLineStyle.xlContinuous
                        .ColorIndex = 0
                        .TintAndShade = 0
                        .Weight = Excel.XlBorderWeight.xlThin
                    End With
                    With .Borders(Excel.XlBordersIndex.xlInsideHorizontal)
                        .LineStyle = Excel.XlLineStyle.xlContinuous
                        .ColorIndex = 0
                        .TintAndShade = 0
                        .Weight = Excel.XlBorderWeight.xlThin
                    End With
                End With
                ExcelSheet.Cells.font.size = 8
                Dim T As Single
                T = ExcelSheet.Cells(i + 1 + 3, 5).Top
                ExcelSheet.Shapes.AddPicture(My.Application.Info.DirectoryPath + "\images\code_couleur_legende.jpg", True, True, 1, T, 150, 80)
                ExcelSheet.Cells(i + 1 + 12, 1).value = "© Copyright 2017 - DP - EMPLOI Suivi®"
                ExcelSheet.Cells(i + 1 + 13, 1).value = "Site EMPLOI Suivi : http://contact72.free.fr//sites/EMPLOI_Suivi/"
                ExcelApp.Visible = True
                ExcelSheet = Nothing
                ExcelBook = Nothing
                ExcelApp = Nothing
                Menu_Base.Label89.Text = "! EXPORT RÉUSSI !" : duree = 8 : Call sauve_reussie_clignotement()
    A toi de jouer...

    Bon Courage....

  2. #22
    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

    Ok merci, j'ai essayé ça pour les bordures dans Excel mais j'ai trouvé un petit bogue dans ton code, la dernière ligne n'avait pas de bordures

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    Dim B As String = "M" & 3 + Me.DataGridView1.RowCount - 1 'Ton code initial
    
    Dim B As String = "M" & 3 + Me.DataGridView1.RowCount  'Ton code modifié
    Autre question : sais-tu comment imprimer dans le pied de page avec iTextSharp ? Je voudrais mettre le Copyright dans le pied de page ...

    Merci à toi

  3. #23
    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

    ok pour ta modif dernière ligne.

    Pour le pied de page, je vais chercher

    SINON: Si tu as des Dates dans ta datagrid, il arrive que certaines dates exportées soit inversée --> au lieu de JJ/MM/AAAA tu as MM/JJ/AAAA
    Voici le code que j'ai utilisé pour résoudre ce problème:
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
     
     If IsDate(DataGridView1.Rows(i - 1).Cells(j).Value) Then
           ExcelSheet.cells(i + 3, jj + 1) = CDate(DataGridView1.Rows(i - 1).Cells(j).Value)
       Else
           ExcelSheet.cells(i + 3, jj + 1) = DataGridView1.Rows(i - 1).Cells(j).Value
    End If
    A plus....


  4. #24
    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

    En fait tu as le même bogue dans la boucle plus haut que ce soit pour excel ou pdf, ce qui fait que la dernière ligne n'apparaissait pas et donc tu ne pouvais pas voir qu'elle n'avait pas de bordures

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    For i = 1 To Me.DataGridView1.RowCount - 1 'ton code initial
    
    For i = 1 To Me.DataGridView1.RowCount 'ton code corrigé
    Autrement je n'ai pas rencontré de problème avec les dates mais la colonne de la DataGridView est formatée initialement en date et la BDD aussi

  5. #25
    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

    Parce que j'ai une ligne vide en bas de ma datagrid quand elle s'affiche !!!!

    Nom : Image 1.jpg
Affichages : 16
Taille : 87,0 Ko

  6. #26
    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

    Ah oui parceque tu peux ajouter directement une nouvelle ligne dans ta DataGridView, moi pas !

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

    tu fais comment pour éviter cette ligne ?

    Pour le pied de page:
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
     
    ExcelSheet.PageSetup.LeftFooter = "&I&D / &T"
    ExcelSheet.PageSetup.centerFooter = "© Copyright 2017 - DP - EMPLOI Suivi®"
    ExcelSheet.PageSetup.rightFooter = "Site EMPLOI Suivi : http://contact72.free.fr//sites/EMPLOI_Suivi/"

    Section gauche = PageSetup.LeftFooter
    Section centrale = PageSetup.CenterFooter
    Section droite = PageSetup.RightFooter

    http://fring.developpez.com/vba/excel/entetepiedpage/

    Pour Orienter la page Excel:
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
     
    With ExcelSheet.PageSetup
          .Orientation = Excel.XlPageOrientation.xlLandscape
    End With
    http://www.siddharthrout.com/2012/09...etup-in-excel/

    NOTA: Tous ça se voit lorsque tu fais un aperçu impression sous Excel


  8. #28
    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

    Citation Envoyé par didpoy Voir le message
    Re

    tu fais comment pour éviter cette ligne ?

    Nom : Capture d'écran 2017-11-02 16.42.14.png
Affichages : 18
Taille : 11,5 Ko

    Tu mets AllowUserToAddRows en False dans les propriétés de ta DGV

    Autrement merci pour le pied de page de Excel mais ma question c'était plus pour le pdf où je voudrais mettre un pied de page

  9. #29
    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 la Datagrid

    Pour le PDF je vais chercher si c'est possible !!!

  10. #30
    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

    J'ai terminé mon export Excel, je livre le code ci-dessous

    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
    68
    69
    70
    71
    72
    73
    74
    75
    76
    77
    78
    79
    80
    81
    82
    83
    84
    85
    86
    87
    88
    89
    90
    91
    92
    93
    94
    95
    96
    97
    98
    99
    100
    101
    102
    103
    104
    105
    106
    107
    108
    109
    110
    111
    112
    113
    114
    115
    116
    117
    118
    119
    120
    121
    122
    123
    124
    125
    126
    127
    128
    129
    130
    131
    132
    133
    134
    135
    136
    137
    138
    139
    140
    141
    142
    143
    144
    145
    146
    147
    148
    149
    150
    151
    152
    153
    154
    155
    156
    157
    158
    159
    160
    161
    162
    163
    164
    165
    166
    167
    168
    169
    170
    171
    172
    173
    174
    175
    176
    177
    178
    179
    180
    181
    182
    183
    184
    185
    186
    187
    188
    189
    190
    191
    192
    193
    194
    195
    196
    197
    198
    199
    200
    201
    202
    203
    204
    205
    206
    207
    208
    209
    210
     
     Private Sub ExportExcel()
            ' 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 = 15
            ProgressBar1.Style = ProgressBarStyle.Blocks
            ProgressBar1.Visible = True
            ProgressBar1.PerformStep()
            DataGridView2.Columns("Bilan_DGV2").Visible = False 'Cacher temporairement les colonnes non souhaitées dans l'export excel
            DataGridView2.Columns("Compte_DGV2").Visible = False
            If CheckBox_Annulé.Checked = False Then DataGridView2.Columns("Annulé_DGV2").Visible = False
            Dim ExcelApp As Object, ExcelBook As Object
            Dim ExcelSheet As Object
            Dim i As Integer
            Dim j As Integer
            Dim k As Integer
            Dim L As Integer
            Dim Titre As String
            Dim Numéro As String
     
            'Entête Document
            Numéro = Trim(Str(4119000000 + CInt(DataGridView1("ID_DGV_1", NumLigneDataGridView1).Value)))
            Titre = DataGridView1("Nom_DGV_1", NumLigneDataGridView1).Value _
                & " " & DataGridView1("Prénom_DGV_1", NumLigneDataGridView1).Value
     
            'create object of excel
            ExcelApp = CreateObject("Excel.Application")
            ExcelBook = ExcelApp.WorkBooks.Add
            ExcelSheet = ExcelBook.WorkSheets(1)
            ProgressBar1.PerformStep()
            ' Export Excel
            With ExcelSheet
                For Each col As DataGridViewColumn In Me.DataGridView2.Columns
                    If col.Visible = True Then
                        L = L + 1
                        ExcelSheet.Cells(1, L) = col.HeaderText.ToString
                        ExcelSheet.Rows(1).Font.Bold = True
                        ExcelSheet.Cells(1, L).HorizontalAlignment = 7
                        For i = 1 To Me.DataGridView2.RowCount
                            ExcelSheet.cells(i + 1, 1) = Me.DataGridView2.Rows(i - 1).Cells("ID_DGV2").Value
                            For j = 1 To DataGridView2.Columns.Count - 1
                                If DataGridView2.Columns(j).Visible = True Then
                                    k = k + 1
                                    ExcelSheet.cells(i + 1, k + 1) = DataGridView2.Rows(i - 1).Cells(j).Value
                                End If
                            Next
                            k = 0
                        Next
                    End If
                    ProgressBar1.PerformStep()
                Next
                ProgressBar1.PerformStep()
     
                'Lignes Total et Solde
                ExcelSheet.cells(DataGridView2.RowCount + 2, 3) = DataGridViewTotal(0, 0).Value & " ..."
                ExcelSheet.cells(DataGridView2.RowCount + 2, 4) = DataGridViewTotal(1, 0).Value
                ExcelSheet.cells(DataGridView2.RowCount + 2, 5) = DataGridViewTotal(2, 0).Value
                ExcelSheet.cells(DataGridView2.RowCount + 3, 3) = DataGridViewTotal(0, 1).Value & " ..."
                ExcelSheet.cells(DataGridView2.RowCount + 3, 4) = DataGridViewTotal(1, 1).Value
                ExcelSheet.cells(DataGridView2.RowCount + 3, 5) = DataGridViewTotal(2, 1).Value
                ExcelSheet.Rows(DataGridView2.RowCount + 2).Font.Bold = True
                ExcelSheet.Rows(DataGridView2.RowCount + 3).Font.Bold = True
                ExcelSheet.Cells(DataGridView2.RowCount + 2, 3).HorizontalAlignment = 4
                ExcelSheet.Cells(DataGridView2.RowCount + 3, 3).HorizontalAlignment = 4
            End With
            ProgressBar1.PerformStep()
     
            'BORDURES des CELLULES dans EXCEL
            Dim A As String = "A1" ' ---------------------------------------- Première cellule Excel départ de la datagrid après Export
            Dim B As String
            Dim M As String
            If CheckBox_AnnuléJournalTiers.Checked = True Then
                B = "G" & 1 + Me.DataGridView2.RowCount & "" '- G = la dernière case selon le nom de case dans la datagrid / 3 = A3 / Me.DataGridView1.RowCount - 1 = Nbr de ligne de Datagrid -1 (ligne vide)
            Else
                B = "F" & 1 + Me.DataGridView2.RowCount & "" '- F = la dernière case selon le nom de case dans la datagrid / 3 = A3 / Me.DataGridView1.RowCount - 1 = Nbr de ligne de Datagrid -1 (ligne vide)
            End If
     
            M = A + ":" + B
            With ExcelSheet.Range(M)
                With .Borders(Excel.XlBordersIndex.xlEdgeLeft)
                    .LineStyle = Excel.XlLineStyle.xlContinuous
                    .ColorIndex = 0
                    .TintAndShade = 0
                    .Weight = Excel.XlBorderWeight.xlThin
                End With
                With .Borders(Excel.XlBordersIndex.xlEdgeTop)
                    .LineStyle = Excel.XlLineStyle.xlContinuous
                    .ColorIndex = 0
                    .TintAndShade = 0
                    .Weight = Excel.XlBorderWeight.xlThin
                End With
                With .Borders(Excel.XlBordersIndex.xlEdgeBottom)
                    .LineStyle = Excel.XlLineStyle.xlContinuous
                    .ColorIndex = 0
                    .TintAndShade = 0
                    .Weight = Excel.XlBorderWeight.xlThin
                End With
                With .Borders(Excel.XlBordersIndex.xlEdgeRight)
                    .LineStyle = Excel.XlLineStyle.xlContinuous
                    .ColorIndex = 0
                    .TintAndShade = 0
                    .Weight = Excel.XlBorderWeight.xlThin
                End With
                With .Borders(Excel.XlBordersIndex.xlInsideVertical)
                    .LineStyle = Excel.XlLineStyle.xlContinuous
                    .ColorIndex = 0
                    .TintAndShade = 0
                    .Weight = Excel.XlBorderWeight.xlThin
                End With
                With .Borders(Excel.XlBordersIndex.xlInsideHorizontal)
                    .LineStyle = Excel.XlLineStyle.xlContinuous
                    .ColorIndex = 0
                    .TintAndShade = 0
                    .Weight = Excel.XlBorderWeight.xlThin
                End With
                ExcelSheet.Range(M).Font.Size = 10 'Taille des caractères du tableau
            End With
            ProgressBar1.PerformStep()
     
            'Bordures des Lignes Total et Solde
            A = "D" & 1 + Me.DataGridView2.RowCount + 1 & ""
            B = "E" & 1 + Me.DataGridView2.RowCount + 2 & ""
            M = A + ":" + B
            With ExcelSheet.Range(M)
                With .Borders(Excel.XlBordersIndex.xlEdgeLeft)
                    .LineStyle = Excel.XlLineStyle.xlContinuous
                    .ColorIndex = 0
                    .TintAndShade = 0
                    .Weight = Excel.XlBorderWeight.xlThin
                End With
                With .Borders(Excel.XlBordersIndex.xlEdgeTop)
                    .LineStyle = Excel.XlLineStyle.xlContinuous
                    .ColorIndex = 0
                    .TintAndShade = 0
                    .Weight = Excel.XlBorderWeight.xlThin
                End With
                With .Borders(Excel.XlBordersIndex.xlEdgeBottom)
                    .LineStyle = Excel.XlLineStyle.xlContinuous
                    .ColorIndex = 0
                    .TintAndShade = 0
                    .Weight = Excel.XlBorderWeight.xlThin
                End With
                With .Borders(Excel.XlBordersIndex.xlEdgeRight)
                    .LineStyle = Excel.XlLineStyle.xlContinuous
                    .ColorIndex = 0
                    .TintAndShade = 0
                    .Weight = Excel.XlBorderWeight.xlThin
                End With
                With .Borders(Excel.XlBordersIndex.xlInsideVertical)
                    .LineStyle = Excel.XlLineStyle.xlContinuous
                    .ColorIndex = 0
                    .TintAndShade = 0
                    .Weight = Excel.XlBorderWeight.xlThin
                End With
                With .Borders(Excel.XlBordersIndex.xlInsideHorizontal)
                    .LineStyle = Excel.XlLineStyle.xlContinuous
                    .ColorIndex = 0
                    .TintAndShade = 0
                    .Weight = Excel.XlBorderWeight.xlThin
                End With
                ExcelSheet.Range(M).Font.Size = 10 'Taille des caractères du tableau
            End With
            ProgressBar1.PerformStep()
     
            'Réglage des paramètres de la feuille
            With ExcelSheet.PageSetup
                .LeftMargin = 20
                .RightMargin = 20
                .CenterHorizontally = True 'Centrer horizontalement le tableau sur la feuille
                .PrintTitleRows = "$1:$1" 'Répéter la première ligne du tableau sur toutes les pages
                .Orientation = Excel.XlPageOrientation.xlLandscape 'Orientation Paysage
            End With
            ProgressBar1.PerformStep()
            If CheckBox_Annulé.Checked = True Then
                ExcelSheet.Columns("A:G").EntireColumn.AutoFit() 'Ajustement automatique de la largeur des colonnes
                ExcelSheet.Columns("F:G").HorizontalAlignment = 7 'Centrer les colonnes de F à G
            Else
                ExcelSheet.Columns("A:F").EntireColumn.AutoFit() 'Ajustement automatique de la largeur des colonnes
                ExcelSheet.Columns("F:F").HorizontalAlignment = 7 'Centrer les colonnes de F à F
            End If
            ExcelSheet.Columns("D:E").NumberFormat = "#,##0.00" 'Formater les colonnes Numériques avec 2 zéros
            ProgressBar1.PerformStep()
     
            'Entête de page
            ExcelSheet.PageSetup.LeftHeader = "&B&14Relevé de compte : "
            ExcelSheet.PageSetup.CenterHeader = "&B&14" & Titre 'Identité du client
            ExcelSheet.PageSetup.RightHeader = "&B&14N° de compte : " & Numéro 'Numéro du compte client
     
            'Pied de Page
            ExcelSheet.PageSetup.LeftFooter = "&8&I&D  &T"
            ExcelSheet.PageSetup.centerFooter = "&8© Copyright 2017 - NOM du développeur - Nom de l'application"
            ExcelSheet.PageSetup.rightFooter = "&8&IPage " & "&P" & " sur " & "&N"
            ProgressBar1.PerformStep()
     
            'Fin de création
            ExcelApp.Visible = True
            ExcelSheet = Nothing
            ExcelBook = Nothing
            ExcelApp = Nothing
            ProgressBar1.PerformStep()
            DataGridView2.Columns("Bilan_DGV2").Visible = True 'Rendre visible à nouveau les colonnes cachées en début de sub
            DataGridView2.Columns("Compte_DGV2").Visible = True
            DataGridView2.Columns("Annulé_DGV2").Visible = True
            ProgressBar1.Visible = False
        End Sub
    Et voilà le résultat :
    Nom : Capture d'écran 2017-11-03 18.30.49.png
Affichages : 14
Taille : 16,4 Ko

    Je vais essayer de faire la même chose en PDF, il ne me reste qu'à trouver comment faire un entête et un pied de page

  11. #31
    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 ton code, toujours utile d'en avoir un double

    Je cherche aussi de mon coté pour le Footer dans pdf, mais cela ne semble pas si simple !!! ....

    Dès que j'ai quelque chose, je reviens.

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