Import d'une liste sharepoint via VBA
Bonjour, je viens ici car je cherche désespérément une solution à l'erreur que je rencontre.
Mon objectif est d'importer une liste Sharepoint sur mon classeur Excel de manière automatique via du vb.
Pour cela j'ai récupérer la requête de la liste Sharepoint (Outil de liste -> liste -> exporter vers Excel), cela me donne un fichier Microsoft Excel Web Query File, (.iqy).
En ouvrant ce fichier via le bloc note on y trouve l'url du site Sharepoint, le nom de la liste et le guid d'affichage.
J'ai trouvé une procédure VB qui me permet d'importer ma liste, grâce l'url, le nom de liste et le guid d'affichage, sur une nouvelle feuille Excel.
Lorsque je lance la procédure je reçois l'erreur 1004, la liste n'existe pas. Elle a peut être supprimé par un autre utilisateur.
La liste existe pourtant bien ..
Ci joint ma fonction :
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
| Sub RecupSharepointContinuite()
'Worksheets("Continuite_Division").Activate
Dim objMylist As ListObject
Dim objWksheet As Worksheet
Dim strSPServer As String
Const SERVER As String = "ips-frb.bddf.echonet/sites/frb"
Const LISTNAME As String = "{157F9A4C-71DA-4997-A826-B50268659170}"
Const VIEWNAME As String = "{62BACEB7-8220-4275-A2B2-ADDE7B276F24}"
'The Sharepoint server URL pointing to the sharepoint list to import into Excel.
strSPServer = "http://" & SERVER & "/_vti_bin"
'Add a new worksheet to the active workbook.
Set objWksheet = Worksheets.Add
'Add a list range to the newly created worksheet
'and populated it with the data from the Sharepoint list
Set objMylist = objWksheet.ListObjects.Add(SourceType:=xlSrcExternal, _
Source:=Array(strSPServer, LISTNAME, VIEWNAME), LinkSource:=True, TableStyleName:=xlGuess, Destination:=Range("A1"))
End Sub |
Ci joint le sript de la requête :
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
| WEB1 http://ips-frb.bddf.echonet/sites/frb/_vti_bin/owssvr.dll?XMLDATA=1&List={62BACEB7-8220-4275-A2B2-ADDE7B276F24}&View={157F9A4C-71DA-4997-A826-B50268659170}&RowLimit=0&RootFolder=%2fsites%2ffrb%2fLists%2fCONTINUITE%202014
Selection={62BACEB7-8220-4275-A2B2-ADDE7B276F24}-{157F9A4C-71DA-4997-A826-B50268659170}
EditWebPage=
Formatting=None
PreFormattedTextToColumns=True
ConsecutiveDelimitersAsOne=True
SingleBlockTextImport=False
DisableDateRecognition=False
DisableRedirections=False
SharePointApplication=http://ips-frb.bddf.echonet/sites/frb/_vti_bin
SharePointListView={157F9A4C-71DA-4997-A826-B50268659170}
SharePointListName={62BACEB7-8220-4275-A2B2-ADDE7B276F24}
RootFolder=/sites/frb/Lists/CONTINUITE 2014 |
J'ai également essayé ceci pour la variable serveur :
SERVER As String = "ips-frb.bddf.echonet/sites/frb/Lists/CONTINUITE 2014"
j'ai eu le droit à une autre erreur 1004 :
Une erreur inattendue est survenue. Les modifications apportés aux données ne peuvent pas être enregistrées
Voila, si une personne a des éléments de réponse je le remercie infiniment !
