Discussion :

[mojitodu75]

Bonjour,

Je cherche à connaitre le chemin d'un dossier sur SharePoint Online où sont stockés plusieurs fichiers.

Mon objectif est de récupérer la liste de tous les fichiers du dossiers et d'ouvrir le plus récent.

J'arrive bien à le faire lorsque je suis sur mon C mais dès que je veux aller lire SP Online ça me renvoie une erreur sur la ligne "FichierExcel" : "Erreur d'exécution 52 : Nom ou numéro de fichier incorrect"

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
chemin = "https://XXX.sharepoint.com/sites/SiteArchitecture/"
fichierExcel = Dir(chemin & "*.xlsx")
fichierHTML = Dir(chemin & "*.html")

[Jean-Philippe André]

Salut,

une facon que j'ai eu de faire fut une époque, était de mapper un lecteur réseau sur le dossier SP, pour en faciliter l'accès par le code.

[Philippe Tulliez]

Bonjour,
Pour résoudre ce problème, j'ai écrit une fonction générique qui renvoie le chemin d'accès local

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
Function GetLocalPath(Path As String, Optional OneDriveName As String) As String
  ' Renvoie le chemin local du classeur
  ' Author  : Philippe Tulliez (https://magicoffice.be)
  ' Version : 1.1
  ' Arguments
  '  Path           ' le chemin du classeur
  '  [OneDriveName] ' [d:=OneDrive] Environ ou EnvironCommercial
  '
  Dim LocalRootOneDrive As String
  Dim p As Integer
  Dim old_Path As String, new_Path As String
  If Len(OneDriveName) = 0 Then OneDriveName = "OneDrive"
  If Left(Path, 6) = "https:" Then
    LocalRootOneDrive = Environ(OneDriveName) & "\"
    p = InStr(1, Path, "/Documents") + 10
    old_Path = Left(Path, p)
    new_Path = Replace(Replace(Path, old_Path, LocalRootOneDrive), "/", "\")
    GetLocalPath = new_Path
   Else
    GetLocalPath = Path
  End If
End Function