Discussion :

[Bernard67]

Bonjour le forum,
Je viens vers vous pour une modif de macro.

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
Private Sub Workbook_Open()
' Traceur d 'ouverture de Fichier Utilisateur + Date + Heure ds Fichier Log.xls Externe
' Acitvation des macros OBLIGATOIRE
' © Piwa6291 23/11/2006
 
Dim Wb As Workbook
Dim a As Long
' Ouvrir le fichier Histo (attention chemin)
Application.ScreenUpdating = False 'Masquer l'affichage
Set Wb = Workbooks.Open(Filename:="\\TB\test\Services\Divers\LOG\CE")
 
a = Wb.Sheets("Trace").Range("A65536").End(xlUp).Row + 1
 
Wb.Sheets("Trace").Range("A" & a).Value = Application.UserName
Wb.Sheets("Trace").Range("B" & a).Value = VBA.Date
Wb.Sheets("Trace").Range("C" & a).Value = Now - Int(Now)
 
'Fermer en sauvegardant les modifications
Wb.Close True
Application.ScreenUpdating = True 'Retablir l'affichage
 
End Sub

Ma question est :
Que faut il modifier pour avoir uniquement le User, la date et l'heure des personnes qui se connectent en "entrant le mot de passe" ou qui enregistrent, en excluant les personnes qui se connectent en lecture seule ?
Merci pour l'aide.
Cordialement

[edelweisseric]

Bonjour à tous

Le log "avec MdP" se fait par l'intermédiaire d'USF, ou autre je suppose. Mets ce code dans le module, juste après l'acceptation du MdP. Cela devrait fonctionner, je n'ai pas testé.

Eric

[Bernard67]

Re,
Je n'ai pas de USF, car je l'ai protege par : outils, Options, securite, Mot de passe pour la modif.

Est il possible que l'enregistrement ne se fasse que pour ceux qui enregistrent ?

[edelweisseric]

Re

De quelle manière les personnes mettent le mot de passe ?

Eric

[Bernard67]

A l'ouverture, j'ai la demande "activer ou desactiver les macros", puis "en lecture seule ou indiquer le mot de passe" sur un USF.
Ce USF est defini par outils, Options, securite, Mot de passe pour la modif.
Il n y a pas de code dans le classeur, c'est defini par excel (Le classeur se trouve sur un serveur, pour un acces a tout le monde)
Merci pour te pencher sur mon probleme

[fring]

Bonjour tlm,

Dans l'événement BeforeSave de ThisWorkbook

Code :

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

1
2
3
4
5
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim Verif As String
Verif = Environ("UserName") & Chr(10) & Now
MsgBox Verif
End Sub

ici les infos contenues dans la variable Verif sont affichées dans une MsgBox mais tu en fais ce que tu veux

[Bernard67]

Merci Edelweisseric et Fring.
Cela fonctionne impeccablement bien.

Voici la macro pour d'autres utilisateurs, au cas ou !!!!!!!

'

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
 Traceur d 'ouverture de Fichier Utilisateur + Date + Heure ds Fichier Log.xls Externe
' Acitvation des macros OBLIGATOIRE
' © Piwa6291 23/11/2006
 
'Les 3 lignes ci-dessous enregistrent le USER si il y a enregistrement a la fermeture
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim Verif As String
Verif = Environ("UserName") & Chr(10) & Now
'MsgBox Verif (= si on veut afficher le USER a la fermeture)
'End Sub
 
 
Dim Wb As Workbook
Dim a As Long
' Ouvrir le fichier Histo (attention chemin)
Application.ScreenUpdating = False 'Masquer l'affichage
Set Wb = Workbooks.Open(Filename:="\\TT\TCD\ TD\Divers\TEST\Log")
 
a = Wb.Sheets("Trace").Range("A65536").End(xlUp).Row + 1
 
Wb.Sheets("Trace").Range("A" & a).Value = Application.UserName
Wb.Sheets("Trace").Range("B" & a).Value = VBA.Date
Wb.Sheets("Trace").Range("C" & a).Value = Now - Int(Now)
 
'Fermer en sauvegardant les modifications
Wb.Close True
Application.ScreenUpdating = True 'Retablir l'affichage
 
