1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18
|
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Dim xlapp As New Microsoft.Office.Interop.Excel.Application
Dim xlfile As Object = ("d:\gestion_caisse\caisse.xlsm")
Dim wkb As xlapp.Workbook
Dim wks As xlapp.Worksheet
Dim xlcaisse As Object
Dim Tdat As Date = DataGridView2.Rows(0).Cells(0).Value
Dim Totpres As Single = DataGridView4.Rows(0).Cells(1).Value
Dim Totprcb As Single = DataGridView4.Rows(1).Cells(1).Value
Dim Totprch As Single = DataGridView4.Rows(2).Cells(1).Value
Dim Totmaes As Single = DataGridView4.Rows(4).Cells(1).Value
Dim Totmacb As Single = DataGridView4.Rows(5).Cells(1).Value
Dim Totmach As Single = DataGridView4.Rows(6).Cells(1).Value
Dim Totdeb As Single = DataGridView4.Rows(8).Cells(1).Value
xlapp.xlfile.open()
End Sub |
Partager