Bonjour
ci dessus un code pour convertir un fichier excel en txt pour importations dans une base de données.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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
je souhaite que ce fichier txt ait pour délimiteur des points virgule ;(ce qui n'est pas le caspour l'instant)
Merci
Partager