Bonjour

Je souhaite activer Excel lors d'une lecture d'un code barre via une douchette.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
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