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
| Set objExcel = CreateObject("Excel.Application" )
objExcel.Visible = False
'permet d'enregistrer sans confirmation
objExcel.DisplayAlerts = FALSE
'on ouvre le fichier
Set objWorkbook = objExcel.Workbooks.Open("C:\Thourotte\Sap\RECEPTION.XLS" )
'on ouvre la premiere feuille
Set objWorksheet = objWorkbook.Worksheets(1)
'on selectionne la premiere colonne
set Selection = objWorksheet.Columns(1)
'on supprime la colonne selectionnée
Selection.EntireColumn.Delete
set Selection = objWorksheet.Columns(1)
Selection.EntireColumn.Delete
set Selection = objWorksheet.Rows(1)
Selection.EntireRow.Delete
set Selection = objWorksheet.Rows(1)
Selection.EntireRow.Delete
set Selection = objWorksheet.Rows(1)
Selection.EntireRow.Delete
'60
set Selection = objWorksheet.Rows(2)
Selection.EntireRow.Delete
objWorksheet.Range("H1").Value = "Quantity"
set Selection = objWorksheet.Columns(10)
Selection.replace ".", "/"
Selection.NumberFormat = "dd/mm/yyyy"
objWorkbook.Worksheets(1).Columns(4).NumberFormat = "@"
objWorkbook.Save()
objWorkbook.close()
'on ferme le fichier
objExcel.Quit |
Partager