[VBA] Créer chart à partir d'un .txt

[tkeunebr]

Bonjour à tous,

je suis étudiant débutant en visual basic. J'ai créé un programme qui communique avec un appareil et récupère des valeurs, stockées dans un fichier .txt.

Les données sont formatées de cette façon :

Pos A01 A02
Point Amp Amp
1 -11.6001 -11.31299
2 -11.54443 -11.24512
3 -11.4917 -11.22607
4 -11.47217 -11.1792
5 -11.4165 -11.146
6 -11.3916 -11.08936
7 -11.31934 -11.03857

etc.

Il y a un fait 3 mesures, 2 de 201 points, 1 de 801 points. Les A01, A02, etc... représentent des positions. Cela varie selon les mesures. Le max est A080 (80 analyses).

Je dois importer le .txt dans excel. Les données sont séparés par des chr(9).
J'ai fait comme ceci grâce à une macro.

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Private Sub CommandButton1_Click()
 Dim WB1 As Workbook
 
 Call Workbooks.OpenText(Filename:= _
      "C:\Mes documents\keunebroek\ProjetsVB6\528_isochronisme\quartz\110211_120446.isoc", Origin _
      :=xlMSDOS, StartRow:=1, DataType:=xlDelimited, TextQualifier:= _
      xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=False, _
      Comma:=False, Space:=False, Other:=False, FieldInfo:=Array(Array(1, 1), _
      Array(2, 1)))
 
 Set WB1 = ActiveWorkbook
 
 WB1.Worksheets(1).Cells.Select
 Selection.Copy
 ThisWorkbook.Activate
 ThisWorkbook.Sheets("Raw").Select
 ThisWorkbook.Sheets("Raw").Range("A1").Select
 ActiveSheet.Paste
 WB1.Activate
 WB1.Sheets(1).Activate
 WB1.Sheets(1).Range("A1").Select
 Selection.Copy
 WB1.Close

Le but est de tracer les 3 graph correspondant aux 3 mesures dont j'ai parlé.
Je débute vraiment en visual basic, et j'ai l'impression que le vba est assez technique. Si quelqu'un pouvait m'aider, ce serait vraiment gentil.

N'hésitez pas si vous avez des questions.

Ci joint un fichier de résultats type. Je précise que les positions (A01, A02, etc. ne sont pas forcément dans l'ordre. Ca peut très bien être A02,A015,...)

Merci de votre aide !

http://www.fufox.com/?d=3FF17EB78E5A