Top Assistante - Macros : contrôler l'utilisation d'un fichier partagé

Macros / VBA > Index

13-Avr-2009

Contrôler l’utilisation d’un fichier partagé

Une contribution de Bugstar

Voici une macro que j’ai trouvée dans une revue et que j’utilise déjà. Très pratique, elle permet de créer un historique chronologique avec le nom de l’utilisateur, de l’ouverture et de la fermeture d’un fichier Excel partagé. Le log (txt) est disponible sur le C.

ALT + F11, double cliquez dans ThisWorkbook. Recopiez les 3 portions de code ci-dessous :

Sub Ecritinfos(data)
Open "c:\xlslog.txt" For Append As #1
Print #1, Format(Date, "dd/mm/yy ") & Format(Time, "hh:nn:ss") & " " & data & " " & ThisWorkbook.Name & " " & Application.UserName
Close #1
End Sub

Private Sub Workbook_open()
ecrotInfos ("ouvre")
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Ecritinfos ("Ferme")
End Sub

Note : La macro n’a aucune utilité si le fichier se trouve sur un serveur. Dans ce cas, le fichier log ne sera pas renseigné, ce qui limite l’intérêt de la macro. Aussi si quelqu’un a une idée pour faire évoluer cette macro afin de pouvoir mettre le fichier partagé sur un serveur, son aide sera la bienvenue.

Niveau