Vérifier si un site SharePoint est accessible en écriture avec VBA

Bonjour,

Mon équipe utilise un classeur qui permet d'envoyer une partie de ce classeur vers un site d'équipe SharePoint.

Lors de l'envoi du fichier, ma procédure gère le cas où l'utilisateur essaye d'envoyer une partie de ce fichier dans le site SharePoint alors qu'il n'a pas les droits pour écrire sur ce site. Voici un extrait du code :

    On Error GoTo ErrorConnect
    .SaveAs Filename:=LeRep & LeNom, FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
.Close SaveChanges:=True

ErrorConnect:
  'Workbooks.Open Filename:=croisementGM
  MsgBox "Action non autorisée"

  ActiveWorkbook.Close SaveChanges:=True

Toutefois, je cherche un moyen de tester la connexion au site SharePoint avant le lancement de ma procédure (ci-dessus).

J'ai écumé le web mais je n'ai pas trouvé de solution qui me permette de vérifier que l'utilisateur puisse écrire sur un site SharePoint défini. Auriez-vous des idées ?

Merci d'avance pour votre aide;

Horusbk

bonjour,

une fonction vba qui permet de vérifier s'il est possible d'écrire dans un répertoire donné.

Sub aargh()
    rep = "h:\comics"
    If HasWriteRight(rep) Then
        MsgBox "j'ai les droits d'écriture"
    Else
        MsgBox "une erreur est survenue"
    End If
End Sub

Function HasWriteRight(rep)

    On Error Resume Next
    Open rep & "\wwwwwxxxxxwwww" For Output As 1
    If Err <> 0 Then
        'permission denied = error 70
        MsgBox "erreur " & Err.Number & " " & Err.Description
        HasWriteRight = False
        On Error GoTo 0
    Else
        On Error GoTo 0
        Close 1
        Kill rep & "\wwwwwxxxxxwwww"
        HasWriteRight = True
    End If

End Function

Bonjour h2so4,

Merci pour votre réponse ! C'est exactement ce dont j'avais besoin.

Horusbk.