Discussion :

[jeronimo]

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

[Tofalu]

rien compris

[jeronimo]

Je veux lancer cette fonction qui importe toutes les tables d'une autre base, mais pour cela il faut que l'utilisateur désigne la table .

Donc je ne sais pas récupérer cette désignation pour ensuite lancer la fonction d'importation .