Message d'Accès SharePoint / VBA

Bonjour,

J'utilise actuellement une macro pour consolider à un lot de classeurs sur un repertoire SharePoint.

j’ai intégralité des accès ce repertoire et aux fichier qu'il contiens.

Cependant, le fichier étant un outil de reporting, certain de mes collaborateurs sont amenés a l'utiliser sur un périmètre restreint.

n’ayant pas accès à l'intégralité des fichiers, la conso s'effectue donc partiellement sur le périmètre ou ils ont les droits d'accès aux fichiers.

Le problème c'est qu'a chaque tentative d'ouverture d'un classeur ou il n'ont pas l'accès, le SharePoint émet une fenêtre login/mot de passe que l'utilisateur doit impérativement "annuler" pour passer au fichier suivant.

Es-ce qu'il y aurais un bout de code permettant de passer directement au classeur suivant quand celui-ci n'est pas accessible ?

Cordialement.

Ch@p'

Bonjour,

Donc, je suppose qu'il y a un code qui effectue le travail d'ouverture du fichier et demande le code d'accès ? Peux-tu nous soumettre le code pour qu'on puisse jeter un coup d'oeil à quel moment il demande le login et mdp.

Bonjour,

Je pense qu'il s'agit d'un de ces morceau de code :

Public Function OpenSafeMode() As Workbook

    Set OpenSafeMode = Nothing

    On Error Resume Next

    Set OpenSafeMode = Workbooks.Open( _
        Filename:=pPath, _
        UpdateLinks:=False, _
        IgnoreReadOnlyRecommended:=True, _
        Notify:=False)

    On Error GoTo 0

    BRPIndisponible = pName

End Function

Public Function OpenDefaultMode() As Workbook

    Set OpenDefaultMode = Nothing

    On Error Resume Next

    Set OpenDefaultMode = Workbooks.Open( _
        Filename:=pPath, _
        UpdateLinks:=True, _
        IgnoreReadOnlyRecommended:=False, _
        Notify:=False)

    On Error GoTo 0

End Function

Cordialement.

Ch@p'