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