Vb.net et bases de données

**Heorhelm** · 21/11/2019, 10h38

Bonjour à tous !

Je sollicite votre aide car j'ai 3 jours pour apprendre à créer et gérer une base de données et la piloter sous VB.net (visual studio 2019).
En effet, j'ai développé une appli qui est capable de discuter avec EXCEL pour enregistrer les données car c'est ce qui m'était imposé.
Malheureusement, j'ai appris très récemment qu'écrire à plusieurs sur un fichier excel sans conflit serait très très compliqué (voir impossible) à partir de VB.net

La petite histoire :
Je dois créer une application pour mon entreprise Irlandaise, dans 3 jours c'est back to France

L'appli, c'est une fenêtre avec 10 boutons : 9 correspondent à un type de pièce (vis, panneau, boite, ...) et 1 est un bouton RESET.
Nom : form.jpg
Affichages : 357
Taille : 64,5 Ko

Nom : form.jpg
Affichages : 357
Taille : 64,5 Ko

Quand l'opérateur appuie sur un bouton PIECE, celui-ci devient Orange : il indique un stock de pièces presque vide.
La date est enregistrée, et sera utilisée plus tard pour calculer le temps global dans la journée que l'opérateur à passé avec un stock presque vide.
Si l'opérateur appuie une nouvelle fois sur le Bouton PIECE, le bouton passe de l'état orange à rouge : le stock est vide.
La date est de nouveau enregistrée et servira plus tard à calculer le temps d'arrêt global, faute de pièces.
Enfin, l'opérateur peut appuyer sur le bouton RESET n'importe quand pour faire retourner le bouton à l'état initial
la date est enregistrée une troisième fois et est utilisée avec les deux autres pour calculer les temps qui m'intéressent.
Ca ce sont les grandes lignes du programme :

Il faut donc que j'enregistre dans une base de donnée les infos suivantes :
Le numéro de poste de l'opérateur (qu'il renseigne au début du programme)
La pièce qui est en défaut de stock
la date où l'une des pièces devient orange
le temps que le stock de pièce a passé en orange
la date où l'une des pièces devient rouge
le temps que le stock de pièce a passé en rouge
et enfin le temps réel d'arrêt de production

Une image vaut mieux qu'un long discours
Nom : résultat.jpg
Affichages : 347
Taille : 107,6 Ko

Nom : résultat.jpg
Affichages : 347
Taille : 107,6 Ko

J'ai réussi à faire une appli VB.net qui ouvre EXCEL et range les infos dedans.
Mais il faut que j'adapte mon programme pour ouvrir une base de donnée et y stocker des infos.
Sauf que j'y connais rien.

Quelqu'un peut m'aider svp ?

voici le code : (attention les yeux ça peut piquer)

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
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
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
372
373
374
375
376
377
378
379
380
381
382
383
384
385
386
387
388
389
390
391
392
393
394
395
396
397
398
399
400
401
402
403
404
405
406
407
408
409
410
411
412
413
414
415
416
417
418
419
420
421
422
423
424
425
426
427
428
429
430
431
432
433
434
435
436
437
438
439
440
441
442
443
444
445
446
447
448
449
450
451
452
453
454
455
456
457
458
459
460
461
462
463
464
465
466
467
468
469
470
471
472
473
474
475
476
477
478
479
480
481
482
483
484
485
486
487
488
489
490
491
492
493
494
495
496
497
498
499
500
501
502
503
504
505
506
507
508
509
510
511
512
513
514
515
516
517
518
519
520
521
522
523
524
525
526
527
528
529
530
531
532
533
534
535
536
537
538
539
540
541
542
543
544
545
546
547
548
549
550
551
552
553
554
555
556
557
558
559
560
561
562
563
564
565
566
567
568
569
570
571
572
573
574
575
576
577
578
579
580
581
582
583
584
585
586
587
588
589
590
591
592
593
594
595
596
597
598
599
600
601
602
603
604
605
606
607
608
609
610
611
612
613
614
615
616
617
618
619
620
621
622
623
624
 
 
Imports System.ComponentModel
Imports System.IO
Imports System.Text
 
Imports Excel = Microsoft.Office.Interop.Excel
 
