Utiliser un fichier Excel sur Teams dans une code VBA

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:

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 = "lien vers le fichier sur SharePoint"
    CheminDestination = "C:\Desktop\Situation Partagé.xlsx"
    ValeurRetour = URLDownloadToFile(0, URLSharePoint, CheminDestination, 0, 0)

End Sub

Qqn a une idée SVP ? Merci d'avance

Bonjour Menal,

Ce code ne fonctionne plus depuis la version 2016 il me semble

Normalement, il suffit de faire

Set Wbk = Workbooks.Open(URLSharePoint)
Wbk.SaveAs CheminDestination

@+

Bonjour Bruno,

Merci pour votre réponse, j'ai essayé ta proposition, cette fois ci le macro s'exécute mais le fichier généré est vide!

Je comprends pas pourquoi? Peut être on devrait

Sub FichierSharePoint()
Dim CheminDestination As String
CheminDestination = "C:Desktop\test.xlsx"
Set wbk = Workbooks.Open("lien")
wbk.SaveAs CheminDestination
End Sub

faire des transformations sur le lien SharePoint avant de l'utiliser?

Merci pour Ton aide :(

Re,

Attention, le code donné ne génère pas un fichier !

on peut peut effectivement mettre le lien directement entre guillemets

Il ouvre le fichier normalement existant sur le SharePoint et l'enregistre dans le chemin + nom de destination

@+

Merci.

Mais pour mon cas je sais pas si je devrai faire ça ou non. En effet pour vous expliquer, j'ai un fichier Excel partagé sur Teams, je voulais, s'il y a eu des modifications particulière une procédure se lance. Et comme, j'ai compris on ne peux pas lancer une Marco sur Teams . Donc quelle solution vous me proposez ?

Merci d'avance pour vos aides

Bonsoir,

Peut-être avec Power Automate

@+

Bonsoir,

Je veux chercher sur le sujet, car je n'ai jamais attendu ce mot, pour savoir est ce que c'est une solution ou non pour mon cas :)

Merci pour ton aide