Discussion :

[malabarbe]

Bonjour,

Je voudrais par Macro pouvoir lire
L'ID du Produit Excel
Ceci a des fins d'identification.

Je me tourne vers vous n'ayant rien trouvé sur le Net.

Merci à vous

[fring]

Bonjour,

Ceci ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Application.ProductCode

[malabarbe]

Merci de m'avoir répondu,

Je récupère bien un code, mais je ne sait
pas a quoi il correspond !

Dans Excel quand on fait en haut :

? + A propos, cela affiche Licence d'utilisation accordée a :

Et c'est la que ce trouve L'ID du Produit
Ce que je veut récupérer

[kiki29]

Salut, à priori Il faut aller le chercher dans la base de registre

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Office\XX.0\Registration\{91...-00..  }  ProductID

ou XX.0 correspondant à la version d'Excel donnée par Application.Version
et {91...-..00..} est le Application.ProductCode donné par Fring plus haut

[malabarbe]

Ok,

Par Regedit avec le chemin + le Application.ProductCode,

Je récupère bien l'ID du Produit.

Maintenant comment le récupérer par la Macro ?

[Godzestla]

Salut,

voici un exemple pour lire dans la registry.

Tu pourras adapter en fonction de tes besoins

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Ghoscript_Key = "HKEY_LOCAL_MACHINE\SOFTWARE\GPL Ghostscript\" & Left$(sName, ret) & "\" & "GS_DLL"
 
'Read Ghoscript Key
Set objWSH = CreateObject("WScript.Shell")
 
 
On Error Resume Next
 gs_pkg = objWSH.RegRead(Ghoscript_Key)
 If Err.Number <> 0 Then
     MsgBox "Key """ & Ghoscript_Key & """ not inside the registry."
     gs_pkg = Null
 End If
 On Error GoTo 0