Public Class DEMO
 
    'Dim pathwriter As StreamWriter
    Dim reset As Boolean = False 'for reset bouton
    Dim resetcounter As Integer = 0
    Dim flagtimer As Boolean = False 'flag to activate the date registration
    Dim Fronts, Backs, Elem, Screws, Boxes, Wires, Poly, Wf, others As Integer 'flags
    Dim i As Integer = 1 'counter used to count the number of line in the excel file
    Dim k As Integer = 1 'counter used like i but for downtime
    Dim cellN As String 'Cell Number
    Dim df1, df2, db1, db2, de1, de2, ds1, ds2, dx1, dx2, dw1, dw2, dp1, dp2, dwf1, dwf2, do1, do2, path, path2, path3 As String
    Dim df, dfR, dfe, db, dbr, dbe, de, der, dee, ds, dsr, dse, dx, dxr, dxe, dw, dwr, dwe, dp, dpr, dpe, dwf, dwfr, dwfe, dot, dotr, dote As Date
    Dim dreal, dreale As Date 'used to calcul the real downtime
    Dim dstop As String 'real downtime
    Dim ApExcel As New Excel.Application 'Application Excel
    Dim wbExcel As Excel.Workbook 'Classeur Excel
    Dim wsExcel As Excel.Worksheet 'Feuille Excel
    'Dim mRow As Integer = CInt(ws.Cells.SpecialCells(Excel.XlCellType.xlCellTypeLastCell).Row)
    'Dim mColumn As Integer = CInt(ws.Cells.SpecialCells(Excel.XlCellType.xlCellTypeLastCell).Column)
 
    Private Sub butReset_Click(sender As Object, e As EventArgs) Handles butReset.Click
        'Reset button increase/set a flag to have the status of reset
        If resetcounter = 0 Then
            resetcounter = resetcounter + 1
            reset = True
            butReset.BackColor = Color.Green
        Else
            resetcounter = 0
            reset = False
            butReset.BackColor = Color.LightGray
        End If
    End Sub
 
 
    Private Sub butOthers_Click(sender As Object, e As EventArgs) Handles butOthers.Click
        'If the operator click once on the button, this one become amber : that's mean that the cell is running out of parts
        'when the operator click a second time, the button become red and the date is saved 
        'when reset button is pressed, it will light off the buttons pressed next, the date will be registered again : the difference of the 2 dates gives the real downtime
        'for the cell
        If reset = False Then
            If others = 0 Then
                butOthers.BackColor = Color.Orange
                others = others + 1
                dot = DateTime.Now
            ElseIf others = 1 Then
                butOthers.BackColor = Color.Red
                others = others + 1
                dotr = DateTime.Now
                If flagtimer = False Then
                    flagtimer = True
                    dreal = DateTime.Now
                End If
            End If
        ElseIf reset = True Then
            others = 0
            butOthers.BackColor = Color.LightGray
            If Fronts = 0 And Backs = 0 And Elem = 0 And Screws = 0 And Boxes = 0 And Wires = 0 And Poly = 0 And Wf = 0 And others = 0 Then
                flagtimer = False
                dreale = DateTime.Now
                dstop = DateDiff(DateInterval.Second, dreal, dreale)
                'pathwriter = New StreamWriter(path2, True, Encoding.Unicode)
                'pathwriter.WriteLine("Stoppage time of " & "Cell N" & cellN & "; " & TimeSpan.FromSeconds(dstop).ToString("hh\:mm\:ss"))
                'pathwriter.Close()
                ApExcel.Workbooks.Open(path3)
                ApExcel.Sheets(2).select
                ApExcel.Cells(k, 1) = cellN
                ApExcel.Cells(k, 2) = TimeSpan.FromSeconds(dstop).ToString("hh\:mm\:ss")
                ApExcel.ActiveWorkbook.Close(True)
                ApExcel.Quit()
                k = k + 1
            End If
            dote = DateTime.Now
            do1 = DateDiff(DateInterval.Second, dotr, dote)
            do2 = DateDiff(DateInterval.Second, dot, dote)
            'pathwriter = New StreamWriter(path, True, Encoding.Unicode)
            'pathwriter.WriteLine("Cell" & cellN & " ; " & "Others" & " ; " & dot & " ; " & TimeSpan.FromSeconds(do2).ToString("hh\:mm\:ss") & " ; " & dotr & " ; " & TimeSpan.FromSeconds(do1).ToString("hh\:mm\:ss"))
            'pathwriter.Close()
            ApExcel.Workbooks.Open(path3)
            ApExcel.Sheets(1).select
            ApExcel.Cells(i, 1) = cellN
            ApExcel.Cells(i, 2) = "others"
            ApExcel.Cells(i, 3) = dot
            ApExcel.Cells(i, 4) = TimeSpan.FromSeconds(do2).ToString("hh\:mm\:ss")
            ApExcel.Cells(i, 5) = dotr
            ApExcel.Cells(i, 6) = TimeSpan.FromSeconds(do1).ToString("hh\:mm\:ss")
            i = i + 1
            ApExcel.ActiveWorkbook.Close(True)
            ApExcel.Quit()
        End If
    End Sub
 
    Private Sub butWires_Click(sender As Object, e As EventArgs) Handles butWires.Click
        If reset = False Then
            If Wires = 0 Then
                butWires.BackColor = Color.Orange
                Wires = Wires + 1
                dw = DateTime.Now
            ElseIf Wires = 1 Then
                butWires.BackColor = Color.Red
                Wires = Wires + 1
                dwr = DateTime.Now
                If flagtimer = False Then
                    flagtimer = True
                    dreal = DateTime.Now
                End If
            End If
        ElseIf reset = True Then
            Wires = 0
            butWires.BackColor = Color.LightGray
            If Fronts = 0 And Backs = 0 And Elem = 0 And Screws = 0 And Boxes = 0 And Wires = 0 And Poly = 0 And Wf = 0 And others = 0 Then
                flagtimer = False
                dreale = DateTime.Now
                dstop = DateDiff(DateInterval.Second, dreal, dreale)
                'pathwriter = New StreamWriter(path2, True, Encoding.Unicode)
                'pathwriter.WriteLine("Stoppage time of " & "Cell N" & cellN & "; " & TimeSpan.FromSeconds(dstop).ToString("hh\:mm\:ss"))
                'pathwriter.Close()
                ApExcel.Workbooks.Open(path3)
                ApExcel.Sheets(2).select
                ApExcel.Cells(k, 1) = cellN
                ApExcel.Cells(k, 2) = TimeSpan.FromSeconds(dstop).ToString("hh\:mm\:ss")
                ApExcel.ActiveWorkbook.Close(True)
                ApExcel.Quit()
                k = k + 1
            End If
 
            dwe = DateTime.Now
            dw1 = DateDiff(DateInterval.Second, dwr, dwe)
            dw2 = DateDiff(DateInterval.Second, dw, dwe)
            'pathwriter = New StreamWriter(path, True, Encoding.Unicode)
            'pathwriter.WriteLine("Cell" & cellN & " ; " & "Wires" & " ; " & dw & " ; " & TimeSpan.FromSeconds(dw2).ToString("hh\:mm\:ss") & " ; " & dwr & " ; " & TimeSpan.FromSeconds(dw1).ToString("hh\:mm\:ss"))
            'pathwriter.Close()
            ApExcel.Workbooks.Open(path3)
            ApExcel.Sheets(1).select
            ApExcel.Cells(i, 1) = cellN
            ApExcel.Cells(i, 2) = "Wires"
            ApExcel.Cells(i, 3) = dw
            ApExcel.Cells(i, 4) = TimeSpan.FromSeconds(dw2).ToString("hh\:mm\:ss")
            ApExcel.Cells(i, 5) = dwr
            ApExcel.Cells(i, 6) = TimeSpan.FromSeconds(dw1).ToString("hh\:mm\:ss")
            i = i + 1
            ApExcel.ActiveWorkbook.Close(True)
            ApExcel.Quit()
        End If
 
    End Sub
 
    Private Sub ButScrews_Click(sender As Object, e As EventArgs) Handles butScrews.Click
        If reset = False Then
            If Screws = 0 Then
                butScrews.BackColor = Color.Orange
                Screws = Screws + 1
                ds = DateTime.Now
            ElseIf Screws = 1 Then
                butScrews.BackColor = Color.Red
                Screws = Screws + 1
                dsr = DateTime.Now
                If flagtimer = False Then
                    flagtimer = True
                    dreal = DateTime.Now
                End If
            End If
        ElseIf reset = True Then
            butScrews.BackColor = Color.LightGray
            Screws = 0
            If Fronts = 0 And Backs = 0 And Elem = 0 And Screws = 0 And Boxes = 0 And Wires = 0 And Poly = 0 And Wf = 0 And others = 0 Then
                flagtimer = False
                dreale = DateTime.Now
                dstop = DateDiff(DateInterval.Second, dreal, dreale)
                'pathwriter = New StreamWriter(path2, True, Encoding.Unicode)
                'pathwriter.WriteLine("Stoppage time of " & "Cell N" & cellN & "; " & TimeSpan.FromSeconds(dstop).ToString("hh\:mm\:ss"))
                'pathwriter.Close()
                ApExcel.Workbooks.Open(path3)
                ApExcel.Sheets(2).select
                ApExcel.Cells(k, 1) = cellN
                ApExcel.Cells(k, 2) = TimeSpan.FromSeconds(dstop).ToString("hh\:mm\:ss")
                ApExcel.ActiveWorkbook.Close(True)
                ApExcel.Quit()
                k = k + 1
 
            End If
 
            dse = DateTime.Now
            ds1 = DateDiff(DateInterval.Second, dsr, dse)
            ds2 = DateDiff(DateInterval.Second, ds, dse)
            'pathwriter = New StreamWriter(path, True, Encoding.Unicode)
            'pathwriter.WriteLine("Cell" & cellN & " ; " & "Screws" & " ; " & ds & " ; " & TimeSpan.FromSeconds(ds2).ToString("hh\:mm\:ss") & " ; " & dsr & " ; " & TimeSpan.FromSeconds(ds1).ToString("hh\:mm\:ss"))
            'pathwriter.Close()
            ApExcel.Workbooks.Open(path3)
            ApExcel.Sheets(1).select
            ApExcel.Cells(i, 1) = cellN
            ApExcel.Cells(i, 2) = "Screws"
            ApExcel.Cells(i, 3) = ds
            ApExcel.Cells(i, 4) = TimeSpan.FromSeconds(ds2).ToString("hh\:mm\:ss")
            ApExcel.Cells(i, 5) = dsr
            ApExcel.Cells(i, 6) = TimeSpan.FromSeconds(ds1).ToString("hh\:mm\:ss")
            i = i + 1
            ApExcel.ActiveWorkbook.Close(True)
            ApExcel.Quit()
        End If
    End Sub
 
    Private Sub ButPoly_Click(sender As Object, e As EventArgs) Handles butPoly.Click
        If reset = False Then
            If Poly = 0 Then
                butPoly.BackColor = Color.Orange
                Poly = Poly + 1
                dp = DateTime.Now
            ElseIf Poly = 1 Then
                butPoly.BackColor = Color.Red
                Poly = Poly + 1
                dpr = DateTime.Now
                If flagtimer = False Then
                    flagtimer = True
                    dreal = DateTime.Now
                End If
            End If
 
        ElseIf reset = True Then
            butPoly.BackColor = Color.LightGray
            Poly = 0
            If Fronts = 0 And Backs = 0 And Elem = 0 And Screws = 0 And Boxes = 0 And Wires = 0 And Poly = 0 And Wf = 0 And others = 0 Then
                flagtimer = False
                dreale = DateTime.Now
                dstop = DateDiff(DateInterval.Second, dreal, dreale)
                'pathwriter = New StreamWriter(path2, True, Encoding.Unicode)
                'pathwriter.WriteLine("Stoppage time of " & "Cell N" & cellN & "; " & TimeSpan.FromSeconds(dstop).ToString("hh\:mm\:ss"))
                'pathwriter.Close()
                ApExcel.Workbooks.Open(path3)
                ApExcel.Sheets(2).select
                ApExcel.Cells(k, 1) = cellN
                ApExcel.Cells(k, 2) = TimeSpan.FromSeconds(dstop).ToString("hh\:mm\:ss")
                ApExcel.ActiveWorkbook.Close(True)
                ApExcel.Quit()
                k = k + 1
            End If
            Poly = 0
            dpe = DateTime.Now
            dp1 = DateDiff(DateInterval.Second, dpr, dpe)
            dp2 = DateDiff(DateInterval.Second, dp, dpe)
            'pathwriter = New StreamWriter(path, True, Encoding.Unicode)
            'pathwriter.WriteLine("Cell" & cellN & " ; " & "Poly" & " ; " & dp & " ; " & TimeSpan.FromSeconds(dp2).ToString("hh\:mm\:ss") & " ; " & dpr & " ; " & TimeSpan.FromSeconds(dp1).ToString("hh\:mm\:ss"))
            'pathwriter.Close()
            ApExcel.Workbooks.Open(path3)
            ApExcel.Sheets(1).select
            ApExcel.Cells(i, 1) = cellN
            ApExcel.Cells(i, 2) = "Poly"
            ApExcel.Cells(i, 3) = dp
            ApExcel.Cells(i, 4) = TimeSpan.FromSeconds(dp2).ToString("hh\:mm\:ss")
            ApExcel.Cells(i, 5) = dpr
            ApExcel.Cells(i, 6) = TimeSpan.FromSeconds(dp1).ToString("hh\:mm\:ss")
            i = i + 1
            ApExcel.ActiveWorkbook.Close(True)
            ApExcel.Quit()
        End If
    End Sub
 
 
    Private Sub butboxes_Click(sender As Object, e As EventArgs) Handles butboxes.Click
        If reset = False Then
            If Boxes = 0 Then
                butboxes.BackColor = Color.Orange
                Boxes = Boxes + 1
                dx = DateTime.Now
            ElseIf Boxes = 1 Then
                butboxes.BackColor = Color.Red
                Boxes = Boxes + 1
                dxr = DateTime.Now
                If flagtimer = False Then
                    flagtimer = True
                    dreal = DateTime.Now
                End If
            End If
        ElseIf reset = True Then
            butboxes.BackColor = Color.LightGray
            Boxes = 0
            If Fronts = 0 And Backs = 0 And Elem = 0 And Screws = 0 And Boxes = 0 And Wires = 0 And Poly = 0 And Wf = 0 And others = 0 Then
                flagtimer = False
                dreale = DateTime.Now
                dstop = DateDiff(DateInterval.Second, dreal, dreale)
                'pathwriter = New StreamWriter(path2, True, Encoding.Unicode)
                'pathwriter.WriteLine("Stoppage time of " & "Cell N" & cellN & "; " & TimeSpan.FromSeconds(dstop).ToString("hh\:mm\:ss"))
                'pathwriter.Close()
                ApExcel.Workbooks.Open(path3)
                ApExcel.Sheets(2).select
                ApExcel.Cells(k, 1) = cellN
                ApExcel.Cells(k, 2) = TimeSpan.FromSeconds(dstop).ToString("hh\:mm\:ss")
                ApExcel.ActiveWorkbook.Close(True)
                ApExcel.Quit()
                k = k + 1
            End If
 
            dxe = DateTime.Now
            dx1 = DateDiff(DateInterval.Second, dxr, dxe)
            dx2 = DateDiff(DateInterval.Second, dx, dxe)
            'pathwriter = New StreamWriter(path, True, Encoding.Unicode)
            'pathwriter.WriteLine("Cell" & cellN & " ; " & "Boxes" & " ; " & dx & " ; " & TimeSpan.FromSeconds(dx2).ToString("hh\:mm\:ss") & " ; " & dxr & " ; " & TimeSpan.FromSeconds(dx1).ToString("hh\:mm\:ss"))
            'pathwriter.Close()
            ApExcel.Workbooks.Open(path3)
            ApExcel.Sheets(1).select
            ApExcel.Cells(i, 1) = cellN
            ApExcel.Cells(i, 2) = "Boxes"
            ApExcel.Cells(i, 3) = dx
            ApExcel.Cells(i, 4) = TimeSpan.FromSeconds(dx2).ToString("hh\:mm\:ss")
            ApExcel.Cells(i, 5) = dxr
            ApExcel.Cells(i, 6) = TimeSpan.FromSeconds(dx1).ToString("hh\:mm\:ss")
            i = i + 1
            ApExcel.ActiveWorkbook.Close(True)
            ApExcel.Quit()
        End If
    End Sub
 
 
    Private Sub butwall_Click(sender As Object, e As EventArgs) Handles butwall.Click
        If reset = False Then
            If Wf = 0 Then
                butwall.BackColor = Color.Orange
                Wf = Wf + 1
                dwf = DateTime.Now
            ElseIf Wf = 1 Then
                butwall.BackColor = Color.Red
                Wf = Wf + 1
                dwfr = DateTime.Now
                If flagtimer = False Then
                    flagtimer = True
                    dreal = DateTime.Now
                End If
            End If
        ElseIf reset = True Then
            butwall.BackColor = Color.LightGray
            Wf = 0
            If Fronts = 0 And Backs = 0 And Elem = 0 And Screws = 0 And Boxes = 0 And Wires = 0 And Poly = 0 And Wf = 0 And others = 0 Then
                flagtimer = False
                dreale = DateTime.Now
                dstop = DateDiff(DateInterval.Second, dreal, dreale)
                'pathwriter = New StreamWriter(path2, True, Encoding.Unicode)
                'pathwriter.WriteLine("Stoppage time of " & "Cell N" & cellN & "; " & TimeSpan.FromSeconds(dstop).ToString("hh\:mm\:ss"))
                'pathwriter.Close()
                ApExcel.Workbooks.Open(path3)
                ApExcel.Sheets(2).select
                ApExcel.Cells(k, 1) = cellN
                ApExcel.Cells(k, 2) = TimeSpan.FromSeconds(dstop).ToString("hh\:mm\:ss")
                ApExcel.ActiveWorkbook.Close(True)
                ApExcel.Quit()
                k = k + 1
            End If
 
            dwfe = DateTime.Now
            dwf1 = DateDiff(DateInterval.Second, dwfr, dwfe)
            dwf2 = DateDiff(DateInterval.Second, dwf, dwfe)
            'pathwriter = New StreamWriter(path, True, Encoding.Unicode)
            'pathwriter.WriteLine("Cell" & cellN & " ; " & "Wallframes" & " ; " & dwf & " ; " & TimeSpan.FromSeconds(dwf2).ToString("hh\:mm\:ss") & " ; " & dwfr & " ; " & TimeSpan.FromSeconds(dwf1).ToString("hh\:mm\:ss"))
            'pathwriter.Close()
            ApExcel.Workbooks.Open(path3)
            ApExcel.Sheets(1).select
            ApExcel.Cells(i, 1) = cellN
            ApExcel.Cells(i, 2) = "WallFrames"
            ApExcel.Cells(i, 3) = dwf
            ApExcel.Cells(i, 4) = TimeSpan.FromSeconds(dwf2).ToString("hh\:mm\:ss")
            ApExcel.Cells(i, 5) = dwfr
            ApExcel.Cells(i, 6) = TimeSpan.FromSeconds(dwf1).ToString("hh\:mm\:ss")
            i = i + 1
            ApExcel.ActiveWorkbook.Close(True)
            ApExcel.Quit()
        End If
    End Sub
 
 
 
    Private Sub butElem_Click(sender As Object, e As EventArgs) Handles butElem.Click
        If reset = False Then
            If Elem = 0 Then
                butElem.BackColor = Color.Orange
                Elem = Elem + 1
                de = DateTime.Now
            ElseIf Elem = 1 Then
                butElem.BackColor = Color.Red
                Elem = Elem + 1
                der = DateTime.Now
                If flagtimer = False Then
                    flagtimer = True
                    dreal = DateTime.Now
                End If
            End If
        ElseIf reset = True Then
            butElem.BackColor = Color.LightGray
            Elem = 0
            If Fronts = 0 And Backs = 0 And Elem = 0 And Screws = 0 And Boxes = 0 And Wires = 0 And Poly = 0 And Wf = 0 And others = 0 Then
                flagtimer = False
                dreale = DateTime.Now
                dstop = DateDiff(DateInterval.Second, dreal, dreale)
                'pathwriter = New StreamWriter(path2, True, Encoding.Unicode)
                'pathwriter.WriteLine("Stoppage time of " & "Cell N" & cellN & "; " & TimeSpan.FromSeconds(dstop).ToString("hh\:mm\:ss"))
                'pathwriter.Close()
                ApExcel.Workbooks.Open(path3)
                ApExcel.Sheets(2).select
                ApExcel.Cells(k, 1) = cellN
                ApExcel.Cells(k, 2) = TimeSpan.FromSeconds(dstop).ToString("hh\:mm\:ss")
                ApExcel.ActiveWorkbook.Close(True)
                ApExcel.Quit()
                k = k + 1
 
            End If
 
            dee = DateTime.Now
            de1 = DateDiff(DateInterval.Second, der, dee)
            de2 = DateDiff(DateInterval.Second, de, dee)
            'pathwriter = New StreamWriter(path, True, Encoding.Unicode)
            'pathwriter.WriteLine("Cell" & cellN & " ; " & "Elements" & " ; " & de & " ; " & TimeSpan.FromSeconds(de2).ToString("hh\:mm\:ss") & " ; " & der & " ; " & TimeSpan.FromSeconds(de1).ToString("hh\:mm\:ss"))
            'pathwriter.Close()
            ApExcel.Workbooks.Open(path3)
            ApExcel.Sheets(1).select
            ApExcel.Cells(i, 1) = cellN
            ApExcel.Cells(i, 2) = "Elements"
            ApExcel.Cells(i, 3) = de
            ApExcel.Cells(i, 4) = TimeSpan.FromSeconds(de2).ToString("hh\:mm\:ss")
            ApExcel.Cells(i, 5) = der
            ApExcel.Cells(i, 6) = TimeSpan.FromSeconds(de1).ToString("hh\:mm\:ss")
            i = i + 1
            ApExcel.ActiveWorkbook.Close(True)
            ApExcel.Quit()
        End If
    End Sub
 
 
    Private Sub butBack_Click(sender As Object, e As EventArgs) Handles butBack.Click
        If reset = False Then
            If Backs = 0 Then
                butBack.BackColor = Color.Orange
                Backs = Backs + 1
                db = DateTime.Now
            ElseIf Backs = 1 Then
                butBack.BackColor = Color.Red
                Backs = Backs + 1
                dbr = DateTime.Now
                If flagtimer = False Then
                    flagtimer = True
                    dreal = DateTime.Now
                End If
            End If
        ElseIf reset = True Then
            butBack.BackColor = Color.LightGray
            Backs = 0
            If Fronts = 0 And Backs = 0 And Elem = 0 And Screws = 0 And Boxes = 0 And Wires = 0 And Poly = 0 And Wf = 0 And others = 0 Then
                flagtimer = False
                dreale = DateTime.Now
                dstop = DateDiff(DateInterval.Second, dreal, dreale)
                'pathwriter = New StreamWriter(path2, True, Encoding.Unicode)
                'pathwriter.WriteLine("Stoppage time of " & "Cell N" & cellN & "; " & TimeSpan.FromSeconds(dstop).ToString("hh\:mm\:ss"))
                'pathwriter.Close()
                ApExcel.Workbooks.Open(path3)
                ApExcel.Sheets(2).select
                ApExcel.Cells(k, 1) = cellN
                ApExcel.Cells(k, 2) = TimeSpan.FromSeconds(dstop).ToString("hh\:mm\:ss")
                ApExcel.ActiveWorkbook.Close(True)
                ApExcel.Quit()
                k = k + 1
            End If
 
            dbe = DateTime.Now
            db1 = DateDiff(DateInterval.Second, dbr, dbe)
            db2 = DateDiff(DateInterval.Second, db, dbe)
            'pathwriter = New StreamWriter(path, True, Encoding.Unicode)
            'pathwriter.WriteLine("Cell" & cellN & " ; " & "Backs" & " ; " & db & " ; " & TimeSpan.FromSeconds(db2).ToString("hh\:mm\:ss") & " ; " & dbr & " ; " & TimeSpan.FromSeconds(db1).ToString("hh\:mm\:ss"))
            'pathwriter.Close()
            ApExcel.Workbooks.Open(path3)
            ApExcel.Sheets(1).select
            ApExcel.Cells(i, 1) = cellN
            ApExcel.Cells(i, 2) = "Backs"
            ApExcel.Cells(i, 3) = dbe
            ApExcel.Cells(i, 4) = TimeSpan.FromSeconds(db2).ToString("hh\:mm\:ss")
            ApExcel.Cells(i, 5) = dbr
            ApExcel.Cells(i, 6) = TimeSpan.FromSeconds(db1).ToString("hh\:mm\:ss")
            i = i + 1
            ApExcel.ActiveWorkbook.Close(True)
            ApExcel.Quit()
        End If
    End Sub
 
    Private Sub butFronts_Click(sender As Object, e As EventArgs) Handles butFronts.Click
        If reset = False Then
            If Fronts = 0 Then
                butFronts.BackColor = Color.Orange
                Fronts = Fronts + 1
                df = DateTime.Now
            ElseIf Fronts = 1 Then
                butFronts.BackColor = Color.Red
                Fronts = Fronts + 1
                dfR = DateTime.Now
                If flagtimer = False Then
                    flagtimer = True
                    dreal = DateTime.Now
                End If
            End If
        ElseIf reset = True Then
            butFronts.BackColor = Color.LightGray
            Fronts = 0
            If Fronts = 0 And Backs = 0 And Elem = 0 And Screws = 0 And Boxes = 0 And Wires = 0 And Poly = 0 And Wf = 0 And others = 0 Then
                flagtimer = False
                dreale = DateTime.Now
                dstop = DateDiff(DateInterval.Second, dreal, dreale)
                'pathwriter = New StreamWriter(path2, True, Encoding.Unicode)
                'pathwriter.WriteLine("Stoppage time of " & "Cell N" & cellN & "; " & TimeSpan.FromSeconds(dstop).ToString("hh\:mm\:ss"))
                'pathwriter.Close()
                ApExcel.Workbooks.Open(path3)
                ApExcel.Sheets(2).select
                ApExcel.Cells(k, 1) = cellN
                ApExcel.Cells(k, 2) = TimeSpan.FromSeconds(dstop).ToString("hh\:mm\:ss")
                ApExcel.ActiveWorkbook.Close(True)
                ApExcel.Quit()
                k = k + 1
            End If
 
            dfe = DateTime.Now
            df1 = DateDiff(DateInterval.Second, dfR, dfe)
            df2 = DateDiff(DateInterval.Second, df, dfe)
            'pathwriter = New StreamWriter(path, True, Encoding.Unicode)
            'pathwriter.WriteLine("Cell" & cellN & " ; " & "Fronts" & " ; " & df & " ; " & TimeSpan.FromSeconds(df2).ToString("hh\:mm\:ss") & " ; " & dfR & " ; " & TimeSpan.FromSeconds(df1).ToString("hh\:mm\:ss"))
            'pathwriter.Close()
            ApExcel.Workbooks.Open(path3)
            ApExcel.Sheets(1).select
            ApExcel.Cells(i, 1) = cellN
            ApExcel.Cells(i, 2) = "Fronts"
            ApExcel.Cells(i, 3) = dfe
            ApExcel.Cells(i, 4) = TimeSpan.FromSeconds(df2).ToString("hh\:mm\:ss")
            ApExcel.Cells(i, 5) = dfR
            ApExcel.Cells(i, 6) = TimeSpan.FromSeconds(df1).ToString("hh\:mm\:ss")
            i = i + 1
            ApExcel.ActiveWorkbook.Close(True)
            ApExcel.Quit()
        End If
    End Sub
 
 
    Private Sub DEMO_Load(sender As Object, e As EventArgs) Handles Me.Load
        'initialisation
        Fronts = 0
        Backs = 0
        Elem = 0
        Screws = 0
        Boxes = 0
        Wires = 0
        Poly = 0
        Wf = 0
        others = 0
        'Choix du numéro de cellule
        cellN = InputBox("please, Write a cell number")
        While cellN = ""
            cellN = InputBox("please, Write a cell number")
        End While
 
        ''chemin du fichier texte données
        'OpenFileDialog2.Filter = "Text (*.txt)|*.txt"
        'If OpenFileDialog2.ShowDialog() = Windows.Forms.DialogResult.OK Then
        '    path = OpenFileDialog2.FileName
        'Else
        '    MsgBox("No file selected, please choose one file", MsgBoxStyle.Exclamation, "No file selected")
        'End If
        'pathwriter = New StreamWriter(path, True, Encoding.Unicode)
        'pathwriter.WriteLine("Cell" & " ; " & "part" & " ; " & "Amber" & " ; " & "Amber time" & " ; " & "RED" & " ; " & "Stoppage")
        'pathwriter.Close()
        ''chemin du fichier texte temps stop total
        'OpenFileDialog3.Filter = "Text (*.txt)|*.txt"
        'If OpenFileDialog3.ShowDialog() = Windows.Forms.DialogResult.OK Then
        '    path2 = OpenFileDialog3.FileName
        'Else
        '    MsgBox("No file selected, please choose one file", MsgBoxStyle.Exclamation, "No file selected")
        'End If
 
        'chemin du fichier EXCEL DONNEES
        OpenFileDialog3.Filter = "Excel Files(.xls)|*.xls| Excel Files(.xlsx)|*.xlsx| Excel Files(*.xlsm)|*.xlsm"
        If OpenFileDialog3.ShowDialog() = Windows.Forms.DialogResult.OK Then
            path3 = OpenFileDialog3.FileName
        Else
            MsgBox("No file selected, please choose one file", MsgBoxStyle.Exclamation, "No file selected")
        End If
        ApExcel.Workbooks.Open(path3)
        ApExcel.Sheets(1).select
        ApExcel.Cells(i, 1) = "Cell Number"
        ApExcel.Cells(i, 2) = "Parts"
        ApExcel.Cells(i, 3) = "Amber"
        ApExcel.Cells(i, 4) = "Amber Time"
        ApExcel.Cells(i, 5) = "Red"
        ApExcel.Cells(i, 6) = "Out of part time"
        ApExcel.Sheets(2).select
        ApExcel.Cells(k, 1) = "Cell Number"
        ApExcel.Cells(k, 2) = "Real Stoppage time"
        i = i + 1
        k = k + 1
        ApExcel.ActiveWorkbook.Close(True)
        ApExcel.Quit()
 
    End Sub
 
    'Close excel and free the Tablet memory and processor
 
    Private Sub DEMO_Closed(sender As Object, e As EventArgs) Handles Me.Closed
        'closing excel
 
        ApExcel.Quit()
        'System.Runtime.InteropServices.Marshal.ReleaseComObject(wsExcel)
        'System.Runtime.InteropServices.Marshal.ReleaseComObject(wbExcel)
        'System.Runtime.InteropServices.Marshal.ReleaseComObject(ApExcel)
        ApExcel = Nothing
        wbExcel = Nothing
        wsExcel = Nothing
        'remove excel process which won't close
        Call KillAllExcels()
 
    End Sub
    Sub KillAllExcels()
        Dim proc As System.Diagnostics.Process
        For Each proc In System.Diagnostics.Process.GetProcessesByName("EXCEL")
            proc.Kill()
        Next
    End Sub
