Extraction de donné d'un fichier .txt

Bonjour,

Je souhaite créer un programme sous VBA qui me permet d’extraire des données issues d’un fichier calcul, de les exporter dans un fichier excel, et tracer les courbes correspondantes. Ce fichier est de type .txt.

Les données à extraire dans le fichier txt, sont des nœuds d’un maillage d’une pièce calculée.

Dans le fichier joint : le nœud qui m’intéresse porte le N° 200000

Merci à l'avance de vos réponses.

Bonjour,

à tester, ne sachant pas quel ligne, j'ai tout extrait,

Sub test_lire()
'ajouter la référence : Microsoft Scripting Runtime
Dim oFl As Scripting.file
Dim oTxt As Scripting.TextStream
Dim i As Integer
fileName = "C:\Documents\truc-Extraction.txt" '<--à adapter
Set oFSO = New Scripting.FileSystemObject
Set oFl = oFSO.GetFile(fileName)
Set oTxt = oFl.OpenAsTextStream(ForReading)
  While Not oTxt.AtEndOfStream
    i = i + 1
    Range("A" & i) = oTxt.ReadLine
  Wend
End Sub

Merci SabreV Pour Ta Macro

rt