Discussion :

[Brunodm13]

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

[pgz]

Bonjour.

As-tu autorisé l'accès au projet VBA?
Si non, dans les options d'Excel/ Centre de gestion de la confidentialité/ [Paramètres du centre de gestion...]/ Paramètres des macros,
cocher "Accès approuvé au modèle d'objet du projet VBA".

Cordialement,

PGZ

[Brunodm13]

Bonsoir pgz,

Merci de ta réponse.
Effectivement je n'avais pas autorisé l'accès au projet VBA.
Dans mes recherches, je n'ai jamais vu qu'il fallait autoriser cet accès.
En le faisant cela fonctionne

Cet autorisation se faisant au niveau de Excel, mon classeur qui est à destination de quelqu'un autre, ne fonctionnera pas si cet accès n'est pas autorisé.
Comment faire ?
Y a-t-il une méthode pour remédier à cela ?

Bruno

[pgz]

Bonjour

Cet autorisation se faisant au niveau de Excel, mon classeur qui est à destination de quelqu'un autre, ne fonctionnera pas si cet accès n'est pas autorisé.
Comment faire ?

A ma connaissance, il faudra que ton client procède à cette autorisation sur sa propre application Excel.

Tout ce que tu peux faire c'est tester si l'accès est autorisé et alerter l'utilisateur si ce n'est pas le cas. Sauf si quelqu'un a mieux...

Cordialement,

PGZ

[Brunodm13]

Bonsoir PGZ,

merci de ta réponse.
je verrai à tester si cette option est cochée et l'alerter en cas contraire comme tu le proposes.

je passe en résolu.

Bruno