End Class

**thovan** · 21/11/2019, 11h00

Re...

3 jours ???
Franchement.... c'est mort !

Si j'étais à côté de toi non stop je dirais pas mais...... 3 jours.... à distance...

Je sais même pas par où commencer

Question cruciale qui peut peut-être te sauver....

Les différents utilisateurs utilisent le même stock???
Ou chacun à la sien ???

Si chacun à le sien.... chacun a son fichier Excel....
Et ton appli peut marcher !

**Heorhelm** · 21/11/2019, 11h20

3 jours max.

j'ai pas trop le choix je vient de finir l'appli dont j'ai mis le code sur cette discussion. Et il me reste que 3 jours pour le faire

C'est clair que je sais pas si ils sauront se débrouiller après sans moi. je te rejoins sur ce point.

En fait ils veulent qu'un seul fichier pour que la lecture et l'analyse soient plus faciles.
Donc avoir un fichier par poste de travail rend cette solution viable mais ils en veulent pas ..

**thovan** · 21/11/2019, 11h23

Ok mais...
Le stock est commun ou chacun à la sien?

Si c'est chacun le sien, je te dis pas le nombre de champs dans ta base de donnée....

Très sincèrement, pour faire un truc à l'arrache (et donc probablement merdique), soit ils laissent tomber soit ils prennent un freelance pour le faire...mais ce n'est que mon avis :p

