1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19
| Imports System
Imports System.IO
Imports System.Text
Imports System.String
Imports System.Drawing
Imports System.Windows.Forms
Imports System.Drawing.Printing
Imports Microsoft.Office.Interop.Excel
Public Class Volumes
Dim oXL As Object
Dim oBook As Microsoft.Office.Interop.Excel.Workbook
Dim oSheet As Microsoft.Office.Interop.Excel.Worksheet
[plus loin..]
dim CHa as string
CHa = ConcatPath(g_PathClient, "fichesdetailleesVolumesFG.xls", False)
'[le concatPath est une fonction qui renvoie un string]
oBook = oXL.Workbook.Open(CHa) |
Partager