Discussion :

[Nourson]

Bonjour à tous

Je souhaiterais transformer une base access en bibliothèque, c'est-à-dire ne pas avoir à importer le code de routines VBA qui sont dans un module d'une autre base mais le lier (procédure identique à liaison de tables)
Est-ce possible et si oui comment.
Merci pour vos infos.

[tee_grandbois]

bonjour,
il suffit de mettre la base en référence dans les autres bases qui doivent l'utiliser (Menu VBA/ Outils / Références, bouton "Parcourir" pour sélectionner les fichiers de type (Base de données Microsoft Access(*.accdb ou *.mdb selon la version)
cela peut aussi se faire par code:

Code VBA :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Function AddRefMdb(pRefName As String, pRefFileName As String)
Dim oOldRef As Reference
 
    For Each oOldRef In Application.References
    ' si on trouve la référence, on la supprime
        If oOldRef.Name = pRefName Then
            References.Remove oOldRef
            Exit For
        End If
    Next
 
    ' on recrée la nouvelle référence
    References.AddFromFile pRefFileName    
 
End Function

la fonction s'utilise comme cela: Call AddRefMdb("NomProjet","CheminComplet_base") Nom projet est le nom du projet VBA (Menu VBA/ Outils / Propriétés du projet)

[Nourson]

Merci.
Cela fonctionne très bien