End Sub

Merci encore et bonne fin d'AM

[fring]

Attention...!

Teste ceci :

Code :

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

1
2
MsgBox Application.UserName
MsgBox Environ("username")

[edelweisseric]

Re

Essaie ceci :

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
Private Sub Workbook_Open()
Dim Wb As Workbook
Dim a As Long
Dim Fs As Object, F As Object
 
Set Fs = CreateObject("Scripting.FileSystemObject")
Set F = Fs.GetFile(ActiveWorkbook.FullName)
a = F.Attributes
If F.Attributes = 32 Then
Application.ScreenUpdating = False 'Masquer l'affichage
Set Wb = Workbooks.Open(Filename:="\\TB\test\Services\Divers\LOG\CE")
a = Wb.Sheets("Trace").Range("A65536").End(xlUp).Row + 1
Wb.Sheets("Trace").Range("A" & a).Value = Application.UserName
Wb.Sheets("Trace").Range("B" & a).Value = VBA.Date
Wb.Sheets("Trace").Range("C" & a).Value = Now - Int(Now)
Wb.Close True
Application.ScreenUpdating = True
End If
 
End Sub

Je n'ai pas pu tester

Eric

[edelweisseric]

Re

Résolu comment ?

Merci de nous le dire

Eric

[Bernard67]

La macro que j'ai copiée 3 messages plus haut fonctionne tres bien telle quelle.
Elle enregistre sur le LOG uniquement lorsqu'il y a modification dans le classeur, le LOG se trouve sur le meme serveur que le classeur.

[edelweisseric]

Re

Ta question était :

Que faut il modifier pour avoir uniquement le User, la date et l'heure des personnes qui se connectent en "entrant le mot de passe" ou qui enregistrent, en excluant les personnes qui se connectent en lecture seule ?
Merci pour l'aide.
Cordialement

je ne pense pas qu'avec la macro que tu as déposée, cela fonctionne si les personnes :
"....qui se connectent en "entrant le mot de passe"..." et uniquement se connectent et sortent sans sauvegarder.

Eric

[Bernard67]

Merci Eric,
Tu as raison, je n'avais pas teste cette solution, de rentrer le MDP et de fermer sans enregistrer. Sur ma 1ere macro c'est exact cela n'enregistre rien.
Je viens de tester toute les possibilites avec ta macro et elle repond effectivement a tous les cas que j'avais demande.
Cette fois j'ai fait tous les tests possibles, et c'est parfait.
Merci encore a toi et fring pour l'aide.
Bonne soirée.
Cordialement

[Bernard67]

Bonjour le forum,
Je pensais avoir testé toutes les possibilité, mais non !!.
La macro de Fring et Edelweisseric enregistre les USER DATE et Heure des modifications.

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
Private Sub Workbook_Open()
Dim Wb As Workbook
Dim a As Long
Dim Fs As Object, F As Object
 
Set Fs = CreateObject("Scripting.FileSystemObject")
Set F = Fs.GetFile(ActiveWorkbook.FullName)
a = F.Attributes
If F.Attributes = 32 Then
Application.ScreenUpdating = False 'Masquer l'affichage
Set Wb = Workbooks.Open(Filename:="\\TB\test\Service\Divers\LOG\CE")
a = Wb.Sheets("Trace").Range("A65536").End(xlUp).Row + 1
Wb.Sheets("Trace").Range("A" & a).Value = Application.UserName
Wb.Sheets("Trace").Range("B" & a).Value = VBA.Date
Wb.Sheets("Trace").Range("C" & a).Value = Now - Int(Now)
Wb.Close True
Application.ScreenUpdating = True
End If
 
End Sub

Ce code enregistre les modifs faite dans le TCD (deplacement de champ..etc.) meme si celles ci ne sont pas enregistrées.
Je souhaiterais si c'est possible, d'enregistrer le USER, DATE et HEURE uniquement si il y a modification et enregistrement du TCD.
Merci pour l'aide
Cordialement

[Godzestla]

Suggestion de code à insérer:

(Je ne suis pas ceratin de la syntaxe pour Workbook_close )

Code :

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

