[XL-2007] Compter le nombre de fichier dans un dossier sharepoint

Bonjour à tous,

J'ai développé une macro qui permet de compter le nombre de fichier dans un dossier, elle marche très bien en local. Cependant, on m'a demandé de l'adapter pour un dossier SharePoint et la c'est la cata : "chemin d'accès introuvable"

Quelles sont les modifications à réaliser pour que cette macro puisse fonctionner avec sharepoint?

le problème intervient dans la sub check_nb_appli à la ligne " Set DossierSource = FSO.GetFolder(string_chemin)"

voici mon code

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
Sub bouton_browse_Clic()
 
 
Set ws_interface = Sheets("Interface")
 
 
 
    Dim Repertoire As FileDialog
    Dim FSO As Scripting.FileSystemObject
    Dim DossierSource As Scripting.Folder
    Dim Fichier As Scripting.File
    Dim r As Long
 
    Set Repertoire = Application.FileDialog(msoFileDialogFolderPicker)
 
    Repertoire.Show
 
    If Repertoire.SelectedItems.Count > 0 Then _
 
        string_chemin = Repertoire.SelectedItems(1)
 
        ws_interface.Range("A8").Value = "Chemin : " & string_chemin
        ws_interface.Range("V1").Value = string_chemin
 
        Call check_nb_appli
 
 
        Set Fichier = Nothing
        Set DossierSource = Nothing
        Set FSO = Nothing
 
    End If
 
 
End Sub
 
Sub check_nb_appli()
 
 
 
    Dim Repertoire As FileDialog
    Dim FSO As Scripting.FileSystemObject
    Dim DossierSource As Scripting.Folder
    Dim Fichier As Scripting.File
    Dim r As Long
    Set ws_interface = Sheets("Interface")
 
        string_chemin = ws_interface.Range("V1").Value
 
        Set FSO = New Scripting.FileSystemObject
        Set DossierSource = FSO.GetFolder(string_chemin)
 
        r = 0
        For Each Fichier In DossierSource.Files
                r = r + 1
        Next Fichier
 
        ws_interface.Range("A10").Value = "Nombre d'applications : " & r
        ws_interface.Range("U2").Value = r
 
End Sub

Merci d'avance