Objet fonctionnant que sous XP ?

Function LectureBDR(ByVal cheminClé As String, Optional cpt As Integer) As String

'Création d'un objet VBA pour lire dans la base de registre
Set wshshell = VBA.CreateObject("WScript.Shell") 'PB sur Seven

'Si le paramètre cpt n'est pas passé en paramètre, cela signifie que l'on cherche le chemin de ...
If IsMissing(cpt) Then
structure(cpt).Id = wshshell.regread(cheminClé)
LectureBDR = Null
Else
LectureBDR = wshshell.regread(cheminClé)
End If
End Function

Cliquez pour agrandir...