Réseau. Pour qui encore ?

[Spock]

Bonjour,
Quelqu'un avait demandé comment traqué l'ouverture de fichiers Excel via le réseau.
J'avais promis de récuperer un truc que j'avais fait au boulot.

La macro ci après note dans un fichier texte appelé log.txt, chaque ouverture du fichier avec l'heure, la date, le nom de l'ordinateur et l'utilisateur.

Le fichier txt doit être dans le même répertoire que le fichier Excel à 'traquer'. Sinon, il faut mettre le chemin complet à la place de 'ThisWorkbook.Path'.



Private Sub Workbook_Open()


Dim FileNum As Long

FileNum = FreeFile
Open ThisWorkbook.Path & '\\log.txt' For Append As #FileNum

Print #FileNum, ThisWorkbook.FullName & ' Opened: ' & _
Format(Now, 'yyyy-mm-dd hh:mm:ss') & ' User: ' & _
Application.UserName & ' from computer: ' & Application.OrganizationName
Close #FileNum
End Sub



Oups, un smileys s'est glisser a la place de certain caractères.
Une idée pour éviter ce smileys ?

Message édité par: Spock, à: 26/07/2005 15:17

 

[Hellboy]

Bonjour Spock

J'ai un petit utilitaire qui sert a mettre une belle mise en forme du code que tu veux mettre sur le site de XLD.
Ex:

Public Sub ShellAndWait(ByVal PathName As String, Optional WindowState)
    Dim hProg As Long
    Dim hProcess As Long, ExitCode As Long
    'fill in the missing parameter and execute the program
    If IsMissing(WindowState) Then WindowState = 1
    hProg = Shell(PathName, WindowState)
    'hProg is a 'process ID under Win32. To get the process handle:
    hProcess = OpenProcess(PROCESS_QUERY_INFORMATION, False, hProg)
    Do
        'populate Exitcode variable
        GetExitCodeProcess hProcess, ExitCode
        DoEvents
    Loop While ExitCode = STILL_ACTIVE
End Sub

Je te refile celui-ci. Tu as un peu une exclusivité, car c'est une mise a jour de celui-ci. Je te donne le lien pour connaitre la procédure d'utilisation et d'installation. Ce lien n'existe plus

Tu as 2 optionss en plus.

Si tu as des problèmes dis le mois.



[file name=Post_To_XLD.zip size=39385]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Post_To_XLD.zip[/file]

 

[_Thierry]

Bonjour Mr Spock, Hellboy, le Forum

Et pour 'le quelqu'un qui avait demandé', il y a un Forum 'First Génération' d'XLD (Lien 'Archives' à gauche dans le Frame Bleu), il y a entre autres ce Fil :

Lien supprimé

Et il en a a bien d'autres

Bon Aprèm
@+Thierry

 

[Spock]

Bonjour le fil,
helloboy, je vais vite télécharger ton fichier pour le 'décortiquer'

Thierry, Je ne connais pas encore tout les trucs et astuce du forum.
Cela viendra.
Merci
:whistle:

 

[Hellboy]

re Spock

Excuse moi, j'ai oublié d'insérer une librairie dans le fichier que je t'ai passé.

Utilise celui-ci a la place.

[file name=Post_To_XLD_20050727021323.zip size=40167]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Post_To_XLD_20050727021323.zip[/file]

 

[Hellboy]

re Spock

C'est ma faute, il y avait une mauvaise référence de nom de fichier ds la macro.

celui-ci est OK

[file name=Post_To_XLD_20050729163614.zip size=46431]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Post_To_XLD_20050729163614.zip[/file]

 

[Spock]

Reee,

C'est bon là, nickel !

Super, bien joué.