1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16
|
Dim xfile As ExcelPackage
Dim ws As ExcelWorksheet
Dim lign As Integer = 1
xfile = New ExcelPackage
xfile.Workbook.Properties.Author = "PICCI"
xfile.Workbook.Properties.Title = "Résultats capture inventaire"
xfile.Workbook.Worksheets.Add("Feuil1")
ws.Cells(lign, 11).Value = MAJ.infoAD.site
ws.Cells(lign, 11).Style.Fill.PatternType = Style.ExcelFillStyle.Solid
ws.Cells(lign, 11).Style.Fill.BackgroundColor.SetColor(Color.DarkGray)
ws.Cells(lign, 11).Style.Font.Bold = True
File.WriteAllBytes(excelSavingPath & "\" & Date.Now.Date & "_" & dg.nomDG & ".xlsx", xfile.GetAsByteArray) |
Partager