Bonsoir à tous,
Je fais un petit fichier LOG pour savoir qui ouvre mon fichier excel et quand !
J'essaie de recuperer dand ma base de registre la valeur d'une clef (le nom de l'ordinateur) pour pouvoir qui c'est loggé !
Ma macro ne plante pas mais je n'ai pas la valeur de la clef, j'ai un blanc
Comment Faire ?? J'ai pourtant bien entrée le nom de l'appli, le chemin et le nom de la clef de la B de Registre !!
Merci d'avance
Bonne nuit
Creepy
------------------- CODE ----------------------------
Dim lngHFile As Long
Dim sMessatge, sAppName, sSection, sKey as String
lngHFile = FreeFile
sAppName = "Windows"
sSection = "HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\ComputerName\ActiveComputerName"
sKey = "ComputeurName"
sMessage = GetSetting(sAppName, sSection, sKey)
Open "C:\myLog.txt" For Append Shared As #lngHFile
Write #lngHFile, sMessage, Date, Time
Close #lngHFile