Conversion de fichier excel en tx avec delimiteur point virgule
Bonjour
Code:
1
2
3
4
5
6
7
8
9
10
|
Dim oApp As Excel.Application
Dim oWb As Excel.Workbook
Set oApp = New Excel.Application
Set oWb = oApp.Workbooks.Open("c:\MyExcelFile.xlsx")
oWb.SaveAs "C:\ MyTextlFile.txt", Excel.xlTextWindows
oWb.Close False
oApp.Quit
Set oWb = Nothing
Set oApp = Nothing |
ci dessus un code pour convertir un fichier excel en txt pour importations dans une base de données.
je souhaite que ce fichier txt ait pour délimiteur des points virgule ;(ce qui n'est pas le caspour l'instant)
Merci
