Code VBA pour telecharger un fichier de SharePoint 2013

michel90

XLDnaute Nouveau
Bonjour,
je souhaite télécharger un fichier excel depuis mon site SharePoint avec une macro vba. ce code a fonctionné une fois et depuis il ne marche plus mais il ne génère aucune erreur. j'avoue que ça m'en merde. Merci d'avance pour vos réponses

voici le code
VB:
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 CopierFichierSharePoint2013()
'par: <!-- m --><a class="postlink" href="http://excel-malin.com">http://excel-malin.com</a><!-- m -->

On Error GoTo Erreur
Dim MonFichier As String
Dim DestinationSharePoint As String
Dim Valeurretour As Long

'Destination URL = "https://monserveur.net/sites/mon-site/Shared Documents/mon-dossier/test.txt"
' => il est nécessaire de le transformer de manière suivante:
DestinationSharePoint = "\\fly.sharepoint.com@SSL\sites\GESCO\Situation relais\Situation demandee.xlsx"
MonFichier = "C:\Users\Desktop\test\Situation demandee.xlsx"
Valeurretour = URLDownloadToFile(0, DestinationSharePoint, MonFichier, 0, 0) 'cette commande fonctionnera dans SharePoint 2013
MsgBox "telechargement réussi..."
Exit Sub
Erreur:
MsgBox "Une erreur est survenue lors du telechargement..."
End Sub
 

Créez un compte ou connectez vous pour répondre

Vous devez être membre afin de pouvoir répondre ici

Créer un compte

Créez un compte Excel Downloads. C'est simple!

Connexion

Vous avez déjà un compte? Connectez vous ici.

Haut Bas