Impossible d'ouvrir la clé de registre en lecture [Résolu]

Messages postés
87
Date d'inscription
mercredi 30 avril 2008
Dernière intervention
15 décembre 2010
- 22 avril 2010 à 16:37 - Dernière réponse :
Messages postés
87
Date d'inscription
mercredi 30 avril 2008
Dernière intervention
15 décembre 2010
- 22 avril 2010 à 18:43
bonjour,
j'essaye d'afficher la valeur d'un clé de registre par le code
Set WshShell = CreateObject("Wscript.Shell")
TextBox1.Text = WshShell.RegRead(chemin)

mais j'obtient l'erreur "impossible d'ouvrir la clé en lecture",alors que mn compte a le droit "controle total" sur cette clé????


merci d'avance
Afficher la suite 

Votre réponse

6 réponses

Meilleure réponse
Messages postés
5530
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
17 novembre 2018
- 22 avril 2010 à 18:34
3
Merci
J'ai eu du mal, mais j'y suis arrivé:
TextBox1.Text = wsh.RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Internet Explorer\ActiveX Compatibility\{6262D3A0-531B-11CF-91F6-C2863C385E30}\Compatibility Flags")
C'est le dernier mot qui manqué!!!
Amicalement
@+ Le Pivert

Merci cs_Le Pivert 3

Avec quelques mots c'est encore mieux Ajouter un commentaire

Codes Sources a aidé 88 internautes ce mois-ci

Commenter la réponse de cs_Le Pivert
Messages postés
5530
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
17 novembre 2018
- 22 avril 2010 à 17:13
0
Merci
Bonjour,
J'ai pris la recherche de la valeur de clé que j'avais dans un de mes programmes et qui fonctionne. Il suffit de changer le chemin de la clé.
Dim wsh As Object 'n'est pas déclaré dans l'exemple donné cela provient peut-être de là.
Set wsh = CreateObject("WScript.Shell")
TextBox1.Text = wsh.RegRead("HKEY_CURRENT_USER\Software\Microsoft\VBA\Security\LoadControlsInForms")
@+
Commenter la réponse de cs_Le Pivert
Messages postés
87
Date d'inscription
mercredi 30 avril 2008
Dernière intervention
15 décembre 2010
- 22 avril 2010 à 17:25
0
Merci
bonjour,
voila exactement le code

Dim WshShell As Object
Set WshShell = CreateObject("Wscript.Shell")
TextBox1.Text=WshShell.RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Internet Explorer\ActiveX Compatibility\{6262D3A0-531B-11CF-91F6-C2863C385E30}\REG_DWORD ")

mais ca ne marche toujours pas :(
Commenter la réponse de mido105
Messages postés
5530
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
17 novembre 2018
- 22 avril 2010 à 17:52
0
Merci
Tout d'abord à la fin du chemin avant les guillemets il y a un espace, il faut l'enlever.
Entre TextBox1.Text et il faut un espace ainsi qu'après ( cela est peut-être dû à la mise en page du site)
Ensuite il faut aller dans Outils-Références et cochez:
Windows Scripting Host Object Model
c'est ce point le plus important
@+
Commenter la réponse de cs_Le Pivert
Messages postés
87
Date d'inscription
mercredi 30 avril 2008
Dernière intervention
15 décembre 2010
- 22 avril 2010 à 18:14
0
Merci
j'ai bien ajouté la réference mais j'ai toujours le probléme
(juste pr info je travail avec vba je suppose que cela ne pose pas de probléme)
Commenter la réponse de mido105
Messages postés
87
Date d'inscription
mercredi 30 avril 2008
Dernière intervention
15 décembre 2010
- 22 avril 2010 à 18:43
0
Merci
tt a fait je vien de le trouvé moi aussi merciii infiniment.
Commenter la réponse de mido105

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.