Export excel selon date

Version imprimable

Bonjour à tous,

J'ai un dgv rempli depuis une table dans ma database et j'aimerais exporter les données sous excel en fonction de 2 dates sélectionnées dans 2 datetimepicker.
Pour être plus clair, dans le dtp1 j'ai la date minimun et dans le dtp2 la maximun. Ces 2 dates doivent filtrer la colonne RequistionDate.

J'arrive à exporter dans excel mais en fonction des dates.
Voici mon code pour exporter:

Code:

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
    Private Sub BtnExport_Click(sender As Object, e As EventArgs) Handles btnExport.Click
        Dim xlApp As Microsoft.Office.Interop.Excel.Application
        Dim xlWorkBook As Microsoft.Office.Interop.Excel.Workbook
        Dim xlWorkSheet As Microsoft.Office.Interop.Excel.Worksheet
        Dim misValue As Object = System.Reflection.Missing.Value
        Dim i As Integer
        Dim j As Integer
 
        xlApp = New Microsoft.Office.Interop.Excel.Application
        xlWorkBook = xlApp.Workbooks.Add(misValue)
        xlWorkSheet = xlWorkBook.Sheets("sheet1")
 
        For i = 0 To DataGridView1.RowCount - 2
            For j = 0 To DataGridView1.ColumnCount - 1
                xlWorkSheet.Cells(i + 1, j + 1) =
                    DataGridView1(j, i).Value.ToString()
            Next
        Next
 
        If My.Computer.FileSystem.FileExists("C:\ITDEV\Excel export\Schedule SheetTool\MyReport" & Format(Today, "MMddyyyy") & ".xlsx") Then
 
            My.Computer.FileSystem.DeleteFile("C:\ITDEV\Excel export\Schedule SheetTool\MyReport" & Format(Today, "MMddyyyy") & ".xlsx")
 
            Dim Report As String
            Report = "MyReport" & Format(Today, "MM/dd/yyyy") & ".xlsx"
 
            xlWorkSheet.SaveAs("C:\ITDEV\Excel export\Schedule SheetTool\MyReport" & Format(Today, "MMddyyyy") & ".xlsx")
            xlWorkBook.Close()
            xlApp.Quit()
 
            ReleaseObject(xlApp)
            ReleaseObject(xlWorkBook)
            ReleaseObject(xlWorkSheet)
 
            Process.Start("C:\ITDEV\Excel export\Schedule SheetTool\MyReport" & Format(Today, "MMddyyyy") & ".xlsx")
 
        Else
            Dim Report As String
            Report = "MyReport" & Format(Today, "MM/dd/yyyy") & ".xlsx"
 
            xlWorkSheet.SaveAs("C:\ITDEV\Excel export\Schedule SheetTool\MyReport" & Format(Today, "MMddyyyy") & ".xlsx")
            xlWorkBook.Close()
            xlApp.Quit()
 
            ReleaseObject(xlApp)
            ReleaseObject(xlWorkBook)
            ReleaseObject(xlWorkSheet)
 
            Process.Start("C:\ITDEV\Excel export\Schedule SheetTool\MyReport" & Format(Today, "MMddyyyy") & ".xlsx")
 
        End If
 
    End Sub

Merci d'avance pour vos réponses

Bonsoir,

Les comparaisons de dates ne sont valables que si ces dates sont au format YYYY/MM/DD.
Il te faut donc convertir dtp1 et dtp2 dans ce format et comparer avec ta RequistionDate également convertie dans ce format.

La fonction suivante convertit la date DD/MM/YYYY en YYYY/MM/DD :

Code:

1
2
3
4
5
6
7
8
9
10
11
    Private Function PrepareDate(Dte As String) As String
        Dim MM As String
        Dim DD As String
        Dim YYYY As String
        Dim Sep As Integer
        Sep = Dte.IndexOf("/")
        DD = String.Format("{0:00}", CType(Dte.Substring(0, Sep), Integer))
        MM = String.Format("{0:00}", CType(Dte.Substring(Sep + 1, Dte.LastIndexOf("/") - Sep - 1), Integer))
        YYYY = Dte.Substring(Fecha.LastIndexOf("/") + 1, 4)
        Return YYYY & "/" & MM & "/" & DD
    End Function

