LECTURE DE FICHIER AVEC SÉPARATEUR VIA UN FORMATAGE EXCEL

Private Sub Workbook_Open()

    '
    'Selection de la feuille
    Worksheets("Feuil1").Select
    
    '
    Dim sUser As String
    Dim sfile As String
    
    '
    sPath = ActiveWorkbook.Path
    
    '
    Cells.Select
    Selection.Delete Shift:=xlUp
     
    'Ouverture du fichier texte
    sfile = sPath + "\file_extract.txt" 'fichier txt à ouvrir...
                                        'sfile doit être codé selon l'utilité.
    Open sfile For Input As #1
    
    '
    Do While Not EOF(1)     ' Effectue la boucle jusqu'à la fin du fichier texte.
                            ' On lit le fichier ligne par ligne.
        '
        I = I + 1
        J = 0
        iCol = 0
        
        '
        Line Input #1, sTring1
        iLongueur = Len(sTring1)
        
        '
        Do 'Par ligne de texte dans le fichier, on sépare l'info à chaque virgule.
            J = J + 1
            sCaract = Mid(sTring1, J, 1)
            
            '
            If sCaract = "," Then ' le séparateur peut être changé.
                iCol = iCol + 1
                Cells(I, iCol).Value = sMot
                sMot = ""
            Else
                sMot = sMot + sCaract
            End If
        Loop Until J > iLongueur
    
    Loop
    
    '
    Cells.Select
    Selection.Columns.AutoFit

    '
    Close #1
End Sub