Discussion :

[marwal]

Bonsoir à tous,

Voici mon soucis, je suis occupé à réalisé un projet d'automatisation de rédaction de rapports, pour différentes raisons souhaiterais tester si une clé USB est plugger dans un des ports. Cette clé aurais un nom de volume défini.
Je souhaiterais savoir si il y a moyen de détecter un clé via un code VBA en XL.
Je remercie d'avance toutes les personnes qui m'aideront.

Bonne soirée à tous.

[78chris]

Bonjour

Le code de ce lien devrait t'aider
Edit

J'ai retrouvé ce code dérivé d'un exemple de Silkyroad
http://silkyroad.developpez.com/

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
 
Sub ListeLecteursAmovible()
Dim FSO As Object
Dim Drv As Object
 
Set FSO = CreateObject("Scripting.FileSystemObject")
x = 1
For Each Drv In FSO.Drives
On Error GoTo suite
If Drv.DriveType = 1 Then
y = Drv.volumename
If y <> 0 Then
Sheets("Feuil1").Range("A" & x).Value = Drv.driveletter
Sheets("Feuil1").Range("B" & x).Value = Drv.volumename
x = x + 1
End If
End If
 
suite:
If Err = 71 Then y = 0: Resume Next
Next
End Sub

[marwal]

Merci beaucoup ton code fonctionne parfaitement.