Lister les bibliothèques utilisées

[SVri]

Bonjour,

Un utilisateur d'une macro que je diffuse a un message d'erreur. Il est le seul à avoir ce message. Je pense que c'est un pb lié aux bibliothèques d'objets utilisées dans le projet.
Je souhaiterais pouvoir le vérifier.

Est-il possible de lister (dans une feuille de calcul, par exemple) les bibliothèques utilisées / actives dans le projet en cours ??

(le projet est vérouillé par mot de passe, donc pas possible de lui faire afficher "Outils - Références" ...)

Merci !

 

[STéphane]

peut-être utile pour déprotéger un classeur :
http://perso.wanadoo.fr/frederic.sigonneau/code/VBE/ProtegeVBAProjectParMacro.txt


ceci est pour lister les références
le code est brut de fonderie, il y a des trucs inutiles je pense
Sub h()


Dim i As Integer

On Error Resume Next
With ThisWorkbook.VBProject
For i = 1 To .References.Count
If .References(i).isbroken Then
' CheckReference = True
MsgBox "Reference " & .References(i).FullPath & "\" _
& .References(i).Name & " is missing !"
Err.Clear:
End If
Cells(i, 1).Value = .References(i).Name
Cells(i, 2).Value = .References(i).isbroken
Next i
End With


End Sub

 

[STéphane]

Qu'en est-il ?

Stéphane

 

[SVri]

Bonjour STephane

Le code que tu me propose fonctionne et liste bien les ref utilisées (d'ailleurs: merci !). 🙂

Après verif. le pb ne vient pas d'une bibliothèque manquante.

Je ne vois pas ce qui fait planter la macro...
Il n'y a pourtant rien de fantastique dans cette sub !! :

Private Sub BoutonALU_Click()
Application.DisplayAlerts = False
Sheets("ALU").Activate
ActiveSheet.Unprotect ("toto") '<== erreur ici !!
ActiveSheet.Rows("1:27").Copy
etc ...

Peut-être l'utilisateur as fait une manip pas prévue ... => Je vais me planter derrière lui et lui demander de refaire sa manip !!

A+