Discussion :

[mekongboy]

Bonjour,
J'ai récupérer ce code sur le site de microsoft mais je voudrais afficher la liste des lecteurs dans un combobox. Je travaille avec le vb de excel. J'ai fait des essais mais ca marchait pas.

Sub ListeUnites()
Const Remote = 3
Dim fs ' As Scripting.FileSystemObject
Dim d ' As Drive
Dim sResult ' As String
Dim s ' As String

On Error resume next
Set fs = CreateObject("Scripting.FileSystemObject")
For Each d In fs.Drives
sResult = sResult & d.DriveLetter & " - "
If d.DriveType = Remote Then
s = d.ShareName
Else
s = d.VolumeName
End If
sResult = sResult & s & vbCrLf
Next
MsgBox sResult
End Sub

Merci pour votre aide

[rigobert]

Est-ce que tu peux décrire de façon un peu plus précise ton problème, "ça marche pas" c'est un peu vague...