Discussion :

[Marc31]

Bonjour,

mon directeur veut que je crée un journal avec le nom des personnes qui utilisent le logiciel excel.
Jusque là tout va bien mais le journal reconnaîs certaines personnes et pas d'autre je voulais savoir comment c'est possible?
Merci et bonne soirée

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
Option Explicit
 
Dim rep_journal As String
Dim filnb As String
 
 
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim i As Integer
For i = 2 To Sheets.Count 'a partir de la feuille numero
Sheets(i).Visible = 2 'nombre de feille à cacher
Next i
End Sub
 
 
Private Sub Workbook_BeforeClose(Cancel As Boolean)
journalise "fermeture"
End Sub
 
Private Sub Workbook_Open()
journalise "ouverture"
End Sub
 
Sub journalise(txt) 'permet de voir qui accede à la base
 
rep_journal = "R:\MOYENS MUTUALISES\doc"
If Right(rep_journal, 1) = "\" Then rep_journal = Left(rep_journal, Len(rep_journal) - 1)
On Error GoTo fin
If Dir(rep_journal, vbDirectory) = "" Then MkDir (rep_journal)
filnb = FreeFile
Open rep_journal & "\journal_" & Format(Now, "mmyy") & ".txt" For Append As #filnb
Print #filnb, Now & ", " & txt & ", " & Application.UserName
Close #filnb
fin:
On Error GoTo 0
End Sub

Le resultatil y a des vides qui sont pas normal)

12/10/2012 15:49:56, ouverture, Monsieur x
12/10/2012 15:50:01, fermeture, Monsieur x
12/10/2012 15:52:40, ouverture,
12/10/2012 15:53:47, fermeture,
12/10/2012 15:54:32, ouverture, Madame y
12/10/2012 15:54:37, fermeture, Madame y
12/10/2012 15:55:35, ouverture,
12/10/2012 15:57:32, fermeture,
12/10/2012 15:58:55, ouverture,
12/10/2012 15:59:04, fermeture,
12/10/2012 16:00:58, ouverture,

[kiki29]

Salut, essaie en utilisant

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Environ("USERNAME")

[Marc31]

ok merci et sinon peut être que ça vient du logiciel , si lors de l'installation on ne rajoute pas de nom d'utilisateur...?
Parce que je me pose là question car il trouve certains nom et pas d'autre.....
Encore merci bonne soirée

[kiki29]

Re, Application.UserName renvoie les renseignements de "licence d'utilisation accordée à :" du menu "A Propos de Microsoft Excel"
Environ("USERNAME") le nom de login Windows

[Marc31]

Merci beaucoup ça marche!!
et bonne journée