Domaines
RH
Juridique
Compta
Administratif/Moyens Généraux
Communication
Bureautique
Conseils aux débutants
Word
Excel
PowerPoint
Outlook
Access
Publisher
Windows/système
PhotoImpact
Conception web : les bases
Applications pas à pas
Tests logiciels
Macros VBA
Leçons
Macros Word
Macros Excel
Astuces
Orthographe
Rédaction
Organisation
Produits/services malins
Outils
Ouvrages
Modèles
Macros
Liens
Anglais
Grammaire avec AnglaisFacile
Leçon gratuite avec AnglaisFacile
Carrière
Gestion de carrière
Fiches métier
Témoignages / vécu
 
Evénements métier
Echos de presse, comptes-rendus

Echanger

Forums

© Nadège Guilbert
Le contenu de ce site
est régulièrement déposé auprès de la SGDL
Reproduction interdite
sans le consentement
écrit de l'auteur



Imprimer la page

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