Avec cette fonction, ton code pourrait devenir :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
        DateDeb = PrepareDate(DateTimePicker1.Value.ToString("dd/MM/yyyy"))
        DateFin = PrepareDate(DateTimePicker2.Value.ToString("dd/MM/yyyy"))
 
‘ C doit être l’indice de la colonne de ReceptionDtae
 
For i = 0 To DataGridView1.RowCount – 2
 
DateReception = PrepareDate(DataGridView1.Item(C, i).Value.ToString)
 
	If DateReception >= DateDeb AND DateReception <= DateFin Then
 
            For j = 0 To DataGridView1.ColumnCount - 1
                xlWorkSheet.Cells(i + 1, j + 1) =
                    DataGridView1.Item(j, i).Value.ToString()
            Next
 
	End If
Next

Bon travail,

08/05/2019, 15h19
Sankasssss
Bonjour,

Citation:

Envoyé par Phil Rob

Les comparaisons de dates ne sont valables que si ces dates sont au format YYYY/MM/DD.

Je ne suis pas d'accord du tout. Le format date fonctionne très bien pour faire des comparaisons.
Si la date de réception est bien de type date dans le DataGridView il n'y a aucun soucis à faire :

Code:

If DataGridView1.Item(C, i).Value >= DateTimePicker1.Value.Date AND DataGridView1.Item(C, i).Value <= DateTimePicker2.Value.Date Then

Sinon pour rester avec le code que tu proposes, il faut éviter le travail inutile. Ceci :
Code:

1 2 DateDeb = PrepareDate(DateTimePicker1.Value.ToString("dd/MM/yyyy")) DateFin = PrepareDate(DateTimePicker2.Value.ToString("dd/MM/yyyy"))
Peut juste être :
Code:

1 2 DateDeb = DateTimePicker1.Value.ToString("yyyy/MM/dd") DateFin = DateTimePicker2.Value.ToString("yyyy/MM/dd")
Le format étant dans le .ToString

L'idéal restant de mettre dans le dataGridView au format date et de comparer des dates, beaucoup plus propre et logique.

Merci pour vos réponses

Sankasssss j'avais essayé d'utiliser la condition If pour les dates mais j'ai l'erreur

Citation:

System.InvalidCastException: 'Operator '>=' is not defined for type 'Integer' and type 'Date'.'

Voici le code que j'ai pour l'instant avec l'erreur

