Importer les formulaires

Fonction qui permet d'importer tous les formulaires d'une base externe.

Function fnImportForm(sBase As String)
    '/
    '/ Usage :
    '/ fnImportForm "C:MesFichiersMaBase.mdb"
    '/
    Dim Dbs As DAO.Database
    Dim Con As DAO.Container
    Dim Doc As DAO.Document

    If Dir(sBase) = "" Then
        MsgBox "Chemin ou nom de la base incorrect !", vbCritical, "Erreur"
        Exit Function
    End If

    Set Dbs = OpenDatabase(sBase)
    Set Con = Dbs.Containers("Forms")

    For Each Doc In Con.Documents
        DoCmd.TransferDatabase acImport, "Microsoft Access", _
                               sBase, acForm, Doc.Name, Doc.Name, False, True
    Next

    Dbs.Close
    Set Dbs = Nothing
    Set Con = Nothing
End Function