Sub AfficherNomServeur()
'activer la reference Microsoft scripting Runtime
Dim fs As Object, f As File, nomserveur As String
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFile(ActiveWorkbook.FullName)
nomserveur = f.Drive.ShareName
End Sub