BIBLIOTHEQUE

Bonjour,

j'ai recupéré un fichier avec des codes VBA que je viens d'installer sur mon PC et il se met en erreur car il recherche des bibliothèques de références.

comment rechercher les bliotheques de références utilisées dans un projet ?

je reformule ma demande :

j'ai recupéré un fichier excel avec des macros a l'interieur

ces macros font références a des "Références - VBAPoject" qui se trouvent dans "outils\Références"

mais je ne sais pas auxquels et cela fait planté les macros

d'ou ma demande, comment rechercher les Références manquante ?

Bonjour

Juste pour faire avancer le schmilblick

Dans mes archives j'ai ce code que je te transmet sans aucune garantie de bon fonctionnement, car je ne l'ai pas testé

'Essayer de réinstaller les références manquantes d'un projet

Sub AddMissingRefs()
'examine les références d'un projet, repère celles qui
'sont déclarées manquantes et essaye de les réinstaller
'à tester
Dim LesRefs As Object, i&, Msg$, Cpt&, Rep&, Mnq&, Chemin$, Nom$

  Set LesRefs = ThisWorkbook.VBProject.References
  For i = 1 To LesRefs.Count
    With LesRefs(i)
      If .IsBroken Then
        Mnq = Mnq + 1: Chemin = .FullPath: Nom = .Name
        LesRefs.Remove LesRefs.Item(.Name)
        If Dir(Chemin) = "" Then
          Msg = "La librairie " & Nom & " est manquante et le fichier" & vbLf
          Msg = Msg & "'" & Chemin & "'" & vbLf
          Msg = Msg & "ne peut être trouvé pour l'installer."
          MsgBox Msg, vbCritical
          Cpt = Cpt + 1
        Else
          LesRefs.AddFromFile Chemin
          Rep = Rep + 1
        End If
      End If
    End With
  Next i

  If Mnq > 0 Then
    If Cpt > 0 Then Msg = Cpt & " référence(s) toujours manquante(s)"
    If Rep > 0 Then Msg = Msg & Rep & "référence(s) réinstallée(s)"
  End If

End Sub 'fs