Comment réaliser un journal des ouvertures d'un fichier ?

[ted69000]

Bonjour à tous,

Je suis novice et donc, je vais surement poser une question bête... (En tous cas, j'apprends beaucoup grace à ce forum...).

Je réalise un fichier xls qui doit permettre à une équipe de gérer et d'organiser sa documentation qualité.
J'ai fait un truc relativement sympa (ben quoi ?, on peut s'faire bien s'faire des fleurs...).
Ce fichier sera à termes sur un disque réseau.
Je voudrais réaliser un automatisme qui m'écrirait dans un fichier externe, txt par exemple, ou xls pourquoi pas, les logs à mon fichier principale. (nom réseau, heure de connexion...).
Est-ce possible ?
Merci à tous
Thierry

 

[BOISGONTIER]

Re : Comment réaliser un journal des ouvertures d'un fichier ?

Bonjour,


Trouvé sur MPFE -M Pierron -

Sub essai()
 Msgbox IP_Adresse()
 
End Sub

Function IP_Adresse()
  'M.Pierron MPFE
  Dim ws As Object, fso As Object, Env As Object, ts As Object
  Dim wFile As String, IP As String

  Set ws = CreateObject("WScript.Shell")
  Set fso = CreateObject("Scripting.FileSystemObject")
  Set Env = ws.Environment("PROCESS")
  If Env("OS") = "Windows_NT" Then
    wFile = fso.gettempname
    ws.Run "%comspec% /c ipconfig > " & wFile, 0, True
  Else
    wFile = "winipcfg.out"
    ws.Run "winipcfg /batch", 0, True
  End If
  Set ws = Nothing
  Set ts = fso.opentextfile(wFile)
  Do While Not ts.AtEndOfStream
    IP = ts.Readline
    If InStr(1, IP, "Adresse IP", 1) <> 0 Then
      IP = Right(IP, Len(IP) - InStr(1, IP, ":", 1) - 1)
      IP_Adresse = Left(IP, Len(IP) - 1)
      Exit Do
    End If
  Loop
  ts.Close
  Set ts = Nothing
  fso.deletefile wFile
  Set fso = Nothing
End Function

JB

 

[tototiti2008]

Re : Comment réaliser un journal des ouvertures d'un fichier ?

Bonjour à tous,

Hasco a trouvé une réponse à ta question dans un autre fil :

https://www.excel-downloads.com/threads/detecter-adresse-ip.98502/

 

[ted69000]

Re : Comment réaliser un journal des ouvertures d'un fichier ?

Merci à vous

Le code ci-dessous (M Pierron) fonctionne...
C'est le premier du genre que je réussi à faire tourner.
Par contre, comment faire pour afficher le résultat (Le N° IP) dans MA msgbox, qui contient d'autre chose ?

A+ Thierry

 

[ted69000]

Re : Comment réaliser un journal des ouvertures d'un fichier ?

Re bonjour

C'est tout bon, faut juste que je me familiarise un peu plus avec la syntaxe VB.
En tout cas, ça fonctionne chez moi.

Merci
Thierry