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
| Option Explicit
Const ForReading = 1, ForWriting = 2
Dim fso, fichier, arrStranges, arrReplaceWith, Contenu ,I , TBL
arrStranges = Array("é","ê","Ãâ°","è","ç","â" ,"ÃÂ")
arrReplaceWith = Array("é","ê","É","è","ç","â" ,"à")
Set fso = CreateObject("Scripting.FileSystemObject")
Set fichier = fso.OpenTextFile("Csv.txt", ForReading, False)
Contenu = fichier.ReadAll
fichier.Close
For I = LBound(arrStranges) To UBound(arrStranges)
Contenu = Replace(Contenu, arrStranges(I), arrReplaceWith(I))
Next
Set fichier = fso.OpenTextFile("Result.txt", ForWriting, True)
fichier.Write Contenu
fichier.Close
'========================Traitement pour mettre dans Excel==============
Dim XL, Wbook, wSheet
Set XL = CreateObject("Excel.Application")
Set Wbook = XL.WorkBooks.Add()
Set wSheet = Wbook.Sheets(1)
Set fichier = fso.OpenTextFile("Result.txt", ForReading, False)
ReDim TBL(0)
I = 0
Do While Not fichier.AtENdOfStream
TBL = Split(fichier.ReadLine, vbTab)
I = I + 1
wSheet.Cells(I,1) = TBL(0)
wSheet.Cells(I,2) = TBL(1)
wSheet.Cells(I,3) = TBL(2)
Loop
XL.Visible = True
XL.DisplayAlerts = False
Wbook.SaveAs "C:\Temp\Result.csv" ' Fichier final |
Partager