Utiliser un fichier Excel sur Teams dans une code VBA

Version imprimable

Bonjour,

J'ai besoin de récupérer des données à partir d'une feuille Excel présente dans un SharePoint (Teams). J'ai essayé ce code mais il marche pas:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Option Explicit
Private Declare PtrSafe Function URLDownloadToFile Lib "urlmon" Alias _
                                           "URLDownloadToFileA" ( _
                                           ByVal pCaller As Long, _
                                           ByVal szURL As String, _
                                           ByVal szFileName As String, _
                                           ByVal dwReserved As Long, _
                                           ByVal lpfnCB As Long) As Long
Sub TelechargerFichierDeSharepoint()
 
    Dim CheminDestination As String
    Dim ValeurRetour As Long
    Const URLSharePoint As String = "https://xx.sharepoint.com/sites/xx/_layouts/15/Doc.aspx?OR=teams&action=edit&sourcedoc={E11C634F-F3D8-4D4F-A1B1-9FC4097B93F2}"
    CheminDestination = "C:\Desktop\Situation Partagé.xlsx"
    ValeurRetour = URLDownloadToFile(0, URLSharePoint, CheminDestination, 0, 0)
 
End Sub

Quelqu'un a une idée SVP ? Merci d'avance

28/01/2021, 16h19
joe.levrai

Bonjour,

travailler via teams est beaucoup plus compliqué que Sharepoint, même si en réalilté le backup de teams est du sharepoint online.

Je procède pour ma part à un petit préparatif afin de travailler côté Sharepoint et m'affranchir par la suite de Teams :

- Aller dans le canal teams où est situé le document
- Se rendre dans l'onglet "Fichier"
- aller au bout du fichier, cliquer sur les "..." et "Ouvrir dans Sharepoint"
- j'ouvre DEPUIS Sharepoint le fichier dans un client Excel (pas online)
- le fichier ouvert : onglet Fichier >> Informations >> Copier le lien ( c'est seulement ici que l'URL réelle apparaît, aux étapes précédentes ce sont des URL inexploitables qui renverront des documents vides en .aspx)

J'obtiens donc l'URL réelle de stockage du fichier.

Et pour l'ouvrir :

Code:

Workbooks.Open "UrlQueJaiCopiéDepuisSharepoint", , True 'True = Lecture Seule / False = Lecture Ecriture

De plus, j'obtiens également le chemin générique de stockage de l'ensemble des fichiers du Canal teams ! Ainsi, je stocke les URL racine de mes canaux dans des constantes et je peux aisément ouvrir un fichier dès lors que je connais ET son canal ET son nom complet.

Ceci permet de construire des procédures paramétrées si on doit travailler en masse sur des documents déposés sous teams.
On peut encore coupler cela à POWER QUERY, afin de récupérer en masse toutes les URL des fichiers/dossiers présents dans un Sharepoint et consolider les travaux de masse ... mais là on s'écarte de ton souhait initial :mrgreen:
28/01/2021, 17h00
Menalm11

Merci infiniment pout ta réponse. Je pense que le problème est résolu :D