XL 2013 Accès à un classeur se trouvant sur un sharepoint

[Fontvielle]

Bonjour,

J'ai beau chercher sur le forum et sur d'autres forum dédiés à Excel et VBA, je ne trouve aucune solution à mon problème.

J'ai un classeur Source.xlsx qui se trouve sur un sharepoint
Je souhaite copier une feuille de ce classeur dans un classeur Cible.xlsm

Je ne vois pas comment faire, les exemples rencontrés ne correspondant pas à mon besoin...

Quelqu'un pourrait-il m'aider ?

D'avance, merci à tous.

 

[Staple1600]

Re

@Fontveille
Et sur un forum dédié à sharepoint, ils en disent quoi ?

 

[Fontvielle]

Rien, ils abordent surtout les sujets de visibilité et de droits

 

[Compte Supprimé 979]

Bonjour Fontvielle, salut l'agrafe 😉

L'ouverture d'un fichier sur un SharePoint se fait comme pour un fichier en local, sauf que c'est le lien intranet

Tu peux l'ouvrir dans une variable objet pour pouvoir travailler avec et le refermer

Dim Wbk as Workbook
Set Wbk = Workbooks.Open("https://monsharepoint/dossier/sous-dossier/Source.xlsx")

A+

 

[Staple1600]

Re, Bonsoir BrunoM45

Cela dépends peut-être de la version de sharepoint, mais je me souviens qu'à l'époque, seul l'UNC en dur dans le code fonctionnait.

 

[Compte Supprimé 979]

Re,

Tiens l'agrafe essaye ça 😉😀

Sub Test()
  Dim Wbk As Workbook
  Set Wbk = Workbooks.Open("https://pgcconline.blackboard.com/webapps/dur-browserCheck-bb_bb60/samples/sample.xlsx")
  Wbk.Activate
  MsgBox "Voilà le fichier est ouvert, même chose sur un intranet"
  Wbk.Close
  MsgBox "Voilà le fichier est fermé"
End Sub

A+

 

[Fontvielle]

Merci de vos réponses

En essayant le code de Bruno ceci donne :

Dim Wbk As Workbook
Set Wbk = Workbooks.Open("Ce lien n'existe plus 2017-2018 v2.xlsx")

Lorsque j'exécute la macro : Erreur 1004 La méthode 'Open' de l'objet 'Workbooks' a échoué

 

[Compte Supprimé 979]

Re,

Merci de vos réponses
En essayant le code de Bruno ceci donne :

Dim Wbk As Workbook
Set Wbk = Workbooks.Open("Ce lien n'existe plus 2017-2018 v2.xlsx")

Lorsque j'exécute la macro : Erreur 1004 La méthode 'Open' de l'objet 'Workbooks' a échoué

ATTENTION !
Il faut l'adresse exacte du fichier sans les fioritures que peut nous donner SharePoint

Quand je regarde ton lien, celui-ci n'est pas bon

http://communitiesemea.sanofi.com/isia/IN/ip/Documents/Forms/AllItems.aspx?RootFolder=%2Fisia%2FIN%2Fip%2FDocuments%2FPrivate%2FPMO%2FDomain%20Managers%2FProjects%20Portfolio&FolderCTID=0x01200067B33F81AD376A4C8BABE18DA672CE2C&View={AF096B79-4B91-49CD-8ACE-A5A42D4FA0CE}/Portfolio

Au mieux

http://communitiesemea.sanofi.com/isia/IN/ip/Documents/Private/PMO/Domain Managers/Projects Portfolio/Portfolio 2017-2018 v2.xlsx

Perso, je suis certain que ça fonctionne c'est ce que j'utilise sur une appli dans ma société ;-)

 

[Staple1600]

Re

@BrunoM45

ATTENTION !
Il faut l'adresse exacte du fichier sans les fioritures que peut nous donner SharePoint

C'est justement pour me simplifier la vie que je passais par le mode Explorateur
(voir message#9)

 

[Compte Supprimé 979]

Oui j'ai compris Staple
Tu as ta façon de procéder, j'ai la mienne 🙄

Ce n'est quand même pas compliqué de copier/coller le lien dans la barre du navigateur il reste juste à ajouter le nom du fichier.