[VBA] Enregistrement de valeurs dans un fichier texte

Marsh Posté le 11-06-2012 à 14:42:28

Bonjour,
Ci dessous mon code. je n'arrive pas à afficher les valeurs que je récupère de GetAllValues dans un tableau et surtout comment enregistrer ce tableau de valeurs dans un fichier texte.. merci de me donner des idées =)

Code :

Private Sub CommandButton6_Click()
Dim FunctionData As BKDataSet
Dim MyPulseData As Variant
Dim maxX As Long
Dim maxZ As Long
Dim Entries As Long
Dim Data As DataObject
Set FunctionData = Project.FunctionOrganiser.FunctionGroups("LOG" ).Functions("auto1" ).FunctionData
FunctionData.GetAllValues (True)
'Si le dataset est vide le GetallValues va afficher une exception
'Introduire une gestion des erreurs
On Error Resume Next
For i = 1 To 100
MyPulseData = FunctionData.GetAllValues(True)
If Err.Number = 0 Then
Exit For
End If
Next i
If i > 100 Then
MsgBox Err.Description
Exit Sub
End If
On Error GoTo 0 'Remise à zero des erreurs
Entries = FunctionData.NumberOfXAxisEntries
ReDim ValueArr(Entries - 1) As Double 'Variable de type tableau
FunctionData.RealValues ValueArr 'Récuperation des Y
TextBox1.Text = Entries
Data = FunctionData.GetAllValues(True)
TextBox2.Text = Data
End Sub

Marsh Posté le 11-06-2012 à 14:42:28

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed

Name *

Email *

URL

Message *