Microsoft 365 Lire la date d'un fichier Sharepoint

[torple]

Bonjour à tous,
j'utilise un Sharepoint (office 365) pour stocker un fichier tarif, j'ai fait une macro qui copie en local le fichier pour qu'il soit toujours accessible meme sans connexion et pour éviter les modifications sur le fichier source.
Le but est de venir vérifier si il y a une nouvelle version de ce tarif, pour cela je cherche comment lire la date du fichier Sharepoint que je peux comparé à celle du fichier local, et si elle est différente recopier le tarif du Sharepoint en local.

Mais là je bug, c'est au delà de mes compétences.

Merci de votre aide.

Merci d'avance

Eric

 

[Eric 45]

Bonjour à toutes et tous
Bonjour Eric

Tu peux essayer ceci :

Sub renseignement_fichier()
Dim fs, f, s
specfichier = ActiveWorkbook.Name
  Chemin = ThisWorkbook.Path
  chemin_complet = ActiveWorkbook.FullName
 
    Set fs = CreateObject("Scripting.FileSystemObject")
    Set f = fs.GetFile(specfichier)
    s = UCase(chemin_complet) & vbCrLf
    s = s & UCase(specfichier) & vbCrLf
    s = s & UCase(Chemin) & vbCrLf
    s = s & "Créé le : " & f.DateCreated & vbCrLf
    s = s & "Dernier accès le : " & f.DateLastAccessed & vbCrLf
    s = s & "Dernière modification le : " & f.DateLastModified
    MsgBox s, 0, "Infos d'accès au fichier"
End Sub

Eric