Ouvrir un fichier sur sharepoint depuis VBA

Bonjour à tous,

Après avoir fais plusieurs recherche sans succès, je me tourne vers vous pour solliciter votre aide.

Je souhaite créer un outil VBA dans mon entreprise, or dans la macro j'ai besoin d'ouvrir un fichier excel.

Le problème est que ce dit fichier est dans un sharepoint, et je n'ai jamais eu à faire à ça jusqu'à présent.

J'ai réussi à faire un code qui ouvre le fichier, mais il l'ouvre sur le format web d'excel...

Saurez-vous me dire la bonne syntaxe pour l'ouvrir dans l'application Excel du bureau ?

Voici ce que j'ai essayé (je ne peux pas déposé de lien car je ne suis pas autorisé):

Sub ouverturefichier

lien = (j'ai mis le lien que je trouve dans le sharepoint lorsque je fais "copier le lien" du fichier)
ActiveWorkbook.FollowHyperlink Address:=lien

Endsub

Je vous remercie d'avance !!!

AD

Bonsoir,

Je pense que vous devez créer un lecteur réseau relatif au partage SharePoint qui contient le classeur https://www.windows8facile.fr/sharepoint-lecteur-reseau-windows/, puis accéder au classeur via ce lecteur réseau.

Bonjour adbd et

Une petite présentation ICI serait la bienvenue

Désolé thev, mais il est inutile de créer un lecteur réseau

Voici un type de code que j'utilise et qui fonctionne

sPath = "https://societe.sharepoint.com/sites/MONSITE/Dossier/Sous-dossier/"
sFic = "MonFichierExcel.xlsx"
Set WbkAp = Workbooks.Open(sPath & sFic)

Bien sur il faut être authentifier sur l'intranet d'entreprise

@+

Bonjour à tous

Merci à vous pour vos réponse !!

@BrunoM45 j'ai essayé ton code je te remercie, mais j'ai toujours un souci d'ouverture :

Je suis pourtant sur du chemin d'accès et que personne n'est en train d'utilisé le fichier...

Merci encore !

Ad

Re,

Peut-être essayer avec un lecteur virtuel, celui qu'on obtiens quand on demande le lien vers le dossier

sPath = "https://societe.sharepoint.com/:x:/r/sites/Synd Team/Documents/General/Fichier cat/"

Il est bien entendu que "societe" doit être changé par le nom de votre société

@+

Re Bruno,

Je viens d'essayer à nouveau mais toujours une erreur :

Voici le code :

Voici le site :

Et l'erreur :

Pourtant le fichier est bien la, je ne comprend vraiment pas.

Merci encore

AD

Re,

Et un clique droit sur les 3PP (Petits Points) -> Copier le lien, ça donne quoi ?

@+

ça me donne ce type de lien :

que j'arrive à ouvrir mais que sur format web

merci

AD

Re,

Donc c'est bien ce que je disais précédemment, il suffit de changer le lien

sPath = "https://grouperenault.sharepoint.com/:x:/r/sites/testadbd/Shared Documents/"
sFic = "cout piece.xlsx"
Set WbkAp = Workbooks.Open(sPath & sFic)

@+

C'est parfait!!!

je n'avais pas vu le "Shared" devant documents

Merci beaucoup!!

Bonne fin de journée

Encore merci!

AD