Code:

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
Private Sub btnExport_Click(sender As Object, e As EventArgs) Handles btnExport.Click
 
        Dim xlApp As Microsoft.Office.Interop.Excel.Application
        Dim xlWorkBook As Microsoft.Office.Interop.Excel.Workbook
        Dim xlWorkSheet As Microsoft.Office.Interop.Excel.Worksheet
        Dim misValue As Object = System.Reflection.Missing.Value
        Dim i As Integer
        Dim j As Integer
 
        xlApp = New Microsoft.Office.Interop.Excel.Application
        xlWorkBook = xlApp.Workbooks.Add(misValue)
        xlWorkSheet = xlWorkBook.Sheets("sheet1")
 
        DataGridView3.Columns(0).DefaultCellStyle.Format = "MMddyyyy"
 
        Dim MyTable As New DataTable
        Dim CNX As New OleDbDataAdapter("select * from tblToolRequisition", cn)
        CNX.FillSchema(MyTable, SchemaType.Source)
        CNX.Fill(MyTable)
 
        For i = 0 To DataGridView3.RowCount - 2
            For Each R As DataRow In MyTable.Rows
                If Not R.Item("RequiredBy") Is DBNull.Value Then
                    If DataGridView3.Item(0, i).Value >= dtpStart.Value.Date And DataGridView3.Item(0, i).Value <= dtpEnd.Value.Date Then
                        For j = 0 To DataGridView3.ColumnCount - 1
 
                            xlWorkSheet.Cells(i + 1, j + 1) = DataGridView3(j, i).Value.ToString()
 
                            If My.Computer.FileSystem.DirectoryExists("C:\ITDEV\Excel export\ToolRequisition") Then
                            Else
                                My.Computer.FileSystem.CreateDirectory("C:\ITDEV\Excel export\ToolRequisition")
                            End If
 
                            If My.Computer.FileSystem.FileExists("C:\ITDEV\Excel export\ToolRequisition\ToolRequisition" & Format(Today, "MMddyyyy") & ".xlsx") Then
 
                                My.Computer.FileSystem.DeleteFile("C:\ITDEV\Excel export\ToolRequisition\ToolRequisition" & Format(Today, "MMddyyyy") & ".xlsx")
 
                                Dim Report As String
                                Report = "MyReport" & Format(Today, "MM/dd/yyyy") & ".xlsx"
 
                                xlWorkSheet.SaveAs("C:\ITDEV\Excel export\ToolRequisition\ToolRequisition" & Format(Today, "MMddyyyy") & ".xlsx")
                                xlWorkBook.Close()
                                xlApp.Quit()
 
                                ReleaseObject(xlApp)
                                ReleaseObject(xlWorkBook)
                                ReleaseObject(xlWorkSheet)
 
                                Process.Start("C:\ITDEV\Excel export\ToolRequisition\ToolRequisition" & Format(Today, "MMddyyyy") & ".xlsx")
 
                            Else
                                Dim Report As String
                                Report = "MyReport" & Format(Today, "MM/dd/yyyy") & ".xlsx"
 
                                xlWorkSheet.SaveAs("C:\ITDEV\Excel export\ToolRequisition\ToolRequisition" & Format(Today, "MMddyyyy") & ".xlsx")
                                xlWorkBook.Close()
                                xlApp.Quit()
 
                                ReleaseObject(xlApp)
                                ReleaseObject(xlWorkBook)
                                ReleaseObject(xlWorkSheet)
 
                                Process.Start("C:\ITDEV\Excel export\ToolRequisition\ToolRequisition" & Format(Today, "MMddyyyy") & ".xlsx")
 
                            End If
                        Next
                    End If
                End If
            Next
        Next
End Sub

10/05/2019, 13h38
Sankasssss

J'ai l'impression que vous avez stocké vos valeurs dates en Integer lors de l'initialisation du DataGridView.
Surtout quand je vois cette ligne que je ne comprends pas :

Code:

DataGridView3.Columns(0).DefaultCellStyle.Format = "MMddyyyy"

Est-ce que l'on peut voir le code d'initialisation ?

Mon dgv est remplit directement avec ma database

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
 Private Sub QuoteCosting_Load(sender As Object, e As EventArgs) Handles MyBase.Load
 
        Me.TblToolRequisitionTableAdapter.Fill(Me.ToolDatabaseVB_beDataSet.tblToolRequisition)
 
        connexion = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\ITDEV\Project\Tool_Process\Tool_Process\ToolDatabaseVB_be.accdb"
        cn = New OleDbConnection(connexion)
 
        Dim DtSet As New DataSet()
        Dim UneTable As New DataTable
 
        Dim cn As New OleDbDataAdapter("Select ReqDate, RequistionNum, Priority, UCASE(CustomerName) as CustomerName, PN, PartRev, ToolDRG, ToolRev, Description, Quantity, DueDate, RequiredBy, StatusID, DeptName,Operation, ToolNotes, ASSYID from tblToolRequisition order by ReqDate DESC", cn)
 
        cn.Fill(UneTable)
        DtSet.Tables.Add(UneTable)
        DtSet.Tables(0).TableName = "tblToolRequisition"
        DataGridView3.DataSource = DtSet.Tables("tblToolRequisition")
 
        dtpStart.Value = Today
        dtpEnd.Value = DateTime.Today.AddMonths(1)
 
    End Sub

10/05/2019, 17h01
clementmarcotte

Bonjour,

