Bonjour,
J'ai enfin trouver la solution, pour ceux qui sont intéressés :
1- Dans ThisWorkbook :
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Target.Count = 1 Then
nv = Target.Value
Else
nv = ""
End If
utilisateur = Environ("Username")
datemodif = Now
reference = Target.Address
feuille = Target.Worksheet.Name
Call ecriture
End Sub
2- Dans un nouveau Module :
Public reference As String
Public feuille As String
Public av As String
Public nv As String
Public utilisateur As String
Public datemodif As String
Sub ecriture()
Open "D:\excel-plus.txt" For Append As 1
' Adresse à modifier pour placer le fichier où vous le souhaitez
' Attention à ce que l'accès en écriture soit autorisé, y compris sur un emplacement réseau
Print #1, utilisateur
Print #1, datemodif
Print #1, feuille & " : " & reference
Print #1, "Ancienne valeur :" & av
Print #1, "Nouvelle valeur :" & nv
'si on veut le faire sur une seule ligne, il est possible de créer une variable qui contiendra
'tout le texte concaténé et de faire le print sur cette variable.
'si on souhaite exploiter ce fichier ensuite comme une BDD, on sépare chaque champ par un ";"
'ou alors, il est recommandé d'utiliser le "|" (troisième caractère du 6).
Close 1
End Sub