1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93
|
Private Sub Timer1_Timer()
'Timer1.Enabled = True
StatusBar1.SimpleText = "Récupération en cours..."
Dim I As Integer, var As Integer
Dim val As String, typ As String
Dim Rapports(2) As Double
données_récup = Récup.Récupération
If données_récup(4)(0) <> 1 Then
Command2.Enabled = True
StatusBar1.SimpleText = "Erreur de communication à la commande n°" & données_récup(4)(0)
var = MsgBox(StatusBar1.SimpleText, vbOKOnly, "Erreur")
Exit Sub
End If
For I = 0 To UBound(données_récup(0))
Text_taux(I).Text = données_récup(0)(I) & " %"
Select Case données_récup(1)(I)
Case 0
typ = "Aucun"
Case 1
typ = "Rebroyé"
Case 2
typ = "Naturel"
Case 3
typ = "Additif/Colorant"
End Select
'Texte rajouté pour le stockage dans excel
Static J As Long
J = J + 1
Dim appExcel As Excel.Application 'Application Excel
Dim wbExcel As Excel.Workbook 'Classeur Excel
Dim wsExcel As Excel.Worksheet 'Feuille Excel
Set appExcel = CreateObject("Excel.Application")
appExcel.Workbooks.Add
Set wbExcel = appExcel.ActiveWorkbook
Set wsExcel = wbExcel.ActiveSheet
appExcel.Visible = True
'Inscrit le type des 4 composants sous excel
wsExcel.Cells(1, 1 + 5 * J) = Text_type(0).Text
wsExcel.Cells(1, 2 + 5 * J) = Text_type(1).Text
wsExcel.Cells(1, 3 + 5 * J) = Text_type(2).Text
wsExcel.Cells(1, 4 + 5 * J) = Text_type(3).Text
'Inscrit le taux des 4 composants sous excel
wsExcel.Cells(2, 1 + 5 * J) = Text_taux(0).Text
wsExcel.Cells(2, 2 + 5 * J) = Text_taux(1).Text
wsExcel.Cells(2, 3 + 5 * J) = Text_taux(2).Text
wsExcel.Cells(2, 4 + 5 * J) = Text_taux(3).Text
'Inscrit le poids des 4 composants
wsExcel.Cells(3, 1 + 5 * J) = Text_poids(0).Text
wsExcel.Cells(3, 2 + 5 * J) = Text_poids(1).Text
wsExcel.Cells(3, 3 + 5 * J) = Text_poids(2).Text
wsExcel.Cells(3, 4 + 5 * J) = Text_poids(3).Text
'Inscrit le code de chaque composant sous excel
wsExcel.Cells(4, 1) = Text_compo(0).Text
wsExcel.Cells(4, 2 + 5 * J) = Text_compo(1).Text
wsExcel.Cells(4, 3 + 5 * J) = Text_compo(2).Text
wsExcel.Cells(4, 4 + 5 * J) = Text_compo(3).Text
'Inscrit les différents rapports
wsExcel.Cells(7, 1) = Text3(0).Text
'Inscrit le numéro de la machine
wsExcel.Cells(6, 2) = Text6.Text
'Fin du texte rajouté pour le stockage sous excel
Text_type(I).Text = typ
Text_poids(I).Text = données_récup(2)(I) & " gr"
Next
For I = 0 To UBound(données_récup(3))
Text3(I).Text = données_récup(3)(I) & " %"
Rapports(I) = données_récup(3)(I)
Next
If (Rapports(0) <> 0 And Rapports(1) <> 0 And Rapports(2) <> 0) Then
val = masave.Sauvegarde(Rapports())
If (val <> "OK") Then
var = MsgBox("Sauvegarde échouée: " & val, vbOKOnly, "Erreur")
val = "Sauvegarde précédente échouée!"
Else
val = "Sauvegarde précédente réussie"
End If
StatusBar1.SimpleText = val
End If
'Timer1.Enabled = True
End Sub |
Partager