**Heorhelm** · 21/11/2019, 11h33

Chaque opérateur possède son propre stock
Du coup chaque opérateur posséderait cette appli, et viendrait écrire sur un fichier excel "commun" où toutes les infos seraient enregistrées pour être traitées par la suite.

et je partage ton avis.
En 3 semaines je suis arrivé à sortir ce programme là.
Je suis parti de zéro, j'ai suivit les forums EG/FR/US pour arriver à ce programme et il fonctionne enfin !
Il est loin d'être parfait mais bon.. Au moins il fait ce qu'on lui demande.

Alors c'est sûr qu'en trois jours et en repartant de Zéro ...

**thovan** · 21/11/2019, 11h35

On ne peut pas faire de miracles....

**Thumb down** · 22/11/2019, 12h30

bonjour,

Si tu souhaites débuter dans un langage de programmation, oublie peut-être le VB.

il ne faut pas confondre Vb6 et VB.net!

Vb6 n'est plus maintenu depuis 2003 mais vb.net n'est pas près de disparaître!

il faut arrêter de faire cette vilaine publicité à VB.net ça met tes collègues au chômage!

dans le projet il faut décocher la librairie Visual Basic!

**thovan** · 22/11/2019, 12h53

Envoyé par Thumb down

bonjour,

il ne faut pas confondre Vb6 et VB.net!

