Il faut bien que récupère l'adresse de la base quelquepart et comment ?
Merci
Code : 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 ImportObject(strDataBase As String) Dim Dbs As Database Dim tdf As TableDef Set Dbs = OpenDatabase(strDataBase) 'Import les tables For Each tdf In Dbs.TableDefs If Left(tdf.Name, 4) <> "msys" Then DoCmd.TransferDatabase acImport, "Microsoft Access", _ strDataBase, acTable, tdf.Name, tdf.Name, False, True End If Dbs.Close: Set Dbs = Nothing Set cnt = Nothing End Function
Partager