FAQ access 2007

DoCmd.TransferSharePointList acLinkSharePointList, "http://serveur", "Liste des clients"

DoCmd.TransferSharePointList acLinkSharePointList, "http://serveur", "Liste des clients", ,"Les Clients"

On Error Resume Next
Dim oCnx As New ADODB.Connection
Dim oRst As New ADODB.Recordset
Dim strName As String
oCnx.ConnectionString = "provider=msdaipp.dso; data source=" & _
"http://monserveur/Lists"
oCnx.Open
Set oRst = oCnx.OpenSchema(adSchemaTables)
While Not oRst.EOF
    MsgBox GetNameList(oRst.Fields("TABLE_NAME"))
    oRst.MoveNext
Wend

Function GetNameList(strList As String) As String
Dim oStr() As String
oStr = Split(strList, "/")
GetNameList = oStr(UBound(oStr))
End Function

Public Function TestSharepointList(strNomTable) As Boolean
On Error GoTo err:
Dim oDb As DAO.Database
Dim oTbl As DAO.TableDef
Dim oPrp As DAO.Property
Set oDb = CurrentDb
Set oTbl = oDb.TableDefs(strNomTable)
Set oPrp = oTbl.Properties("WSSVersion")
TestSharepointList = True

fin:
Exit Function

err:
If err.Number <> 3270 Then
    If err.Number = 3265 Then
        MsgBox "Table non trouvée"
    Else
        MsgBox "Erreur inconnue"
    End If
End If
Resume fin:
End Function

If TestSharepointList("Liste des clients") Then
    MsgBox "Ceci est une liste Sharepoint"
Else
    MsgBox "Ceci n'est pas une liste Sharepoint"
End If