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

[malabarbe]

voici ma chaine :

Code :

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

1
2
 
Ghoscript_Key = "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Office\11.0\Registration\{9011040C-6000-11D3-8CFE-0150048383C9}  PruductID" & Left$(sName, ret) & "\" & "GS_DLL"

Le msgbox m'affiche :
Key = "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Office\11.0\Registration\{9011040C-6000-11D3-8CFE-0150048383C9} PruductID" & Left$(sName, ret) & "\" & "GS_DLL"not inside the registry.

Et je ne récupère pas le ProductID ?

[kiki29]

Salut, relis ton code et comprends celui de Godzestla : c'est normal qu'il ne lise pas le ProductID....
adapté de Godzestla

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
 
Option Explicit
 
Sub Tst()
Dim Vers As String
Dim oWsh As Object
Dim Cle As String, CleReg As String
Dim Prod As String
 
    Vers = Application.Version
    Prod = Application.ProductCode
 
    CleReg = "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Office\" & Vers & "\Registration\" & Prod & "\ProductID"
 
    Set oWsh = CreateObject("WScript.Shell")
 
    On Error Resume Next
    Cle = oWsh.RegRead(CleReg)
 
    If Err.Number <> 0 Then
        MsgBox "Clé " & CleReg & " absente du registre."
        Set oWsh = Nothing
        Exit Sub
    End If
    On Error GoTo 0
 
    Set oWsh = Nothing
    MsgBox Cle
End Sub

[Godzestla]

Merci Kiki29

[malabarbe]

Salut kiki29,

Super merci, le dernier code tourne parfaitement

et c'est exactement ce que je souhaitais

Grace a vous tous, j'ai bien avancé

Encore merci

@ +

[Godzestla]

Avec plaisir.