'Tester la permission sur un répertoire
Public Function PermissionOK(strRepertoire As String) As Boolean
On Error GoTo PermissionOK_Err
 
    Dim varPermission As Variant    'En utilisant la fonction DIR, si l'erreur 52 est retournée
                                    'cela signifie qu'on a pas accès au répertoire
 
    varPermission = Dir(strRepertoire & "UnnomdefichierALaCon.txt" )
    'Peu importe ce qui est retourné, si on passe ici c'est qu'on a les droits
    'ou que rien n'existe
    PermissionOK = True
    Exit Function
 
PermissionOK_Err:
    'Si err 52 alors on a pas les droits sur le folder
    If Err.Number = 52 Then
        PermissionOK = False
    End If
 
End Function