Jessy, vu sur ton site ??

Bonjour

En fait tu as pris ce code d'une fonction complète...
c'est dans l'argument de la fonction strDatabase que
tu spécifis de quel base tu veux importer toutes les
tables dans la base de donnée en cours...

Donc en fait tu dois avoir ce qui suit :
pour l'utiliser, il suffit de faire :
importTable "c:...TabaseContenantTable.mdb"

*****************************************
Function ImportTable (strDatabase as string)
Dim Dbs as Database
Dim tdf As TableDef
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
Next
End Function
*****************************************

--
@+
Jessy Sempere - Access MVP
news@access.fr.vu
------------------------------------
Site @ccess : http://access.jessy.free.fr/
Pour l'efficacité de tous :
http://users.skynet.be/mpfa/
------------------------------------
"ludo6625" <anonymous@discussions.microsoft.com> a écrit dans le message
news: 0d6a01c3d9dd$e9376f70$a101280a@phx.gbl...
Bonjour et merci pour ton site qui m'aide bien....

Voilà j'ai repérer cette partie de code sur ton site
'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
Next

Déjà ou met ton le nom de la base de laquelle on importe
et existe t'il une procédure pour liéer les tables ???

Re,

Concernant les attaches de tables, voilà 2 fonctions
pour te mettre sur la piste :

*******************************************
Public Function CreateTableAttached(strDataBase As String)
'** Création de table attachée sauf Msys et Usys
Dim db As Database
Dim tdf As TableDef
Dim tblNew As TableDef

Set db = OpenDatabase(strDataBase)

For Each tdf In db.TableDefs
If Left(tdf.Name, 4) <> "Msys" And Left(tdf.Name, 4) <> "Usys" Then
Set tblNew = CurrentDb.CreateTableDef(tdf.Name)
tblNew.Connect = ";DATABASE=" & db.Name
tblNew.SourceTableName = tdf.Name
CurrentDb.TableDefs.Append tblNew
End If
Next
End Function

Public Function ActualiserAttaches(strDb As String) As Boolean
'** Actualisation des attaches de tables qui se trouve
'** dans la base de donnée spécifiée dans "strDb"
Dim db As Database
Dim tdf As TableDef
Dim tdfNew As TableDef

Set db = OpenDatabase(strDb)
For Each tdf In db.TableDefs
Set tdfNew = CurrentDb.TableDefs(tdf.Name)
tdfNew.Connect = ";DATABASE=" & strDb
Err = 0
On Error Resume Next
tdfNew.RefreshLink
If Err <> 0 Then: ActualiserAttaches = False: Exit Function
Next
ActualiserAttaches = True

End Function
*******************************************

--
@+
Jessy Sempere - Access MVP
news@access.fr.vu
------------------------------------
Site @ccess : http://access.jessy.free.fr/
Pour l'efficacité de tous :
http://users.skynet.be/mpfa/
------------------------------------
"ludo6625" <anonymous@discussions.microsoft.com> a écrit dans le message
news: 0d6a01c3d9dd$e9376f70$a101280a@phx.gbl...
Bonjour et merci pour ton site qui m'aide bien....

Voilà j'ai repérer cette partie de code sur ton site
'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
Next

Déjà ou met ton le nom de la base de laquelle on importe
et existe t'il une procédure pour liéer les tables ???

J eveut en faite soit modifier le chemin de mes tables
liés dans ma base ou effacer toutes mes tables liées et
les remplacer par les tables correspondant au nouveau
chemin...

Si je change mon lecteur logique par exemple :
Si je passe de F: à G: Access va perdre toutes les
liaisons de mes tables liées ....


Merci d'avance

Excuse moi mais pour donner le nouveau chemin c la
variable strdb que je met pour mon chemin . (set
strdb : "g:........Gp-Consulte.mdb")
et cette function va changer les attaches de toutes mes
tables liées sans changer celle de mes tables appartenant
à ma base en local ??"