Puisque tu as une DataTable, tu peux utiliser un DataView (plus simple et plus léger) ou une BindingSource (plus complet et plus complexe) pour filtrer la table directement. Et tu peux mettre le DataView ou la BindingSource comme source de données du DGV.

Pour Filtrer ton DataView tu renseignes la propriété RowFilter
13/05/2019, 10h18
Sankasssss

+1 pour clementmarcotte

Il faudrait aussi voir quel est le type de la colonne ReqDate en base de donnée?

Merci pour votre aide a tous

J'ai trouvé une solution en créant un dgv avec ma condition
Voici mon code au cas où ça aiderait qq

Code:

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
Private Sub BtnExport_Click(sender As Object, e As EventArgs) Handles btnExport.Click
 
        Dim xlApp As Microsoft.Office.Interop.Excel.Application
        Dim xlWorkBook As Microsoft.Office.Interop.Excel.Workbook
        Dim xlWorkSheet As Microsoft.Office.Interop.Excel.Worksheet
        Dim misValue As Object = System.Reflection.Missing.Value
        Dim i As Integer
        Dim j As Integer
 
        DGV.Visible = True
 
        xlApp = New Microsoft.Office.Interop.Excel.Application
        xlWorkBook = xlApp.Workbooks.Add(misValue)
        xlWorkSheet = xlWorkBook.Sheets("sheet1")
 
        DGV.Columns(0).DefaultCellStyle.Format = "MM/dd/yyyy"
 
        Dim MyTable As New DataTable
        Dim DtSet As New DataSet
        Dim cmd As New OleDbDataAdapter("select * from tblToolRequisition where [RequiredBy] between #" & dtpStart.Value.Date & "# and #" & dtpEnd.Value.Date & "#", cn)
        cmd.Fill(MyTable)
        DtSet.Tables.Add(MyTable)
 
        DtSet.Tables(0).TableName = "tblToolRequisition"
        DGV.DataSource = DtSet.Tables("tblToolRequisition")
 
        For i = 0 To DGV.RowCount - 2
            For j = 0 To DGV.ColumnCount - 1
                xlWorkSheet.Cells(i + 1, j + 1) = DGV(j, i).Value.ToString()
            Next
        Next
 
        If My.Computer.FileSystem.DirectoryExists("C:\ITDEV\Excel export\ToolRequisition") Then
        Else
            My.Computer.FileSystem.CreateDirectory("C:\ITDEV\Excel export\ToolRequisition")
        End If
 
        If My.Computer.FileSystem.FileExists("C:\ITDEV\Excel export\ToolRequisition\ToolRequisition" & Format(Today, "MMddyyyy") & ".xlsx") Then
 
            My.Computer.FileSystem.DeleteFile("C:\ITDEV\Excel export\ToolRequisition\ToolRequisition" & Format(Today, "MMddyyyy") & ".xlsx")
 
            xlWorkSheet.SaveAs("C:\ITDEV\Excel export\ToolRequisition\ToolRequisition" & Format(Today, "MMddyyyy") & ".xlsx")
            xlWorkBook.Close()
            xlApp.Quit()
 
            ReleaseObject(xlApp)
            ReleaseObject(xlWorkBook)
            ReleaseObject(xlWorkSheet)
 
            Process.Start("C:\ITDEV\Excel export\ToolRequisition\ToolRequisition" & Format(Today, "MMddyyyy") & ".xlsx")
 
        Else
            xlWorkSheet.SaveAs("C:\ITDEV\Excel export\ToolRequisition\ToolRequisition" & Format(Today, "MMddyyyy") & ".xlsx")
            xlWorkBook.Close()
            xlApp.Quit()
 
            ReleaseObject(xlApp)
            ReleaseObject(xlWorkBook)
            ReleaseObject(xlWorkSheet)
 
            Process.Start("C:\ITDEV\Excel export\ToolRequisition\ToolRequisition" & Format(Today, "MMddyyyy") & ".xlsx")
 
        End If
    End Sub

15/05/2019, 09h50
Sankasssss

Juste pour votre information, ce code fonctionne bien mais vous pouvez travailler directement sur votre datatable et non sur le DataGridView, cela est bien plus performant.