Bonjour,

J'ai une macro qui me liste dans une liste déroulante les périphérique disponible sur mon ordi. Elle fonctionne très bien. En revanche elle ne prend pas en compte un Téléphone. Dans le poste de Travail le Tel apparait ainsi GT-I9100, et n'a donc pas de lettre.
comment faire apparaitre ce périphérique dans ma liste déroulante?

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
ublic Sub Peripherique()
'
Dim d As Object
Dim strTmp As String
'
strTmp = ""
'
With CreateObject("Scripting.FileSystemObject")
 For Each d In .Drives
    If d.drivetype < 4 Then
     strTmp = strTmp & d.Path & ("\") & "[" & d.volumename & "],"
    End If
  '
 Next
 '
End With
Set d = Nothing
'
With Range("Q1").Validation
 .Delete
 .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Formula1:=strTmp
'
End With
'
End Sub