Vb6 n'est plus maintenu depuis 2003 mais vb.net n'est pas près de disparaître!

il faut arrêter de faire cette vilaine publicité à VB.net ça met tes collègues au chômage!

dans le projet il faut décocher la librairie Visual Basic!

Sérieux...?
J'ai pourtant lu à divers endroit que Microsoft laissait tomber le VB...

**Thumb down** · 22/11/2019, 13h23

Nom : Sans titre.png
Affichages : 292
Taille : 4,9 Ko

pour des question de compatibilité et pour faciliter le passage aux .net, Microsoft à implémenté la librairie Microsoft.VisualBasic qui avec le temps présente plus un inconvénient qu'un avantage!

bon nombre de développeur aborde les nouveau projets en VB6 et non en VB.net vue que la librairie Microsoft.VisualBasic est activé par défaut!

exemple Trim(string) Vb6 string.trim() VB.net!

c'est Microsoft.VisualBasic que Microsoft veut abandonner vb.net reprend les Framework standard il n'y a pas lieu de l’abandonner!

mes collègues qui ne voie que par le C# modifie parfois mon code en activant Microsoft.VisualBasic parce dans leurs esprits c'est pas grave! mais moi j'ai ramé longtemps cause de ce préjugé!

mon seule point de convergence avec ta remarque #10 serrait qu’il est préférable d’utiliser un langage avec une bonne réputation !

**thovan** · 22/11/2019, 13h38

hannn et bin dans un sens.... tu me rassures !!
Parce que je pensais que c'était révolu et qu'il valait mieux tout doucement passer sur autre chose...

Après, le C# reste quand même bien plus répandu que le VB... mais la syntaxe...

**Thumb down** · 22/11/2019, 13h46

j'ai commencé en VB3,Vb4,....,2005 à 2019!

comment être de performance égale en C# pour le même salaire!!!!!!

**thovan** · 22/11/2019, 13h50

Je comprends, mais à l'heure actuelle... tu conseillerais le VB.NET à quelqu'un qui veut se lancer dans la programmation ?

**Thumb down** · 22/11/2019, 14h00

Toute la chaîne de commandement ne fait pas la différence entre VBA et VB.net!

VB.net c'est pour les vieux brise car comme moi qui doivent fournir un travail de qualité constante tout en devant s'adapter aux nouvelles technologies.

Vb.net et bases de données [Débutant]

VB.NET

Vue hybride

Discussions similaires

Partager

Partager