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 : 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 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 : Sélectionner tout - Visualiser dans une fenêtre à part
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 !
Partager