Listing des fichiers présents sur un dossier SharePoint

Bonjour,

J'ai crée un programme VBA il y a quelques temps en m'inspirant d'autres publications. Ce dernier me permet de lister les fichiers présents dans un dossier sous forme de lien hypertexte sur une feuille excel.

Le soucis étant que j'aimerais désormais faire de même en listant les fichiers présent dans des dossiers qui se trouvent sur SharePoint et non plus sur un server commun. Si quelqu'un a une idée pour coder cela, je serais preneur.

voici le code que j'utilise actuellement, en listant deux dossiers différents, le lien des dossiers se trouvent sur une autre page nommé repertoire.

Private Sub Worksheet_Activate()

 'efface les cellules de la colones C pour les mettres à jour
Columns(2).Delete 'efface les cellules de la colones C pour les mettres à jour
Columns(3).Delete 'efface les cellules de la colones C pour les mettres à jour
Columns(4).Delete 'efface les cellules de la colones E pour les mettres à jour
Columns(5).Delete 'efface les cellules de la colones E pour les mettres à jour

On Error GoTo Err
    Dim fs, f, f1, fc, fa, fo, fct, f2, i As Integer, Nrow As Integer
    i = 3 'Ligne du début du listing MOP
    n = 3 'Ligne du début de listing RA

    Set fs = CreateObject("Scripting.FileSystemObject")
    Set f = fs.GetFolder(Sheets("Répertoire").Range("B16").Value)
    Set fc = f.Files
    Set fo = fs.GetFolder(Sheets("Répertoire").Range("B17").Value)
    Set fct = fo.Files

    For Each f1 In fc
    i = i + 2
    Cells(i, 2).Value = f1.Name
    Cells(i, 2).Hyperlinks.Add Cells(i, 2), f1.Path
    Next

    For Each f2 In fct
    n = n + 2
    Cells(n, 4).Value = f2.Name
    Cells(n, 4).Hyperlinks.Add Cells(n, 4), f2.Path
    Next

    Columns(2).EntireColumn.AutoFit 'Redimmenssionne automatiquement la colonne B
    Columns(3).EntireColumn.AutoFit 'Redimmenssionne automatiquement la colonne C pour voir entièrement le lien hypertexte
    Columns(4).EntireColumn.AutoFit 'Redimmenssionne automatiquement la colonne D
    Columns(5).EntireColumn.AutoFit 'Redimmenssionne automatiquement la colonne E pour voir entièrement le lien hypertexte

  Cells(2, 2).Value = "MOP"
  Cells(2, 2).HorizontalAlignment = xlCenter
  Cells(2, 2).VerticalAlignment = xlBottom
  Cells(2, 2).Font.Size = 22
  Cells(2, 2).Font.Bold = True
  Cells(2, 2).Font.Color = vbBlue

  Cells(2, 4).Value = "RA"
  Cells(2, 4).HorizontalAlignment = xlCenter
  Cells(2, 4).VerticalAlignment = xlBottom
  Cells(2, 4).Font.Size = 22
  Cells(2, 4).Font.Bold = True
  Cells(2, 4).Font.Color = vbBlue

    'MsgBox "La mise à jour a été effectuée", vbInformation 'Information par une fenêtre pop que la mise à jour a bien été effectuée

Err:     Exit Sub

End Sub