Récupération d'une erreur Windows

[steo75]

Bonjour,

Je voudrais faire une petite macro avec excel qui testerai un chemin réseau.

Cette macro serait envoyée à mes users avec un mail ou un net send en retour si le user a ou pas les droits dans le chemin que je lui fait tester...

Le problème que j'ai c'est que même si j'ai ou pas les droits sur un dossier du réseau à tester, Windows me renvoie dans les 2 cas l'erreur 0.

Voici le code que j'ai sur mon bouton:

Private Sub cmdStartCheck_Click()

Dim Path2check As String


Range("B9").Activate
Path2check = ActiveCell.Value

'Ouvre le chemin réseau choisi
RetVal = Shell("explorer.exe " + Path2check, vbNormalNoFocus)

MsgBox Err.Number
MsgBox Err.Description

'If Err.Number = 0 Then
' Mail en retour avec "ACCESS KO"
'Else
' Mail en retour avec "ACCESS OK"
'End If

End Sub


Comment faire pour qu'Excel différencie si Windows ouvre le chemin demandé dans Window Explorer sans problème ou si Windows affiche le message "F:\DossierTest1\DossierTest2" *Accès refusé*. ??

Merci d'avance pour votre aide...

 

[steo75]

Re : Récupération d'une erreur Windows

Bon, j'ai essayé un truc comme ça, mais visiblement ça n'a l'air de marcher que si un fichier est spécifié... et dans mon cas, c'est un endroit du réseau que je cherche à tester:

Private Sub cmdStartCheck_Click()
On Error Resume Next
Dim Path2Check As String

Range("A9").Activate
Path2Check = ActiveCell.Value

Open Path2Check For Input As #1

Select Case Err.Number
Case 0
MsgBox "Access is OK"
Case 5
MsgBox "Access is denied"
Case 53
MsgBox "Path not valid"
Case Else
MsgBox "Unknown Error"
End Select

Close #1
End Sub