Discussion :

[ornicus31]

Bonjour,

Je travaille sur une macro VBA qui viens lire/ajouter/mettre à jour des informations sur une liste sharepoint.

Le fichier contenant ma macro est hébergé sur le sharepoint afin d'y publier un graphique directement.

Mon problème est: au bout d'un moment mes procédures venant lire sharepoint ne renvoient pas de bonnes information. J'imagine que Sharepoint coupe la connection.

En détail:
j'ouvre mon sharepoint via firefox, entre mon user et mdp
j'ouvre mon fichier xlsm et lance une macro
la macro va lire une liste dans mon sharepoint (vu que je viens de m'y connecter, pas de soucis)
la macro va faire d'autres choses (chercher des données dans SAP, traiter le tout...)
la macro ajoute/ met à jour certains éléments dans la liste sharepoint.
-Ici- est le problème. Ma macro travaille souvent 5-10 min et parfois donc, l'écriture dans sharepoint est impossible. J'en conclue donc à une déco automatique.

Comment puis-je faire pour me reconnecter au sharepoint afin d'être sûr d'écrire dans ma liste?

Pour info, j'ai l'impression que les paramètre de ma boite sont contraignant:
jen'arrive à commander Sharepoint qu'avec des requêtes SOAP via XMLHTTP. De plus, dans VBA, au niveau des références possible je n'ai pas accès à certains connecteurs du genre, ACE, Jet, OLE ou autre (je m'y perd dans ces connecteurs par ailleurs)

J'ai donc besoin d'aide pour écrire une chaine de connection à sharepoint, ou de rappeller les credentials passés à windows (car une fois déco, excel me propose de me reco quand je veux sauver le fichier hébergé sur le sharepoint)

Si vous avez des chaines de connexion, merci de m'indique si VBA nécessite certaines références afin de vérifier les limitations mentionnées plus haut.

Merci d'avoir lu jusqu'ici!

[Lapinpanda]

Bonjour,

c'est sans doute bourrin mais pouvez vous forcer une requete vers sharepoint toutes les 30 secondes par exemples? Sans rien demander grand chose, juste pour maintenir la connexion..

Ensuite, vous dites que la macro travaille 5 minutes, cela veut dire qu'elle mets 5 minutes à mettre à jour l'item après l'avoir récupérer? Et dans cette condition sharepoint pète? Si oui, difficile de trouver une parade sauf peux etre faire des updates plus petit et récupérer l'item après coup à chaque fois

[ornicus31]

C'est l'unique solution que je vois pour le moment en effet.

Les 5 min, ce sont le traitement des données de SAP dans mon excel. C'est après ces 5 min que je veux écrire mes résultats dans le sharepoint et où je fait fasse à une déco.

Ce qui est drole, c'est que si je relance une procédure pour écrire dans ma liste, le sharepoint est reco à moitié: je peux enregistrer mon excel dans le sharepoint mais la procédure n'aura rien écrit dans la liste (je le vois à la réponse XML qui n'est pas celle lors de l'écrire. Pourtant le serveur réponds 200)

[ornicus31]

Ok, donc ce que je vais faire, c'est placer un petit fichier txt et le télécharger toutes les 30s. Par contre, vu que cela doit tourner en parallèle de mes autres opérations, il me faut un vbs.

Sauf que je n'arrive pas à traduire le code que j'ai.
Est il possible d'adapter le code suivant en vbs?

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
Private Declare Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" ( _
ByVal pCaller As Long, ByVal szURL As String, _
ByVal szFileName As String, _
ByVal dwReserved As Long, _
ByVal lpfnCB As Long) As Long
 
Sub ReconnectSP()
Dim i As Integer
Dim strSavePath As String
Dim returnValue As Long
 
Const strUrl As String = "https://.........../ReconnectionFile.txt"
 
strSavePath = "C:\Temp\ReconnectionFile.txt"
'strSavePath = "C:\Users\...\Desktop\...\...\...\ReconnectionFile.txt"
returnValue = URLDownloadToFile(0, strUrl, strSavePath, 0, 0)
 
End Sub

J'ai bien trouvé un script déjà fait, mais je n'arrive pas à le faire tourner non plus. J'ai bien mis l'adresse de mon sharepoint jusqu'au dossier contenant mon fichier à télécharger mais quand je lance le script depuis cmd, j'obtien l'erreure suivante: Erreur ligne <7,1> erreur d'exec....: indice en dehors de la plage.

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
option explicit
Dim xmlhttp
Dim sharepointUrl
Dim fileName
Dim tsIn
Dim sBody
fileName = wscript.arguments(0)
Dim ofc
Dim ofile
set ofc = createobject("Scripting.FileSystemObject")
set ofile = ofc.getfile(fileName)
set tsIn = ofile.openAsTextstream
sBody = tsIn.readAll
tsIn.close
sharepointUrl = "http://.../..."
Dim sharepointFileName
sharepointFileName = sharepointUrl & "/" & ofile.name
msgbox sharepointFileName
set xmlHttp = createobject("MSXML2.XMLHTTP.4.0")
xmlhttp.open "PUT",sharepointFileName,false
xmlhttp.send sBody
msgbox xmlhttp.status

[Lapinpanda]

Bonjour,

pourquoi télécharger un fichier? Faire une requete toute simple d'un élément par exemple cela ne fonctionne pas?