afin d'automatiser l'import récurant de tables MDE dans mes bases MDB, je
souhaiterai remplacer le traditionnel menu
"file/getexternalData/import/select datasource/selectAllTables" par un bouton
dans mon formulaire d'administration avec une petite ligne de commande du
genre
Getexternaldata , import, "mabase source qui est dans C:/mes
docs","toutesles tables", et voilà !!
merci à tous les champions VBA dispos en cette belle journée !!
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Gilbert
Bonjour,
Avec quelque chose comme ça :
Sub Importation() Dim db As DAO.Database Dim tbl As DAO.TableDef Dim NomBase As String
NomBase = "D:Mes documentsTotoTiti.mdb"
'Etablir la connexion avec ta base Set db = DBEngine.Workspaces(0).OpenDatabase(NomBase) 'Boucler sur toutes les tables sauf les tables système For Each tbl In db.TableDefs If Left(tbl.Name, 4) <> "msys" Then DoCmd.TransferDatabase acImport, "Microsoft Access", NomBase, acTable, tbl.Name, tbl.Name End If Next tbl
End Sub
-- Gilbert
"barlou" a écrit dans le message de news:
Bonjour à tous,
afin d'automatiser l'import récurant de tables MDE dans mes bases MDB, je souhaiterai remplacer le traditionnel menu "file/getexternalData/import/select datasource/selectAllTables" par un bouton dans mon formulaire d'administration avec une petite ligne de commande du genre Getexternaldata , import, "mabase source qui est dans C:/mes docs","toutesles tables", et voilà !!
merci à tous les champions VBA dispos en cette belle journée !!
barlou
Bonjour,
Avec quelque chose comme ça :
Sub Importation()
Dim db As DAO.Database
Dim tbl As DAO.TableDef
Dim NomBase As String
NomBase = "D:Mes documentsTotoTiti.mdb"
'Etablir la connexion avec ta base
Set db = DBEngine.Workspaces(0).OpenDatabase(NomBase)
'Boucler sur toutes les tables sauf les tables système
For Each tbl In db.TableDefs
If Left(tbl.Name, 4) <> "msys" Then
DoCmd.TransferDatabase acImport, "Microsoft Access", NomBase,
acTable, tbl.Name, tbl.Name
End If
Next tbl
End Sub
--
Gilbert
"barlou" <barlou@discussions.microsoft.com> a écrit dans le message de news:
0A5215F4-548D-44E6-9F02-9BB735917CF6@microsoft.com...
Bonjour à tous,
afin d'automatiser l'import récurant de tables MDE dans mes bases MDB, je
souhaiterai remplacer le traditionnel menu
"file/getexternalData/import/select datasource/selectAllTables" par un
bouton
dans mon formulaire d'administration avec une petite ligne de commande du
genre
Getexternaldata , import, "mabase source qui est dans C:/mes
docs","toutesles tables", et voilà !!
merci à tous les champions VBA dispos en cette belle journée !!
Sub Importation() Dim db As DAO.Database Dim tbl As DAO.TableDef Dim NomBase As String
NomBase = "D:Mes documentsTotoTiti.mdb"
'Etablir la connexion avec ta base Set db = DBEngine.Workspaces(0).OpenDatabase(NomBase) 'Boucler sur toutes les tables sauf les tables système For Each tbl In db.TableDefs If Left(tbl.Name, 4) <> "msys" Then DoCmd.TransferDatabase acImport, "Microsoft Access", NomBase, acTable, tbl.Name, tbl.Name End If Next tbl
End Sub
-- Gilbert
"barlou" a écrit dans le message de news:
Bonjour à tous,
afin d'automatiser l'import récurant de tables MDE dans mes bases MDB, je souhaiterai remplacer le traditionnel menu "file/getexternalData/import/select datasource/selectAllTables" par un bouton dans mon formulaire d'administration avec une petite ligne de commande du genre Getexternaldata , import, "mabase source qui est dans C:/mes docs","toutesles tables", et voilà !!
merci à tous les champions VBA dispos en cette belle journée !!
barlou
barlou
merci j'essaye tout de suite
Bonjour,
Avec quelque chose comme ça :
Sub Importation() Dim db As DAO.Database Dim tbl As DAO.TableDef Dim NomBase As String
NomBase = "D:Mes documentsTotoTiti.mdb"
'Etablir la connexion avec ta base Set db = DBEngine.Workspaces(0).OpenDatabase(NomBase) 'Boucler sur toutes les tables sauf les tables système For Each tbl In db.TableDefs If Left(tbl.Name, 4) <> "msys" Then DoCmd.TransferDatabase acImport, "Microsoft Access", NomBase, acTable, tbl.Name, tbl.Name End If Next tbl
End Sub
-- Gilbert
"barlou" a écrit dans le message de news:
Bonjour à tous,
afin d'automatiser l'import récurant de tables MDE dans mes bases MDB, je souhaiterai remplacer le traditionnel menu "file/getexternalData/import/select datasource/selectAllTables" par un bouton dans mon formulaire d'administration avec une petite ligne de commande du genre Getexternaldata , import, "mabase source qui est dans C:/mes docs","toutesles tables", et voilà !!
merci à tous les champions VBA dispos en cette belle journée !!
barlou
merci j'essaye tout de suite
Bonjour,
Avec quelque chose comme ça :
Sub Importation()
Dim db As DAO.Database
Dim tbl As DAO.TableDef
Dim NomBase As String
NomBase = "D:Mes documentsTotoTiti.mdb"
'Etablir la connexion avec ta base
Set db = DBEngine.Workspaces(0).OpenDatabase(NomBase)
'Boucler sur toutes les tables sauf les tables système
For Each tbl In db.TableDefs
If Left(tbl.Name, 4) <> "msys" Then
DoCmd.TransferDatabase acImport, "Microsoft Access", NomBase,
acTable, tbl.Name, tbl.Name
End If
Next tbl
End Sub
--
Gilbert
"barlou" <barlou@discussions.microsoft.com> a écrit dans le message de news:
0A5215F4-548D-44E6-9F02-9BB735917CF6@microsoft.com...
Bonjour à tous,
afin d'automatiser l'import récurant de tables MDE dans mes bases MDB, je
souhaiterai remplacer le traditionnel menu
"file/getexternalData/import/select datasource/selectAllTables" par un
bouton
dans mon formulaire d'administration avec une petite ligne de commande du
genre
Getexternaldata , import, "mabase source qui est dans C:/mes
docs","toutesles tables", et voilà !!
merci à tous les champions VBA dispos en cette belle journée !!
Sub Importation() Dim db As DAO.Database Dim tbl As DAO.TableDef Dim NomBase As String
NomBase = "D:Mes documentsTotoTiti.mdb"
'Etablir la connexion avec ta base Set db = DBEngine.Workspaces(0).OpenDatabase(NomBase) 'Boucler sur toutes les tables sauf les tables système For Each tbl In db.TableDefs If Left(tbl.Name, 4) <> "msys" Then DoCmd.TransferDatabase acImport, "Microsoft Access", NomBase, acTable, tbl.Name, tbl.Name End If Next tbl
End Sub
-- Gilbert
"barlou" a écrit dans le message de news:
Bonjour à tous,
afin d'automatiser l'import récurant de tables MDE dans mes bases MDB, je souhaiterai remplacer le traditionnel menu "file/getexternalData/import/select datasource/selectAllTables" par un bouton dans mon formulaire d'administration avec une petite ligne de commande du genre Getexternaldata , import, "mabase source qui est dans C:/mes docs","toutesles tables", et voilà !!
merci à tous les champions VBA dispos en cette belle journée !!
