OVH Cloud OVH Cloud

Infos Base de Registre

4 réponses
Avatar
AlainGG
Bonjour à toutes et à tous,
Je n'arrive pas à récupérer le contenu d'un paramètre de la base de registre
via une macro VBA. Je cherche à utiliser quelquechose du type
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Public Sub RécupInfoRegistry()
Dim Param1, Param2
Param1 = "HKEY_CURRENT_USER\Volatile Environment"
Param2 = "HOMESHARE"
MsgBox system.getsettings("", Param1, Param2)
End Su
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Mais j'obtiens le message que 'system' est inconu et/ou que 'getsettings'
est une variable non définie. (le fait est que la bibliothèque n'est pas
activée car les deux mots ne sont pas passés en majuscules).
Quelqu'un aurait-il une solution ?
remarque : mon exemple tente de récupérer le nom du disque "home" connecté.
Merci d'avance poutr toutes les sugsestions.
Amicalement.
--
Alain

4 réponses

Avatar
papou
Bonjour
Essaie avec ceci en adaptant avec ta clé :
Dim wsh As Object
Set wsh = CreateObject("WScript.Shell")
MsgBox wsh.RegRead("HKCROutlook.ApplicationCurVer")

Cordialement
Pascal

"AlainGG" a écrit dans le message de
news:
Bonjour à toutes et à tous,
Je n'arrive pas à récupérer le contenu d'un paramètre de la base de
registre

via une macro VBA. Je cherche à utiliser quelquechose du type :

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

''''''''''''''''''''''''''''''''''''''
Public Sub RécupInfoRegistry()
Dim Param1, Param2
Param1 = "HKEY_CURRENT_USERVolatile Environment"
Param2 = "HOMESHARE"
MsgBox system.getsettings("", Param1, Param2)
End Sub

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

''''''''''''''''''''''''''''''''''''''
Mais j'obtiens le message que 'system' est inconu et/ou que 'getsettings'
est une variable non définie. (le fait est que la bibliothèque n'est pas
activée car les deux mots ne sont pas passés en majuscules).
Quelqu'un aurait-il une solution ?
remarque : mon exemple tente de récupérer le nom du disque "home"
connecté.

Merci d'avance poutr toutes les sugsestions.
Amicalement.
--
Alain


Avatar
AlainGG
Merci Papou, cela fonctionne.
Bonne continuation, l'ami.
;-))
--
Alain



Bonjour
Essaie avec ceci en adaptant avec ta clé :
Dim wsh As Object
Set wsh = CreateObject("WScript.Shell")
MsgBox wsh.RegRead("HKCROutlook.ApplicationCurVer")

Cordialement
Pascal

"AlainGG" a écrit dans le message de
news:
Bonjour à toutes et à tous,
Je n'arrive pas à récupérer le contenu d'un paramètre de la base de
registre

via une macro VBA. Je cherche à utiliser quelquechose du type :

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

''''''''''''''''''''''''''''''''''''''
Public Sub RécupInfoRegistry()
Dim Param1, Param2
Param1 = "HKEY_CURRENT_USERVolatile Environment"
Param2 = "HOMESHARE"
MsgBox system.getsettings("", Param1, Param2)
End Sub

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

''''''''''''''''''''''''''''''''''''''
Mais j'obtiens le message que 'system' est inconu et/ou que 'getsettings'
est une variable non définie. (le fait est que la bibliothèque n'est pas
activée car les deux mots ne sont pas passés en majuscules).
Quelqu'un aurait-il une solution ?
remarque : mon exemple tente de récupérer le nom du disque "home"
connecté.

Merci d'avance poutr toutes les sugsestions.
Amicalement.
--
Alain







Avatar
ClémentMarcotte
Bonjour,

Getsetting et SaveSetting lisent/écrivent à un endroit pré-déterminé dans le
registre:

HKEY_CURRENT_USERSoftwareVB and VBA Program Settings

En fait, ils permettent juste de compléter ce qui manque à la fin.

Pour les autres emplacements, il faut se rabattre sur la réponse de Pascal,
l'API ou des contrôles ActiveX.


"AlainGG" a écrit dans le message de
news:
Bonjour à toutes et à tous,
Je n'arrive pas à récupérer le contenu d'un paramètre de la base de
registre

via une macro VBA. Je cherche à utiliser quelquechose du type :

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

''''''''''''''''''''''''''''''''''''''
Public Sub RécupInfoRegistry()
Dim Param1, Param2
Param1 = "HKEY_CURRENT_USERVolatile Environment"
Param2 = "HOMESHARE"
MsgBox system.getsettings("", Param1, Param2)
End Sub

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

''''''''''''''''''''''''''''''''''''''
Mais j'obtiens le message que 'system' est inconu et/ou que 'getsettings'
est une variable non définie. (le fait est que la bibliothèque n'est pas
activée car les deux mots ne sont pas passés en majuscules).
Quelqu'un aurait-il une solution ?
remarque : mon exemple tente de récupérer le nom du disque "home"
connecté.

Merci d'avance poutr toutes les sugsestions.
Amicalement.
--
Alain


Avatar
AlainGG
Merci Clément pour toutes précisions.
--
Alain



Bonjour,

Getsetting et SaveSetting lisent/écrivent à un endroit pré-déterminé dans le
registre:

HKEY_CURRENT_USERSoftwareVB and VBA Program Settings

En fait, ils permettent juste de compléter ce qui manque à la fin.

Pour les autres emplacements, il faut se rabattre sur la réponse de Pascal,
l'API ou des contrôles ActiveX.


"AlainGG" a écrit dans le message de
news:
Bonjour à toutes et à tous,
Je n'arrive pas à récupérer le contenu d'un paramètre de la base de
registre

via une macro VBA. Je cherche à utiliser quelquechose du type :

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

''''''''''''''''''''''''''''''''''''''
Public Sub RécupInfoRegistry()
Dim Param1, Param2
Param1 = "HKEY_CURRENT_USERVolatile Environment"
Param2 = "HOMESHARE"
MsgBox system.getsettings("", Param1, Param2)
End Sub

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

''''''''''''''''''''''''''''''''''''''
Mais j'obtiens le message que 'system' est inconu et/ou que 'getsettings'
est une variable non définie. (le fait est que la bibliothèque n'est pas
activée car les deux mots ne sont pas passés en majuscules).
Quelqu'un aurait-il une solution ?
remarque : mon exemple tente de récupérer le nom du disque "home"
connecté.

Merci d'avance poutr toutes les sugsestions.
Amicalement.
--
Alain