Import de plusieurs fichiers txt

 assez chargée :'(...

Voici le code dont je vous parlais qui fonctionne en partie :

[CODE]
Sub essai_2()
    Const ForReading = 1, ForWriting = 2, ForAppending = 3
    Dim fs, f, tableau, i, j
    Dim Ligne As Double
    Dim PasEnregistrement As Boolean
    
    Set fs = CreateObject("Scripting.FileSystemObject")
    Set f = fs.OpenTextFile("C:\Utilisateurs\OLIER Fabrice\PRESENTATION FLUX\L3\test.txt", ForReading, TristateFalse)
    Application.ScreenUpdating = False
    
''''''''''''''''''''''''''''''''''''''''''''''
''' DEBUT DE LA BOUCLE D'IMPORT DU FICHIER '''
''''''''''''''''''''''''''''''''''''''''''''''

    Do While f.AtEndOfLine <> True 'Boucle tant que l'on atteint pas la fin du fichier
        PasEnregistrement = False
        tableau = Split(f.Readline, vbTab)
        For i = 0 To UBound(tableau)
            If tableau(i) = "NaN (Niet-een-getal)" Then
                PasEnregistrement = True
                Exit For
            End If
        Next i
            
        If PasEnregistrement = False Then
            Ligne = Ligne + 1
                For j = 0 To UBound(tableau)
                    Sheets("WORKSHEET").Cells(Ligne, j + 1) = tableau(j)
                Next j
        Else:
        End If
    Loop

    f.Close 'Fermeture du fichier
    
''''''''''''''''''''''''''''''''''''''''''''''
'''  FIN DE LA BOUCLE D'IMPORT DU FICHIER  '''
''''''''''''''''''''''''''''''''''''''''''''''
End Sub[/CODE]

Comme inscrit précédement, le code EOF ne permettait pas comme l'import de ma ligne entière: Il prennait comme séparateur principal la virgule, puis ensuite la tabulation. En regardant l'aide, il est inscrit que c'est normal et non paramétrable.

A ce jours, je tente de trouver la solution par rapport au code ci-dessus. Il n'importe pour le moment pas les lignes contenant des valeurs "NaN...". Je vais voir pour faire de même avec les vitesses égales à 0 ainsi que les cellules vides:
1. Si cellule vide, alors vérification de la valeur i+1
2. Si toujours vide, alors vérification de la valeur i+1
2a. Si pas vide, alors import de la valeur
3. Etc...

Cependant je constate que le code ci-dessous implique un travail double:
1. Il lis mes valeurs entière, si OK il les importe, sinon il importe pas. En clair, je fais un double import... Une solution existerai afin de ne pas faire deux fois le travail pour une ligne?

Merci d'avance,
Fabrice.

Sub essai_2()
    Const ForReading = 1, ForWriting = 2, ForAppending = 3
    Dim fs, f, tableau, i, j, k
    Dim Ligne As Double
    Dim PasEnregistrement As Boolean
    
    Set fs = CreateObject("Scripting.FileSystemObject")
    Set f = fs.OpenTextFile("C:\Users\Fabdu57100\Desktop\L3\test.txt", ForReading, TristateFalse)
    Application.ScreenUpdating = False
    
''''''''''''''''''''''''''''''''''''''''''''''
''' DEBUT DE LA BOUCLE D'IMPORT DU FICHIER '''
''''''''''''''''''''''''''''''''''''''''''''''

    Do While f.AtEndOfLine <> True 'Boucle tant que l'on atteint pas la fin du fichier
        PasEnregistrement = False
        tableau = Split(f.Readline, vbTab)
        For i = 0 To UBound(tableau)
            If i = 8 Then
                If tableau(8) = 0 Then
                    PasEnregistrement = True
                    Exit For
                Else:
                End If
            Else:
                If tableau(i) = "NaN (Niet-een-getal)" Or tableau(i) = "QueryInfo" Then
                    PasEnregistrement = True
                    Exit For
                End If
            End If
        Next i
            
        If PasEnregistrement = False Then
            Ligne = Ligne + 1
            
                For j = 0 To UBound(tableau)
                    Sheets("WORKSHEET").Cells(Ligne, j + 1) = tableau(j)
                Next j
        Else:
        End If
    Loop

    f.Close 'Fermeture du fichier
    
''''''''''''''''''''''''''''''''''''''''''''''
'''  FIN DE LA BOUCLE D'IMPORT DU FICHIER  '''
''''''''''''''''''''''''''''''''''''''''''''''
End Sub

Sub essai_2()
Dim fs As Object, f As Object, tableau As Variant, i&
Dim PasEnregistrement As Boolean
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.OpenTextFile("C:\Users\Fabdu57100\Desktop\L3\test.txt")
Application.ScreenUpdating = False
Do While f.AtEndOfLine <> True
    tableau = Split(f.Readline, vbTab)
    If UBound(tableau) >= 8 Then
        If tableau(8) <> 0 Then
            For i = 0 To UBound(tableau)
                If tableau(i) = "NaN (Niet-een-getal)" Or _
                        tableau(i) = "QueryInfo" Then
                    PasEnregistrement = True
                    Exit For
                End If
            Next i
        End If
    End If
    If PasEnregistrement = False Then _
        Sheets("WORKSHEET").Cells(Rows.Count, 1).End(3)(2).Resize(1, UBound(tableau)) = tableau
    PasEnregistrement = False
Loop
f.Close 'Fermeture du fichier
End Sub

Private Sub CommandButton1_Click()
Dim DebTot!
Dim i&, tableau As Variant
Dim fichier$, FicTmp$, chainetexte$, Pth$
Pth = "C:\Users\Fabdu57100\Desktop\L3\"
DebTot = Timer
fichier = Pth & "test.txt"
FicTmp = Pth & "Test.Csv"
Open fichier For Input As #1
Open FicTmp For Output As #2
    Do While Not EOF(1)
        Line Input #1, chainetexte
        tableau = Split(chainetexte, vbTab)
        If tableau(0) = "QueryInfo" Then GoTo Suite
        If Not IsError(Application.Match("NaN (Niet-een-getal)", tableau, 0)) Then GoTo Suite
        If UBound(tableau) > 7 Then
            If tableau(8) = 0 Then GoTo Suite
        End If
        Print #2, Join(tableau, ";")
Suite:
    Loop
Close #2: Close #1
MsgBox Timer - DebTot
End Sub

Private Sub CommandButton1_Click()
Dim i&, tableau As Variant, Tableau2 As Variant
Dim fichier$, FicTmp$, chainetexte$, Pth$
Pth = "C:\Users\Fabdu57100\Desktop\L3\"
fichier = Pth & "test.txt"
FicTmp = Pth & "Test.Csv"
Open fichier For Input As #1
Open FicTmp For Output As #2
    Do While Not EOF(1)
        Line Input #1, chainetexte
        tableau = Split(chainetexte, vbTab)
        If tableau(0) = "QueryInfo" Then GoTo Suite
        If Not IsError(Application.Match("NaN (Niet-een-getal)", tableau, 0)) Then GoTo Suite
        If UBound(tableau) > 7 Then
            If tableau(8) = 0 Then GoTo Suite
        End If
        ReDim Tableau2(0 To 0)
        For i = LBound(tableau) To UBound(tableau)
            If tableau(i) <> "" Then
                ReDim Preserve Tableau2(1 To UBound(Tableau2) + 1)
                Tableau2(UBound(Tableau2)) = tableau(i)
            End If
        Next i
        Print #2, Join(Tableau2, ";")
Suite:
    Loop
Close #2: Close #1
End Sub

Private Sub CommandButton1_Click()
Dim i&, j%, tableau As Variant, Tableau2 As Variant, PremLign As Boolean
Dim fichier$, FicTmp$, chainetexte$, Pth$
Pth = "C:\Users\Fabdu57100\Desktop\L3\"
fichier = Pth & "test.txt"
FicTmp = Pth & "Test.Csv"
Open fichier For Input As #1
Open FicTmp For Output As #2
    Do While Not EOF(1)
        Line Input #1, chainetexte
        tableau = Split(chainetexte, vbTab)
        If tableau(0) = "QueryInfo" Then GoTo Suite
        If Not IsError(Application.Match("NaN (Niet-een-getal)", tableau, 0)) Then GoTo Suite
        If UBound(tableau) > 7 Then
            If tableau(8) = 0 Then GoTo Suite
        End If
        ReDim Tableau2(0 To 0)
        If PremLign = False Then
            For i = LBound(tableau) To UBound(tableau) - 2
                If tableau(i) <> "" Then
                    For j = 0 To 2
                        ReDim Preserve Tableau2(1 To UBound(Tableau2) + 1)
                        Tableau2(UBound(Tableau2)) = tableau(i + j)
                    Next j
                End If
            Next i
            PremLign = True
        Else
            For i = LBound(tableau) To UBound(tableau)
                If tableau(i) <> "" Then
                    ReDim Preserve Tableau2(1 To UBound(Tableau2) + 1)
                    Tableau2(UBound(Tableau2)) = tableau(i)
                End If
            Next i
        End If
        Print #2, Join(Tableau2, ";")
Suite:
    Loop
Close #2: Close #1
End Sub