Bonjour à tous,

J'essaye de lister les références d'un classeur Excel avec le code de silkyroad, à savoir :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
Dim Ref As Reference
For Each Ref In ThisWorkbook.VBProject.References
    Debug.Print Ref.Name 'Nom
    Debug.Print Ref.FullPath 'Chemin complet
    Debug.Print Ref.Description 'Description de la référence
    Debug.Print Ref.IsBroken 'Indique si la référence est manquante
    Debug.Print Ref.Major & "." & Ref.Minor 'Version
    Debug.Print "---"
Next Ref
J'avais une erreur de compilation qui a disparue après l'ajout de la référence Microsoft Visual Basic Extensibility 5.3
Malgré cela j'ai le code d'erreur 1004.

J'ai essayé d'accéder juste au nom du projet avec :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
Dim wbk As Object
Dim Nomprojet As String
 
Set wbk = ThisWorkbook.vbProject
Nomprojet = wbk.Name
Toujours l'erreur 1004

La seule chose que j'arrive à récupérer c'est le nom du classeur, mais bon...

Si quelqu'un peux m'expliquer, je prends avec plaisir.

Bruno