FredixBlog

This function creates a reference to the specific library.

Function AddReference(chNomFichier As String) As Boolean
Dim ref As Reference

     On Error GoTo Erreur_AddReference
     Set ref = References.AddFromFile(chNomFichier)
     AddReference = True

    Sortie_AddReference:
     Exit Function

    Erreur_AddReference:
     MsgBox Err & ": " & Err.Description
     AddReference = False
     Resume Sortie_AddReference
End Function

No related posts.