probleme Application.UserName
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:
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 resultat:(il 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,
probleme application.user vba
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
probleme application.username
Merci beaucoup ça marche!!
et bonne journée
