Discussion :

[Sidonay]

Bonjour,
Je suis face à un problème auquel je ne trouve pas d'explication.
Il y'a quelques années, j'ai créé un fichier Excel avec du code VBA, lequel contient une classe me permettant d'écrire dans la base de registre.

la clé de registre est initialement créée sous : "HKEY_LOCAL_MACHINE\SOFTWARE\MonApplication"

Jusqu'à présent, les utilisateurs fonctionnaient avec W7 et au minimum Excel 2013.
Récemment, les utilisateurs sont passés en W10 et sous Excel 2019 et depuis la clé de registre s'écrit sous :
"HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Office\ClickToRun\REGISTRY\MACHINE\Software\MonApplication"

Et en plus de ça, cette clé est supprimée par je ne sais quel phénomène. Quelqu'un aurait-il une explication et surtout la réponse à comment contourner ce problème ?

code de la classe :

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
Function WriteKey(HKEY As String, PathKey As String, KeyVal As String, TypeOfKey As String) As Boolean
 
    Dim GetKey As Variant
    Set WshShell = CreateObject("WScript.Shell")
 
    'Ecriture de la cl?
    Select Case HKEY
        Case "HKLM"
            If Not IsAdmin Then
                MsgBox "Acc?s au registre refus?, niveau de privil?ge insuffisant.", vbOKOnly + vbCritical, "Registre"
                Exit Function
            Else
                WshShell.RegWrite HKEY & "\" & PathKey, KeyVal, TypeOfKey
            End If
        Case "HKCU"
            WshShell.RegWrite HKEY & "\" & PathKey, KeyVal, TypeOfKey
        Case "HKU"
            WshShell.RegWrite HKEY & "\" & PathKey, KeyVal, TypeOfKey
        Case "HKCC"
            WshShell.RegWrite HKEY & "\" & PathKey, KeyVal, TypeOfKey
        Case Else
            MsgBox "Le type de registre demand? n'existe pas.", vbOKOnly + vbCritical, "Registre"
            WriteKey = False
    End Select
 
    'Lecture de la cl?
    GetKey = WshShell.RegRead(HKEY & "\" & PathKey)
 
    If GetKey = KeyVal Then
        WriteKey = True
    Else
        WriteKey = False
    End If
 
End Function

[Sidonay]

J'imagine que ce n'est pas un problème commun
Je vais devoir me resigner et trouver une nouvelle méthode sans passer par le registre.