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 : Sélectionner tout - Visualiser dans une fenêtre à part
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
Partager