Autres Obtenir le contenu d'un répertoire dans SharePoint Online via VBA

[LAFG1]

Bonjour,

Nous venons de passer de SharePoint 2016 à SharePoint Online. Je rencontre un problème avec la fonction GetFolder. Le chemin de répertoire pose problème.

Voici mon code (simplifié) qui donne le message d'erreur: "Erreur d'exécution 76: Chemin d'accès introuvable"

Dim FSO As Scripting.FileSystemObject
Dim Dossier As Scripting.Folder

Set FSO = New Scripting.FileSystemObject
Set Dossier = FSO.GetFolder("https://retraitequebec.sharepoint.com/sites/MET00124/gestprojt/Suivis budgétaires")

Pourtant, lorsque j'utilise ce même chemin de répertoire avec la fonction Open, ça fonctionne.

Dim WB As Workbook
Set WB = Workbooks.Open("https://retraitequebec.sharepoint.com/sites/MET00124/gestprojt/Suivis budgétaires/FichierX")

Quelqu'un a une idée ?

Merci.

 

[fanch55]

Bonsoir, peut-être une voie à creuser :

VBA et SharePoint: transformer les liens de fichiers (2010 à Online)

Vos macros VBA bloquent avec SharePoint? Découvrez les solutions modernes pour SharePoint Online et l’astuce "\@SSL" pour SP 2013-2019.

excel-malin.com

 

[LAFG1]

Voici la solution:

Avec SharePoint 2016 « on-premise », les fichiers étaient souvent accessibles via un chemin réseau classique (par ex. \\serveur\Dossier\…), que GetFolder pouvait utiliser directement.
Avec SharePoint Online, l’adresse https://… est un lien HTTP, et pour Windows/VBA ce n’est plus un « dossier » au sens du système de fichiers.

Quand je parle de « synchroniser la bibliothèque avec OneDrive », l’idée est la suivante :

1. Dans votre navigateur, ouvrez la bibliothèque de documents qui contient vos fichiers (par ex. « Suivis budgétaires »).
2. Dans le ruban en haut, cliquez sur le bouton « Synchroniser » (ou Sync) ou Copier en tant que chemin d'accès
3. OneDrive se lance et crée sur votre PC un dossier local synchronisé avec cette bibliothèque SharePoint.
4. Dans l’Explorateur Windows, vous verrez alors apparaître un nouveau dossier du type :
   C:\Users\<votre_nom>\Nom de l’organisation\…\Suivis budgétaires
5. C’est ce chemin local qu’il faut utiliser dans votre code VBA, par exemple :

Dim FSO As Scripting.FileSystemObject

Dim Dossier As Scripting.Folder



Set FSO = New Scripting.FileSystemObject

Set Dossier = FSO.GetFolder("C:\Users\<votre_nom>\Nom de l’organisation\Suivis budgétaires")

Le plus simple est de repérer le dossier dans l’Explorateur Windows, de faire clic droit → Copier comme chemin, puis de coller ce chemin dans la ligne GetFolder.

En résumé :

• l’URL SharePoint (https://…) ne peut pas être utilisée directement avec GetFolder,
• il faut d’abord rendre la bibliothèque visible comme dossier local via OneDrive, puis utiliser ce chemin local dans VBA.

 

[LAFG1]

Bonsoir, peut-être une voie à creuser :

VBA et SharePoint: transformer les liens de fichiers (2010 à Online)

Vos macros VBA bloquent avec SharePoint? Découvrez les solutions modernes pour SharePoint Online et l’astuce "\@SSL" pour SP 2013-2019.

excel-malin.com

Bonjour franch55, votre réponse m'a permis de trouver une solution. Merci et bonne journée.