Code VBA pour telecharger un fichier de SharePoint 2013 Le sujet est résolu

Y compris Power BI, Power Query et toute autre question en lien avec Excel
m
michel90
Membre habitué
Membre habitué
Messages : 57
Inscrit le : 1 novembre 2016
Version d'Excel : 2007 FR

Message par michel90 » 14 mars 2017, 14:49

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
h
h2so4
Passionné d'Excel
Passionné d'Excel
Messages : 8'438
Appréciations reçues : 280
Inscrit le : 16 juin 2013
Version d'Excel : 2013 UK Windows 10

Message par h2so4 » 14 mars 2017, 15:18

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
m
michel90
Membre habitué
Membre habitué
Messages : 57
Inscrit le : 1 novembre 2016
Version d'Excel : 2007 FR

Message par michel90 » 14 mars 2017, 15:32

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
m
michel90
Membre habitué
Membre habitué
Messages : 57
Inscrit le : 1 novembre 2016
Version d'Excel : 2007 FR

Message par michel90 » 14 mars 2017, 16:03

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
m
michel90
Membre habitué
Membre habitué
Messages : 57
Inscrit le : 1 novembre 2016
Version d'Excel : 2007 FR

Message par michel90 » 16 mars 2017, 13:42

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

Répondre Sujet précédentSujet suivant
  • Sujets similaires
    Réponses
    Vues
    Dernier message