Public Function MappageLecteurReseau()
Dim oNetWork As Object
Set oNetWork = CreateObject("WScript.Network")
On Error Resume Next
oNetWork.MapNetworkDrive "Z:", "[URL="file://\\178.26.158.23\acquisoft"]\\178.26.158.23\acquisoft[/URL]", False, "Admin", "Admin"
DoEvents
MappageLecteurReseau = Err.Number = 0
End Function
Public Sub SupprimeLecteurReseau()
Dim oNetWork As Object
Set oNetWork = CreateObject("WScript.Network")
oNetWork.RemoveNetworkDrive "Z:"
DoEvents
End Sub