VBA: Copier fichier SharePoint


Le développement du Cloud et du travail collectif obligent, l'utilisateur d'Excel (et de VBA) aura de plus en plus besoin de faire appel à des fichiers stockés sur SharePoint (la plateforme pour gérer le contenu distant de Microsoft). Si vous avez besoin de télécharger un fichier à partir de SharePoint via VBA, c'est tout à fait possible. Vous pouvez utiliser le code VBA qui suit.

La function utilisée dans ce code (URLDownloadToFile) requiert  deux paramètres: le URL du fichier sur SharePoint et le chemin de destination du fichier (son nom inclus).

Pour votre information, ce code VBA n'utilise pas des fonctions spécifiques à Excel et peut donc être utilisé tel quel dans les autres logiciels de la suite MS Office (Access,  Word, Outlook,…).

 

Code VBA pour copier un fichier de SharePoint

Option Explicit

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 TelechargerFichierDeSharepoint()

    Dim CheminDestination As String
    Dim ValeurRetour As Long
    
    'l'adresse url du fichier sur Sharepoint
    Const URLSharePoint As String = "http://teams/Departement/Shared Documents/Reports/Dossier_test/fichier_test.pdf"
    
    'chemin et le nom de la destination
    CheminDestination = "C:\Mes Documents\Dossier Test\fichier_test.pdf"
    
    'lance le téléchargement
    ValeurRetour = URLDownloadToFile(0, URLSharePoint, CheminDestination, 0, 0)
    
End Sub

 

Remarque: Si vous utilisez SharePoint 2013, il faut adapter les liens (URL) vers les fichiers d'une manière spécifique. Pour en savoir plus, visitez la page "VBA et SharePoint 2013".

Sachez également que le travail avec des fichiers distants a fait l'objet de nombreuses nouveautés dans Excel 2016.

9 0



Laissez un commentaire

Votre adresse de messagerie ne sera pas publiée.