Discussion :

[XceSs]

Bonsoir, est-ce qu'il y a un moyen ou une procédure permettant de vérifier l'acces à un disque dur ou serveur svp ?

Merci de votre aide

[DeTraX]

Bonsoir,

Tu peux t'en sortir simplement avec un GetFolder de ton chemin et récupération du code erreur.
Pas sûr qu'une fonction soit indispensable pour ça, mais si c'est ce que tu cherches, essaie avec ça. La fonction marche avec un chemin physique ou UNC.
La référence "Microsoft Scripting Runtime" doit être activée.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
Public Function ChekPath(myPath As String) As Boolean
    Dim myFolfer As folder
    Dim FSO      As New FileSystemObject
    '
    On Error Resume Next
        myfolder = FSO.GetFolder(myPath)
        If Err.Number = 0 Then
            ChekPath = True
        Else
            ChekPath = False
        End If
    On Error GoTo 0
    '
    Set FSO = Nothing
End Function

[XceSs]

Tu crois que cela pourrait marcher sinon ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Option Explicit
 
Declare Function WNetGetConnection Lib "mpr.dll" Alias "WNetGetConnectionA" (ByVal lpszLocalName As String, ByVal lpszRemoteName As String, ByRef cbRemoteName As Long) As Long
 
Dim Lettre As String
  Dim Cible As String * 255
  Cible = String$(255, Chr$(32))
  Lettre = Feuil2.Range("G2").Value
  WNetGetConnection Lettre, Cible, 255
  If Trim(Cible) = "" Then
   MsgBox "Réseau [" & Lettre & "@ inaccessible ! Fermeture du logiciel " & ThisWorkbook.Name, vbInformation
   ThisWorkbook.Close
  End If

[XceSs]

Bonjour, je ne peux pas activer la référence "Microsoft Scripting Runtime" car il faut le faire sur tous les ordis du taff (100), il y a t-il un autre moyen ?

Merci de votre aide

[78chris]

Bonjour

L'insctuction ChDrive avec gestion de l'erreur 68.

[XceSs]

ok merci bonne journée