Discussion :

[kervin]

Bonjour,


Je souhaite lier une liste sharepoint à une application Access 2013 via le VBA.
l'instruction 'DoCmd.TransferSharePointList acLinkSharePointList' fonctionne mais je reçois un popup me demandant mon login + mdp, j'aimerais que ces paramètres soient intégrés à mon code.

J'ai essayé ceci, mais ce n'est visiblement pas la bonne solution

Code :

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

DoCmd.TransferSharePointList acLinkSharePointList, "https://....", "T_Liste_4021", , "T_Liste_4021", User = "xxx", Password = "yyy"

Quelqu'un peut-il m'aider ?

Merci

[llgcolot]

Bonjour,

Pas sur que cela soit possible via VBA. L'identification est gérée par le système d'exploitation. Ces données se retrouvent dans le gestionnaire d'identification dans le panneau de configuration sous la rubrique Comptes d'utilisateurs.

[jff42]

J'ai trouvé. Désolé de m'être éloigné de ce sympathique forum pendant longtemps.

Ce que je fais : j'ai une fonction qui me fait le rattachement de mes listes SP, exécutée systématiquement à l'ouverture de la base.

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
17
18
19
20
21
22
23
 
function ActualiserAttaches() as boolean
Dim arrTablename As Variant, arrSourceName As Variant, strSite As String, i As Long
 
        arrTablename = Array("Activités", "Sorties")
        ' ne pas mettre UserInfo, c'est rajouté automatiquement
        arrSourceName = Array("{****995E-****-****-****-30698C68****}", "{****2B85-****-****-****-70F4843F****}") ' , "{****51AD-****-****-****-867E0287****}")
        strSite = "https://xxx.sharepoint.com/sous-site"       
 
    For i = LBound(arrTablename) To UBound(arrTablename)
        ' supprimer la table avant tout, sauf si elle n'existe pas
        On Error Resume Next
        CurrentDb.TableDefs.Delete (arrTablename(i))
        '
        On Error GoTo ActualiserAttaches_Err
        DoCmd.TransferSharePointList acLinkSharePointList, strSite, arrSourceName(i), , arrTablename(i), False
    Next i
    ActualiserAttaches = True 'la fonction est réussie
Return
ActualiserAttaches_Err:
    MsgBox "Erreur " & err.Number & " (" & err.Description & _
        ") dans ActualiserAttaches - " & arrTablename(i), vbCritical
    Return

Le côté pénible c'est de récupérer les ID des listes SP. Je ne sais pas les trouver par programmation (ça doit être possible, je veux bien le conseil) donc je le fais dans SharePoint Designer 2013, mais du coup ce n'est pas très portable.

Enfin pour la connexion, SP demande l'identité de l'utilisateur au premier traitement ; je donne celle d'un user avec droit de modif sur les listes concernées.