Sub Test()
Dim vDoss$
MsgBox GetUNC("M:")
vDoss = GetUNC("M:\toto")
MsgBox vDoss
'toto = nom dossier partagé sur le réseau
End Sub
Private Function GetUNC(strMappedDrive As String) As String
'[X] -> cocher les références idoines dans VBE
Dim strDrive$, strShare$, objFso As FileSystemObject
Set objFso = New FileSystemObject
strDrive = objFso.GetDriveName(strMappedDrive)
strShare = objFso.Drives(strDrive).ShareName
GetUNC = Replace(strMappedDrive, strDrive, strShare)
Set objFso = Nothing 'source:c|page 15714|a
End Function