Voici un petit programme VBA qui liste les constantes qu’une bibliothèque DLL ou d’une application office.
Pour utiliser cette macro, il vous faut installer la référence TYpeInfo Lib. Si celle-ci n’apparait pas dans votre liste de référence, vous pouvez trouver la dll associée à l’adresse suivante sur votre ordinateur : C:\Program Files\Microsoft Office\Office10\VS Runtime\vstlbinf.dll (Windows Xp- Office 2003)
Pour faire apparaitre les constantes, cliquer sur le bouton de l’onglet init du fichier suivant : ici
Normalement, vous devez obtenir un résultat de la forme Groupe de constante, nom de la constante, valeur de la constante. 
Voici le code VBA associé :
Sub main()
constantFile = ThisWorkbook.VBProject.References("EXCEL").FullPath
'constantFile = "C:\Program Files\Microsoft Office\Office10\VS Runtime\vstlbinf.dll"
Sheets("Init").Select
Cells.Select
Selection.Clear
listeConstant (constantFile)
End Sub
Sub listeConstant(constantFile)
'liste toute les constantes de EXcel dans la feuille courante
Dim TLIApp As TLI.TLIApplication
Dim TLILibInfo As TLI.TypeLibInfo
Dim MemInfo As TLI.MemberInfo
Dim Ndx As Long
Set TLIApp = New TLI.TLIApplication
Set TLILibInfo = New TLI.TypeLibInfo
Set TLILibInfo = TLIApp.TypeLibInfoFromFile(constantFile)
On Error Resume Next
j = 4
For i = 1 To TLILibInfo.Constants.Count
Range("A" & j).Value = TLILibInfo.Constants.IndexedItem(i).Name
With TLILibInfo.Constants.IndexedItem(i)
For Ndx = 1 To .Members.Count
Range("B" & j).Value = .Members(Ndx).Name
Range("C" & j).Value = .Members(Ndx).Value
j = j + 1
Next Ndx
End With
j = j + 1
Next
End Sub
