Discussion :

[Kestion100]

Bonjour, j'essaye de suivre l'activité de l'utilisateur au moyen d'un fichier Excel.
J'ai trouvé un code qui échoue au lancement pour cause d'une erreur:

erreur de compilation type défini par l'utilisateur non défini

avec la ligne:

Code :

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

Dim oFSO As FileSystemObject

surlignée

Quelqu'un verrait-il le pourquoi du comment s'il vous plaît?

Le Code (que j'ai copié dans un module et lancé par

Code :

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

Call EnregistrerAction("Ouverture de Classeur")

à certains points de mes autres 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
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
Public Function AjouterAuFichierTexte(ContenuAAjouter As String, CheminFichier As String)
'par: http://excel-malin.com
 
Dim oFSO As FileSystemObject
Set oFSO = New FileSystemObject
Dim oFS As TextStream
Set oFS = oFSO.OpenTextFile(CheminFichier, ForAppending)
oFS.WriteLine ContenuAAjouter
oFS.Close
Set oFS = Nothing
Set oFSO = Nothing
 
End Function
 
Public Function SauvegarderChaineCommeFichierTexte(Contenu As String, CheminFichier As String)
'par: http://excel-malin.com
 
Dim FSO As Object
Set FSO = CreateObject("Scripting.FileSystemObject")
Dim oFile As Object
Set oFile = FSO.CreateTextFile(CheminFichier)
oFile.WriteLine Contenu
oFile.Close
Set FSO = Nothing
Set oFile = Nothing
 
End Function
 
Function EnregistrerAction(ActionNom As String)
Dim CheminCompletFichierJournal As String
Dim ContenuEnregistrement As String
 
CheminCompletFichierJournal = "C:\DossierLog\FichierLog.txt" '<-- changez le chemin et le nom du fichier journal
 
'création du contenu à enregistrer
' -> exemple: date, temps, nom d'utilisateur, action
ActionMoment = Now
ContenuEnregistrement = _
Year(ActionMoment) & Right("0" & Month(ActionMoment), 2) & Right("0" & Day(ActionMoment), 2) & ";" _
& Right("0" & Hour(ActionMoment), 2) & ":" & Right("0" & Minute(ActionMoment), 2) & ":" & Right("0" & Second(ActionMoment), 2) & ";" _
& Environ("UserName") & ";" _
& ActionNom
 
'vérifier si le fichier journal existe déjà & enregistrer l'information
VerificationFichierJournal = Len(Dir(CheminCompletFichierJournal))
   If VerificationFichierJournal = 0 Then
    's'il n'existe pas encore -> créer un nouveau
    LogResult = SauvegarderChaineCommeFichierTexte(ContenuEnregistrement, CheminCompletFichierJournal)
  Else
    's'il existe -> ajouter la nouvelle ligne
    LogResult = AjouterAuFichierTexte(ContenuEnregistrement, CheminCompletFichierJournal)
  End If
End Function

Merci beaucoup

[kiki29]

Salut, il faut, comme tu es en Early Binding, cocher une référence qui là est absente.

Sinon passe en Late Binding et donc remplace Dim oFSO As FileSystemObject par Dim oFSO As Object
et Set oFSO = New FileSystemObject par Set oFSO = CreateObject("Scripting.FileSystemObject")
etc etc.
Voir Early ou Late Binding, même si parcellaire.

En plus tu mélanges les 2 .....
Comme on dit : développer en Early Binding ( intellisense ) et déployer en Late Binding surtout en environnement hétérogène.

[Kestion100]

Merci pour ces infos complètes

PARFAIT!!!!!

Petite question en plus:

L'action que j'ai testée est l'ouverture d'un fichier par une 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
Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
 
Sub LANCEURAUCHOIX()
 
Application.EnableEvents = False
 Call EnregistrerAction("Ouverture de Classeur")
Nom_Fichier = Application.GetOpenFilename("Fichiers Excel (*.xls*), *.xls*")
If Nom_Fichier <> False Then
Sleep 5000
    Workbooks.Open Filename:=Nom_Fichier
   ' Application.Wait Time + TimeSerial(0, 0, 5)
    Application.EnableEvents = True
End If
 
End Sub

Dans le fichier word s'inscrit:


"20160602;13:46:42;XXXX;Ouverture de Classeur"

Est-il possible d'avoir plus de détail? Nom du classeur....et peut-être d'autres choses?????

[kiki29]

Salut, visiblement tu ne maîtrises pas les B A BA, après le mélange Early et Late Binding, maintenant l'usage de Call.

Bref Boileau l'a dit : Ce qui se conçoit bien s'énonce clairement.

[Kestion100]

Je viens de comprendre, la phrase affichée vient du code lui même "Ouverture de Classeur"

Mais existe-t-il un moyen de modifier cela est d'afficher le nom du classeur ouvert par une macro?
Ou un moyen d'enregistrer ce genre d'activité (Je sais, je sais, je dois peut-être ouvrir une autre discussion pour le second cas.

J'ai essayé:

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
Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
 
Sub LANCEURAUCHOIX()
 
Application.EnableEvents = False
 
Nom_Fichier = Application.GetOpenFilename("Fichiers Excel (*.xls*), *.xls*")
Call EnregistrerAction(Nom_Fichier)
If Nom_Fichier <> False Then
Sleep 5000
    Workbooks.Open Filename:=Nom_Fichier
   ' Application.Wait Time + TimeSerial(0, 0, 5)
    Application.EnableEvents = True
End If
 
End Sub

Mais ça ne passe pas

Ca se joue dans cette partie du code, non?

Code :

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

1
2
3
4
5
ContenuEnregistrement = _
Year(ActionMoment) & Right("0" & Month(ActionMoment), 2) & Right("0" & Day(ActionMoment), 2) & ";" _
& Right("0" & Hour(ActionMoment), 2) & ":" & Right("0" & Minute(ActionMoment), 2) & ":" & Right("0" & Second(ActionMoment), 2) & ";" _
& Environ("UserName") & ";" _
& ActionNom

[kiki29]

Re, on doit pouvoir simplifier

Code :

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

1
2
Dim sStr As String
    sStr = Format(Now, "yyyymmdd hh:mm:ss") & ' etc etc