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
|
Dim Appli As New Application
Dim Ligne As String
Dim LigneExcel As Integer
Dim PointVirgule1, PointVirgule2, PointVirgule3 As Integer
Dim Long1, Long2, Long3 As Integer
Dim Data1, Data2, Data3 As String
Screen.MousePointer = vbArrowHourglass
Open NomFichTXT For Input As #1
'Créer un nouveau classeur EXCEL initialisé à la ligne 1
Appli.Workbooks.Add.Activate
LigneExcel = 1
'Inscrire le contenu du fichier texte dans la feuille 1 du classeur EXCEL
Do While EOF(1) = False
Line Input #1, Ligne
'Rechercher la position des points virgules
PointVirgule1 = InStr(1, Ligne, ";")
PointVirgule2 = InStr(PointVirgule1 + 1, Ligne, ";")
PointVirgule3 = InStr(PointVirgule2 + 1, Ligne, ";")
'Affecter les données
Data1 = "'" & Mid(Ligne, 1, PointVirgule1 - 1)
Data2 = "'" & Mid(Ligne, PointVirgule1 + 1, (PointVirgule2 - PointVirgule1 - 1))
Data3 = "'" & Mid(Ligne, PointVirgule2 + 1, (PointVirgule3 - PointVirgule2 - 1))
'Affecter les Data dans les cellules de la feuille 1
Appli.ActiveWorkbook.Worksheets("Feuil1").Cells(LigneExcel, 1) = Data1
Appli.ActiveWorkbook.Worksheets("Feuil1").Cells(LigneExcel, 2) = Data2
Appli.ActiveWorkbook.Worksheets("Feuil1").Cells(LigneExcel, 3) = Data3
LigneExcel = LigneExcel + 1
Loop
Close #1
'Rendre visible EXCEL
Appli.Visible = True |
Partager