Discussion :

[vversaveau]

Bonjour,

J'aimerais récupérer la lettre d'un disque dur par rapport à son nom de volume.

Merci d'avance

[vversaveau]

[VBA]
'Afficher la lettre d'un lecteur par rapport à son nom de volume

Public Function lettre_lecteur(nom_volume As String)

Dim fs As Scripting.FileSystemObject

Dim d As Drive

Dim chemin As String

On Error Resume Next

Set fs = CreateObject("Scripting.FileSystemObject")

For Each d In fs.Drives

If d.VolumeName = nom_volume Then

chemin = d.DriveLetter

End If

Next

chemin = chemin & ":\"

End Function