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.
Le but est de tracer les 3 graph correspondant aux 3 mesures dont j'ai parlé.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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
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
Partager