Discussion :

[andyajram]

Bonjour, j'ai un petit souci , j'ai un formulaire qui stocke des données dans ma base , tout se passe bien , toutes les données sont stockées comme saisie , quand je fais un select dans un autre winform tout se passe bien j'affiche les données qui sont dans ma base, mais quand j'exporte les données dans un fichier excel , y'a des dates qui sont sous format MM/JJ/YYYY et d'autres qui sont dans le format normal (le même qui a était saisie ) , je voudrais savoir d'où vient le problème s'il vous plaît.


Merci d'avance

[Sankasssss]

Bonjour,

Pour vous aider nous devrions voir le code de l'exportation.

[andyajram]

voici le code de l'exportation , ça exporte ce qui est affiché dans le DatagridView:

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
 
    Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
        Dim App_xls As Object
        Dim Lig_cpt, Col_cpt As Integer
        'Dim chartRange As Microsoft.Office.Interop.Excel.Range
        App_xls = CreateObject("Excel.Application")
        App_xls.workbooks.add()
        App_xls.visible = True
        'chartRange = App_xls.Range("A1", "V1000")
        Try
            For Col_cpt = 0 To DataGridView1.ColumnCount - 1
                App_xls.ActiveSheet.cells(1, Col_cpt + 1).value = DataGridView1.Columns(Col_cpt).HeaderText
            Next
            For Lig_cpt = 0 To DataGridView1.Rows.Count - 1
                For Col_cpt = 0 To DataGridView1.ColumnCount - 1
                    If IsNumeric(DataGridView1.Item(Col_cpt, Lig_cpt).Value) Then
                        App_xls.ActiveSheet.cells(Lig_cpt + 2, Col_cpt + 1).value = CDbl(DataGridView1.Item(Col_cpt, Lig_cpt).Value)
                    Else
                        App_xls.ActiveSheet.cells(Lig_cpt + 2, Col_cpt + 1).value = DataGridView1.Item(Col_cpt, Lig_cpt).Value
                    End If
 
                Next
            Next
        Catch ex As Exception
 
        End Try
 
        ' chartRange.Borders.LineStyle = Excel.XlLineStyle.xlContinuous
        ' chartRange.Borders.Weight = Excel.XlBorderWeight.xlThin
        App_xls.Rows.Item(1).Font.Bold = True
        App_xls.Rows.Item(1).HorizontalAlignment = 3
        App_xls.Columns.AutoFit()
        MessageBox.Show("Fichier généré!")
    End Sub

[clementmarcotte]

Bonjour,

Je te dirais que le plus simple à essayer, c'est de mettre ta plage de dates dans Excel au format de date que tu désires avant d'y coller des données. Quand la cellule n'a pas de format défini, Excel se débrouille pour trouver le format qui convient (?). Et, des fois, il se trompe.

Pour ton format, tu peux enregistrer une macro dans Excel et transférer et adapter les bonnes lignes dans ton code d'origine.

Sinon, tu peux essayer ta procédure au pas-à-pas et vérifier la donnée qui est envoyée à Excel et le format final affiché pour voir la différence dans les données sources, si jamais il y en a.

P.S. Pour tous ceux et celles qui doivent travailler avec Excel. Quand l'utilisateur a mis un format, disons personnel, à une cellule d'Excel, ce format a priorité sur tous les autres formats qu'Excel peut vouloir mettre automatiquement.

[andyajram]

Je ne sais pas travailler avec les macros , de plus pourquoi il y a juste quelques dates qui s'affichent comme ça , alors que d'autres sont normales , et que c'est moi qui a saisie les dates de la même façon , c'est ça ce que je ne comprend pas !!

[Invité]

Bonjour

Les dates où tu peux inverser le jour et le mois (donc avant le 12 du mois) peuvent-être inversées.

Philippe