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
| Option Explicit
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'Converti un fichier CSV en XLS
'
'Lib a ajouter : Microsoft exel 9.0 object ..
'
'
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'Conv_csv_to_xls(Lien_csv , Lien_xls)
'
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Private appExcel As Excel.Application
Private objExcel As Excel.Application
Private objXsheet As Excel.Worksheet
Public Function Lance_exel()
Set objExcel = New Excel.Application
End Function
Public Function Conv_csv_to_xls(Lien_csv As String, Lien_xls As String)
objExcel.Workbooks.Open FileName:=Lien_csv
ActiveWorkbook.SaveAs FileName:=Lien_xls, FileFormat:=xlNoChange
ActiveWorkbook.Close
End Function |
Partager