Bonjour, voila je suis actuellement en stage dans une entreprise et celle-ci me demande de recupere des données via un programme vb et de les retranscrire en graphique 3D à l'aide de chartdirector.
Mon programme est pour l'instant divisé en 2 form une qui recupere les données en plusieurs messages et le second (chartdirector) qui fait les graphiques ( pour l'instant les données de mes graphiques sont inscrite manuellement) et j'aimerai donc trouver comment faire que le generateur de graphique cherche les données dans mon premier form. Si quelqu'un a une idée je suis preneur.

donnée chartdirector =
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
 Dim dataX()
   dataX = Array(20, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 29, 29, 29, 29, 29, 29, 29, 29, 29, 29, 29, 29, 29, 29, 29, 29, 29, 29, 29, 29, 29, 29, 29, 29, 29, 29, 29, 29, 29, 29, 29, 29, 29, 29, 29, 29, 29, 29, 29, 29, 29, 29, 29, 29, 29, 29, 29, 29, 29, 29, 29, 29, 29, 29, 29, 29, 29, 29, 29, 29, 29, 29, 29, 29, 29, 29, 29, 29, 29, 29, 29, 29, 29, 29, 29, 29, 29, 29, 29, 29, 29, 29, 29, 29, 29, 29)
    Dim dataY()
    dataY = Array(69, 72, 75, 94, 97, 106, 118, 128, 140, 149, 162, 171, 184, 193, 202, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 97, 109, 118, 131, 140, 149, 162, 174, 184, 196, 202, 215, 224, 236, 249, 258, 267, 280, 289, 298, 314, 323, 332, 345, 354, 366, 376, 385, 397, 407, 416, 428, 438, 447, 459, 472, 481, 494, 503, 512, 525, 537, 546, 556, 568, 577, 590, 599, 611, 621, 633, 642, 652, 664, 673, 686, 695, 704, 717, 729, 739, 748, 760, 770, 779, 791, 804, 813, 822, 832, 844, 856, 866, 875, 887, 900, 909, 921, 931, 940, 952, 965, 974, 983, 990, 993)
    Dim dataZ()
    dataZ = Array(83, 87, 86, 85, 84, 83, 83, 82, 81, 81, 81, 80, 79, 78, 78, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 67, 76, 81, 81, 78, 76, 74, 89, 89, 83, 78, 75, 75, 74, 73, 73, 74, 75, 74, 73, 73, 73, 73, 73, 73, 74, 75, 75, 75, 74, 74, 75, 75, 75, 76, 75, 76, 77, 78, 79, 81, 82, 82, 82, 82, 82, 83, 83, 83, 83, 83, 83, 83, 82, 81, 81, 81, 81, 81, 81, 81, 81, 81, 81, 81, 81, 82, 81, 81, 81, 81, 81, 80, 79, 80, 80, 80, 79, 79, 79, 80, 80, 80, 81, 83, 84)
et mon premier form me renvoi les données a l'aide de =
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 Rcp_ifo_Bob(No_Msg As Integer)
Dim I As Integer
 
 
 
    Dim M102 As M102
     Status = VBSATMSG_GETMSG(Frm_Principale.LIA_RVT_3D.hRPCNoyau, _
    Frm_Principale.LIA_RVT_3D.NumLink, M102, Len(M102))
 
 
    For I = 1 To M102.Nb_trav
            Sav_datas(I + nb_trav_recu) = M102.datas(I)
    Next I
    nb_trav_recu = nb_trav_recu + M102.Nb_trav
 
    If (No_Msg = 103) Then
 
        MsgBox ("reception du message 103")
    End If
 
 
 
End Sub
Merci d'avance et bon début de journée a vous