Conversin txt en xls

Bonjour

Je souhaiterais rapatrier de manière automatique via un bouton le fichier TEST.txt vers le fichier résultat.

Les lignes dans le fichier test.txt commençant par un"Nom Prénom (dans cet exemple "DURAND MOMO)et non commençant par "N° SS (dans cet exemple "1999999999999) doivent être rapatriées dans le fichier excel résultat.xlS

Voir exemple fichier résultat

Merci beaucoup

Cdt

Bonjour,

solution via une macro

Sub test()
    With Application.FileDialog(msoFileDialogFilePicker)
        .Title = "ouvrir fichier texte"
        .Filters.Clear
        .Filters.Add "text file", "*.txt"
        .AllowMultiSelect = False
        If .Show = -1 Then
            fn = .SelectedItems(1)
        End If
    End With
    Open fn For Input As 1
    i = 2
    Line Input #1, l
    While Not EOF(1)
        If l <> "" Then
            If Mid(l, 2, 1) Like "#" Or Mid(l, 2, 1) = "," Then
            Else
                Cells(i, 1) = Replace(l, """", "")
                i = i + 1
            End If
        End If
        Line Input #1, l
    Wend
    Close 1
    Range(Cells(2, 1), Cells(i, 1)).TextToColumns DataType:=xlDelimited, textqualifier:=xlTextQualifierDoubleQuote, comma:=True, ConsecutiveDelimiter:=True
End Sub

Bonjour,

voici une autre voie peut-être plus rapide avec de grands fichiers, code à coller dans le fichier résultat :

Sub Demo()
                       TXT = Application.GetOpenFilename("Fichiers texte (*.txt), *.txt")
                    If TXT = False Then Exit Sub
Application.ScreenUpdating = False
With Feuil1.UsedRange.Rows
    If .Count > 1 Then .Item("2:" & .Count).Clear
End With
Workbooks.OpenText TXT, , 2, xlDelimited, xlTextQualifierNone, , , True
With ActiveWorkbook.ActiveSheet
    .UsedRange.Replace """", ""
    .[R2].Formula = "=ISTEXT(A2)"
    .Cells(1).CurrentRegion.AdvancedFilter xlFilterInPlace, .[R1:R2]
    With .[_FilterDatabase]:  .Rows(1).Hidden = True:  .Copy Feuil1.[A2]:  End With
    .Parent.Close False
End With
End Sub

Bonjour

Merci beaucoup ça fonctionne

Cdt