Macro : Copie d'une ligne de fichier texte vers Excel

Bonjour,

J'ai en ma possession plusieurs dizaines de fichiers texte tous constitués de 2 colonnes (comme le fichier joint).

Je voudrais récupérer une seule ligne (celle où on est à 10000 dans la première colonne "Frequency") et l'exporter dans une feuille Excel.

Je voudrais également avoir cette ligne pour tous les fichiers et à la suite dans les colonnes de la feuille Excel.

Merci d'avance pour votre aide !

Bonjour,

une proposition, adapter le chemin pour indiquer le répertoire dans lequel se trouvent les fichiers "acquisition"

Sub importer10000Hz()
    chemin = "f:\"
    f = Dir(chemin & "acquisition*.txt")
    While f <> ""
        Open chemin & f For Input As #1
        nm = nm + 1
        Cells(1, nm) = f
        txt = Input(LOF(1), 1)
        s = InStr(txt, "10000")
        If s = 0 Then
            Cells(2, nm) = "non trouvé"
        Else
            s = InStr(s, txt, vbTab)
            s1 = InStr(s + 1, txt, vbNewLine)
            mag = Mid(txt, s + 1, s1 - s - 1)

            Cells(2, nm) = mag
        End If
        Close 1
        f = Dir

    Wend
End Sub