Trouver la clé de windows

Bonjour,

J'ai dans une macro le code suivant qui trouve le numéro de windows et par la suite je donne accès à mon fichier si la clé est bonne.

Function NumSerieWin()

Dim Cle, WSH As Object

Cle = "HKLM\Software\Microsoft\Windows\CurrentVersion\ProductID"

Set WSH = CreateObject("WScript.Shell")

NumSerieWin = WSH.regread(Cle)

End Function

Mais voilà que ce code ne fonctionne pas avec Vista.

Vous pouvez m'aider ?

Merci

Salut le forum

Bienvenue comme nouveau membre helyvan

Sous Vista le clé n'a peut-être pas le même chemin, tu as quoi comme code d'erreur

HKLM\Software\Microsoft\Windows\CurrentVersion\ProductID

N'ayant pas Vista, je fait une recherche.

Mytæ

Re le forum

Un chance mon fils à Vista mais pas Excel d'installer

A tester au-lieu de

"HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\ProductId"

il faut faire

"HKEY_LOCAL_MACHINE\Software\Microsoft\WindowsNT\CurrentVersion\ProductId"

Mytå

• Dès que votre problème est résolu, merci de le marquer en tant que [Résolu]
  grâce à l'utilitaire se trouvant en bas de page, aperçu :

Bonsoir,

Sous vista il y a une clé windows comme 72412-OEM-0021923-02112

C'est le numéro que excel vérifie si je l'ai ajouté a mon code si oui il ouvre le fichier.

Merci

Re le forum

As-tu essayer le deuxième code ?

Cle="HKLM\Software\Microsoft\WindowsNT\CurrentVersion\ProductId"

Si tu ne testes pas je ne peux t'aider.......

Mytå

bonsoir,

Merci de m'aider vous êtes très gentil de prendre de votre temps.

Votre réponse c'est juste une idée comme ça ?

Je ne peut pas tester immédiatement, je dois envoyé le fichier à une personne qui a Vista.

Je vais essayé ton idée demain.

Merci encore

p/s si quelqu'un a vista et voudrait essayé d'ouvrir mon fichier vous êtes bienvenue et remiercier d'avance.

re le forum

ca devrait donner un code du style

Sub NumSerieWin()
Dim Cle, WSH As Object
Cle = "HKLM\Software\Microsoft\WindowsNT\CurrentVersion\ProductID"
Set WSH = CreateObject("WScript.Shell")
a = WSH.regread(Cle)
End Sub

Au pire on ajout la detection si le dossier existe

Mytå

bonsoir,

Une chose certaine c'est que entre windows et NT il doit y avoir une espace sinon moi même je ne peut pas l'ouvrir.

J'ai rejoint mon ami et il va venir chez moi dans 10 min.

Je t'en redonne des nouvelles.

Merci

re le forum

Je reste disponible

En complément pour vérifier l'existance du dossier à adapter

Sub Test()
    MsgBox DossierExiste("C:\Nom dossier")
End Sub

Function DossierExiste(NomDossier As String) As Boolean
    DossierExiste = Dir(NomDossier, vbDirectory) <> ""
End Function

Mytå

P.S. Le forum à plus de monde de jour (France) pas bcp d'adepte du Québec, je suis le seul (Ancien Modérateur)

Re le forum

Dans ton profil Excel 2008, tu es sous Mac ............

Attendons aussi la réponse des Users de Mac.

Mytå

re le forum

dodo time (sorry), boulot à 4 hres du matin heure du Qc

Mytæ

Bonsoir,

Tu es un champion, ça fonctionne au bout

Merci

Bonsoir Mytå,

Tu es génial ça fonctionne très bien.

Merci encore

A+