Code VBA pour telecharger un fichier de SharePoint 2013

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

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: http://excel-malin.com

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

bonjour,

essaie simplement en ouvrant le fichier et en le sauvant localement

Set wb1 = Workbooks.Open("\\fly.sharepoint.com@SSL\sites\GESCO\Situation relais\Situation demandee.xlsx")
wb1.SaveAs "C:\Users\Desktop\test\Situation demandee.xlsx"
wb1.Close

bonjour, d'abord merci pour la réponse

le fichier actuellement est utilisé par une autre personne. j'attends qu'il soit fermer pour refaire le teste. car la actuellement il arrive pas a l'ouvrir vu qu"'il est déjà ouvert par une autre personne. Puis je te rend la réponse

h2so4 a écrit :

bonjour,

essaie simplement en ouvrant le fichier et en le sauvant localement

Set wb1 = Workbooks.Open("\\fly.sharepoint.com@SSL\sites\GESCO\Situation relais\Situation demandee.xlsx")
wb1.SaveAs "C:\Users\Desktop\test\Situation demandee.xlsx"
wb1.Close

Bonjour, il refuse d’ouvrir le fichier malgré que pendant l'exécution de la macro, il montre que le fichier est entrain d'être télécharger.

erreur 1004

impossible d’ouvrir le fichier

Bonjour, enfin après quelques recherches, j'ai trouvé la solution moi même.

voici le code pour les personnes qui veulent l'utiliser.

Sub telecharger()
Dim strURL As String
strURL = "https://fly.sharepoint.com/pre-op/situation partagé.xlsx"
Workbooks.Open Filename:=strURL
ActiveWorkbook.SaveAs "C:\Pré-op\SOPP et RELAIS\RELAIS\Situation\Situation Partagé.xlsx"
MsgBox "Téléchargement et sauvegarde réussi..."
ActiveWorkbook.Close
Application.Quit
End Sub
Rechercher des sujets similaires à "code vba telecharger fichier sharepoint 2013"