Savoir qui a consulté un fichier Excel commun dans l'intranet

Bonjour

chaque semaine, j'enregistre un fichier xls dans notre intranet. Mes collègues y ont accès via un lien que j'envoie par mail.

Je souhaiterais savoir s'il est possible de connaitre qui a consulté ce fichier ? si oui, comment faire ?

merci par avance pour votre aide

Bonsoir,

Le plus simple est de créer un fichier log à la fermeture du classeur.

ci-dessous exemple de code

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Dim fso As Object, fichier As Object, nom_fichier As String

    '----- logging utilisateur ----------------------------
    Set fso = CreateObject("Scripting.FileSystemObject")
    nom_fichier = ThisWorkbook.Path & "\" & "log.csv"
    If Not fso.FileExists(nom_fichier) Then fso.CreateTextFile nom_fichier
    Set fichier = fso.OpenTextFile(nom_fichier, ForAppending)
    fichier.WriteLine Environ("UserName") & " le " & Now
    fichier.Close

End Sub

bonjour

merci pour votre réponse

néanmoins j'ai un pb

la procédure semble ne pas etre complete et bug

pouvez vous m aider ? merci par avance

Bonjour,

remplacer la constante "ForAppending" par sa valeur = 8 ou ajouter dans l'éditeur VBA la référence "Microsoft Scripting Runtime"

Set fichier = fso.OpenTextFile(nom_fichier, 8)

merci je n 'ai plus ce probleme

en revanche, j'ai ouvert le fichier, j'ai demandé a des collegues de l'ouvrir et le refermer également, mais seul mon nom apparait dans le fichier log.

comment peut on faire pour que leurs identifiants apparaissent egalement ?

merci beaucoup

Bonjour,

Ce qui apparait , c'est l'utilisateur qui a ouvert la session Windows.