Bonjour à tous,
J'essaye de lister les références d'un classeur Excel avec le code de silkyroad, à savoir :
J'avais une erreur de compilation qui a disparue après l'ajout de la référence Microsoft Visual Basic Extensibility 5.3
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
Malgré cela j'ai le code d'erreur 1004.
J'ai essayé d'accéder juste au nom du projet avec :
Toujours l'erreur 1004
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
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
Partager