1
2
Public Save_log as boolean
Public Wb As Workbook

Code :

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

1
2
3
4
Private Sub Workbook_Open()
Save_log = False
 
End Sub

Code :

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

1
2
3
Private Sub Workbook_close()
Wb.Close Save_log
end sub

Code :

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

1
2
3
4
5
 
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
 
Save_log = true
End Sub

[Bernard67]

Je te remercie Godzestla,

Malgre tout il y a toujours un cas qui cloche, c'est a dire qu'il me complete le user alors qu'il ne devrait pas.
Le plus simple se serait que l'enregistrement se fasse uniquement si le mot de passe est rentre lors de l'ouverture du classeur lorsqu'il demande "Tapez le mot de passe autorisant l'acces en ecriture ou en lecture"
Je precise que j'ai mis le mot de passe par : outil, Option, securite puis mot de passe pour la modification.
Merci encore pour l'aide

[Godzestla]

Malgre tout il y a toujours un cas qui cloche, c'est a dire qu'il me complete le user alors qu'il ne devrait pas.

Peux-tu me remontrer ou et comment cela est codé ?

[Bernard67]

Dans ce cas, le user est indiqué si en lecture seule, on manipule les champs du TCD, alors qu'il ne peut pas etre enregistré. Si on rentre le mot de passe et on enregistre avec la disquette de la barre d'outils avant la fermeture, le user n'est pas enregistre.

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
Public Save_log as boolean
Public Wb As Workbook
 
Dim a As Long
Dim Fs As Object, F As Object
 
Set Fs = CreateObject("Scripting.FileSystemObject")
Set F = Fs.GetFile(ActiveWorkbook.FullName)
a = F.Attributes
If F.Attributes = 32 Then
Application.ScreenUpdating = False 'Masquer l'affichage
Set Wb = Workbooks.Open(Filename:="\\TB\test\Service\Divers\LOG\CE")
a = Wb.Sheets("Trace").Range("A65536").End(xlUp).Row + 1
Wb.Sheets("Trace").Range("A" & a).Value = Application.UserName
Wb.Sheets("Trace").Range("B" & a).Value = VBA.Date
Wb.Sheets("Trace").Range("C" & a).Value = Now - Int(Now)
Wb.Close True
Application.ScreenUpdating = True
End If
 
End Sub

[Godzestla]

je ne comprends pas du tout tes explications.

Si j'en reviens à ceci :

Suggestion de code à insérer:

(Je ne suis pas ceratin de la syntaxe pour Workbook_close )


Code :
Public Save_log as boolean
Public Wb As Workbook
Code :
Private Sub Workbook_Open()
Save_log = False

End Sub
Code :
Private Sub Workbook_close()
Wb.Close Save_log
end sub


Code :

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)

Save_log = true
End Sub

Déjà je ne trouve pas cette ligne dans ton code :

Code :

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

1
2
 
Wb.Close Save_log

donc tu sauves toujours.

Avec ma proposition si tu as sauvé, le code le sait et va donc automatiquement sauver le log.

J'en déduis que si on n'a que le droit en lecture, on ne peut pas sauver et donc le log ne sera jamais sauvé.

Juste ou pas.

Sinon il faut gérer différement Workbook_BeforeSave pour savoir si on a le droit ou pas de sauver.

(La suite pour moi demain ..... si ce n'est pas résolu).

[Bernard67]

Bonjour Godzestla, le forum

J'ai mis le code dans "thisworkbook" du TCD

J'en déduis que si on n'a que le droit en lecture, on ne peut pas sauver et donc le log ne sera jamais sauvé.

Le user est enregistré, meme dans le cas ou on ouvre le TCD en lecture seule et ensuite on l'enregistre sous un autre nom. (Ce cas la aussi je voudrais aussi l'éviter).

Est il possible de n'enregistrer le log uniquement dans le cas ou on rentre le mot de passe lors de l'ouverture du classeur quand il demande "Tapez le mot de passe autorisant l'acces en ecriture ou en lecture" ?
Je precise que j'ai mis le mot de passe par : outil, Option, securite puis mot de passe pour la modification.
Merci pour l'aide.
Cordialement