Détecter la lecture d'un code barre et activer Excel
Bonjour
Je souhaite activer Excel lors d'une lecture d'un code barre via une douchette.
Code:
1 2 3 4 5 6 7 8 9 10 11 12 13 14
| Private Sub Workbook_Open()
'after start, open bartender
Call Shell("C:\Program Files\Bartender\Bartender.exe")
End Sub
Private Sub beforeactivate_usb1()
If Application.WindowState = xlMinimized Then
Application.WindowState = xlMaximized
Else
Application.WindowState = xlMinimized
End If
End Sub |
Le seul problem est Private Sub beforeactivate_usb1(); j'ai tape ça au hazard vue que je ne sais pas comment faire. Je voudrai à chaque fois que le port usb est activé (la douchette) cela lance mon petit bout de code.
Merci de votre aide