'Modification de l'argument de compilation conditionelle
Application.SetOption "Conditional Compilation Arguments", "AcceptLibraryCode = true"
'Recompilation et enregistremnt du code
RunCommand acCmdCompileAndSaveAllModules

#If MonArgument then 
	' Je place ici le code que je veux ne compiler qu'à certaine condition
	' dans notre cas tous les appels vers des bibliothèques externes
#ElseIf UnAutreArgument Then
	....
#Else 
	'dans tous les autres cas
#End If

Function EnregistreReferences()
Dim strLibraryName As String
Dim strLibraryPath As String
Dim strLibraryRelativePath As String
Dim ref As Reference
    On Error GoTo MajReference_Error
    strLibraryName = "CodeBibli"
    strLibraryRelativePath = "\"
    strLibraryPath = CurrentProject.Path & strLibraryRelativePath & strLibraryName & ".mdb "
    Debug.Print "Enregistrement de la référence : " & strLibraryPath
    Application.References.AddFromFile strLibraryPath
    Debug.Print "AcceptLibraryCode = 1 "
    Application.SetOption "Conditional Compilation Arguments", "AcceptLibraryCode = true"
    Debug.Print "Recompilation de l'application"
    RunCommand acCmdCompileAndSaveAllModules
    Debug.Print "maintenant je peut utiliser ma bibliothèque"
    
ToiTuSors:
    Set ref = Nothing
   Exit Function

MajReference_Error:
    Select Case Err.Number
        Case 29060  'Fichier non trouvé
            Debug.Print "Echec de l'enregistrement ! :("
            MsgBox "Le Fichier : " & strLibraryPath & " est introuvable"
        Case 32813 ' bibliothèque existante
            Debug.Print "la réference exite deja"
            For Each ref In Application.References
                If ref.Name = strLibraryName And ref.IsBroken Then
                    Debug.Print "elle est cassée on la supprime"
                    Application.References.Remove ref
                    Debug.Print "et on relance l'ajout"
                    Resume
                Else
                    Debug.Print "elle est pas cassé, alors on saute l'enregistrement"
                    Resume Next
                End If
            Next ref
        Case Else    ' default message, handy to find where the problem happened.
            MsgBox "Error " & Err.Number & " (" & Err.Description & ")" _
                    & " in procedure MajReference of Module basEnregistrementBibli"
    End Select
    Resume ToiTuSors
    
End Function

Private Sub Form_Load()
	#If AcceptLibraryCode Then
        'ici je peux appeler du code de ma bibliothèque
        MaProcedureExterne
    #End If
End Sub

Private Sub Form_Unload(Cancel As Integer)
	'A la fermeture du formulaire on remet en place la compilation conditionnel pour 
	' qu'à la prochaine ouverture le contrôle de dépendances soit à nouveau. Cela autorise
	' de déplacer l'application dans un autre répertoire sans cassé les références.
    Debug.Print "AcceptLibraryCode = False"
    Application.SetOption "Conditional Compilation Arguments", "AcceptLibraryCode = False"
	Debug.Print "Recompilation de l'application"
    RunCommand acCmdCompileAndSaveAllModules
End Sub