Discussion :

[jpclabaux]

Bonjour,

Ma question est un peu vague mais je ne sais pas trop où chercher.
J'aimerai repérer et compter les actions des utilisateurs par exemple suppression de ligne, mise en forme de cellule, sauvegarde,...

Avez-vous une idée ou une piste vers où orienter mes recherches?

Merci,
Jean

[Jean-Philippe André]

Salut,

pour gérer ce genre de chose, il faudra passer par les évènements liés au classeur et aux feuilles.

De quel type d'observatoire sera-t-il question ? que faire des informations en question ?

[jpclabaux]

Salut jpcheck,

Le but est de conserver dans un fichier texte toute les actions effectuées par un utilisateur à la manière de ce qui est fait par Excel pour gérer le retour en arrière (ctrl z).
Par la suite je vais analyser ce fichier texte pour savoir ce que font les utilisateurs et pouvoir mieux les guider dans leur travail.

Jean

[NVCfrm]

Bonsoir ...,

tu devrais choisir les évènements que tu voudras enregistrer.

Au niveau classeur: dans le code module ThisWorkBook tu peux gérer pas mal d'évènements tels que:

Workbook_SheetChange
Workbook_SheetSelectionChange
Workbook_WindowResize
....
pas mal d'autres. C'est toi qui décide de ce que tu veux intercepter.

Voici un début à partir duquel tu pourras t'inspirer.

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
 
Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Dim w As Workbook
 
    Sheets("Journal").Copy 'copie la feuille dans un nouvel classeur
    Set w = ActiveWorkbook
 
    'enregistre le classeur en fichier texte en spécifiant le chemin
    w.SaveAs Filename:="C:\Users\Moi\Documents\Mon dossier\Classeur6.txt", _
        FileFormat:=xlText
    w.Close True 'ferme et sauve
 
End Sub
 
 
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
    Static ligne As Long
    Dim tx
 
    ligne = ligne + 1
    Application.EnableEvents = False
    With Worksheets("Journal")
        .Cells(ligne, 1) = "Saisie: " & Target.Formula & " dans: " & Sh.Name & "!" & Target.Address & " à: " & Now
 
        'ou si tu preferes dispatcher sur différentes colonnes les lignes de code suivantes
        .Cells(ligne, 2) = Target.Formula
        .Cells(ligne, 3) = Sh.Name & "!" & Target.Address
        .Cells(ligne, 4) = Now
    End With
 
    Application.EnableEvents = True
End Sub

[jpclabaux]

Salut Ousmane,

Merci de t'intéresser à mon problème.
J'aurais voulu éviter cette solution. Il dois bien y avoir une autre possibilité. Comment fait Excel pour enregistrer toutes les actions pour permettre aux utilisateurs de faire crtl+z?

Jean

[NVCfrm]

Que veux tu dire par "...éviter cette solution." ?
S'il s'agit de répertorier les actions des utilisateurs sans passer par le gestionnaire c'est d'ores et déjà peine perdue.

Comment fait Excel pour enregistrer toutes les actions pour permettre aux utilisateurs de faire crtl+z?

Excel utilise aussi un gestionnaire. Le code n'est pas disponible.
Si tu es doué tu peux t'en inspirer pour faire quelque chose de semblable.

[jpclabaux]

Je veux dire ajouter du code à tous les évènements possibles et imaginables d'Excel. C'est long à coder, mais bon si c'est le seul moyen je vais m'y mettre.

Qu'entends-tu par gestionnaire?

[NVCfrm]

je fais allusion à la gestion d'évènement.

Tu n'es pas obligé d'intercepter tous les évènements pour ce que tu veux.
En fait deux doivent suffire.
Si j'ai le temps à mon prochain passage, j'essayerais quelque chose sur lequel tu pourras décoller sans trop de difficultés.

[jpclabaux]

Super, merci Ousmane!

[NVCfrm]

Bonjour Jean,
je n'ai malheureusement pas eu le temps d'aborder ton problème hier.
Je souhaiterais avant d'agir d'avoir un peu plus d'éclaircissements.
2 de tes posts prêtent à confusion.

Le but est de conserver dans un fichier texte toute les actions effectuées par un utilisateur à la manière de ce qui est fait par Excel pour gérer le retour en arrière (ctrl z).
Par la suite je vais analyser ce fichier texte pour savoir ce que font les utilisateurs et pouvoir mieux les guider dans leur travail.

Je veux dire ajouter du code à tous les évènements possibles et imaginables d'Excel...

Pourrais tu répertorier concrètement la liste des actions utiles à analyser.
J'ai l'impression qu'il ne s'agit pas uniquement de changements intervenus sur une feuille.

[jpclabaux]

Bonjour Ousmane,

J'aimerais savoir si les utilisateurs:
- suppriment/ajoutent des lignes, des colonnes, des cellules
- modifient la police, la taille de caractères, la couleur, gras, italiques, souligné,...
- modifient la taille des lignes et des colonnes
- utilisent des formats de nombres, dates, personnalisés
- utilisent le quadrillage
- saisissent des formules
- impriment
- sauvegardent
-...

On sauvegarge la liste de leurs actions dans un fichier texte et ensuite je peux analyser ce fichier et par exemple, créer une macro pour automatiser des tâches répétitives.
Tu vois où je veux en venir?

Jean

[NVCfrm]

c'est bien compris.

[NVCfrm]

Bonsoir jpclabaux,

Comme je l'avais indiqué, il te faudrait juste deux évènements au niveau classeur: Open et BeforeClose.

Ton programme m'a tout l'air d'une action d'espionnage de l'utilisateur à son insu.
Ne serait-il pas préférable de demander son consentement? 80
Avant une mise à jour de sécurité MS par rapport au code que je te donnes (à mon avis c'est une faille de sécurité sur la confidentialité.)
Chacun ses points de vue.
, j'ai pris soin de ne pas limiter l’exécution à l'insu de l'utilisateur.

Allons-y!
Crée un UserForm. Places-y 1 Label et 2 CommandButton.
Une petite boîte de dialogue que tu mettras en forme à ta convenance.
Dans le caption du label en mode Design entre ce texte:
"Le programme souhaiterait réaliser une statistique d'utilisation avec votre permission, en vue d'amélioration.
les captions des Boutons doivent être Oui et Non
Dans le module de code de l'userform copie colle le code suivant:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
Private Sub CommandButton1_Click()
	SendKeys "%cr"
	SendKeys "Statistique"
	SendKeys "~"
	End
End Sub
 
Private Sub CommandButton2_Click()
	Unload UserForm1
End Sub

Dans le module ThisWorkBook:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Dim  fich
'
'    'composer le chemin vers le disc en composant le nom associé à un formatage de la date en supprimant les caractères reservés du système
 
    fich = "C:\Users\Moi\Documents\Journal utilisation\Journal Stat " & Replace(Replace(Now, ":", ""), "/", "_") & ".txt"
    ThisWorkbook.VBProject.VBComponents("Module1").Export fich
    ThisWorkbook.VBProject.VBComponents.Remove ThisWorkbook.VBProject.VBComponents.("Module1") 'retire le module ayant servi d'enregistrement.
 
End Sub

Note: Il se pourrait qu'il y ait des erreurs syntaxiques. Suite à un problème je n'ai pas la possibilité de tester certaines parties des codes ci-dessus.

Edit:
j'ai oublié de donner les explications utiles.
C'est si banal.
Quand l'utilisateur appui sur Oui, l'enregistreur de macros est exécuté.

[NVCfrm]

re
un détail encore.
Le Userform doit être non modal.
En mode design met la propriété ShowModal à False.