1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27
| '--- Duplique "Adhérent" dans "Adhérents AA", dans base cible
appACC.DoCmd.TransferDatabase acImport, "Microsoft Access", strDB, acTable, _
"tbl Adhérents", "tbl Adhérents AA", True
'--- Supprime table "Adhérents" dans base cible
On Error Resume Next
appACC.DoCmd.DeleteObject acTable, "tbl Adhérents»
On Error GoTo 0
'--- On renomme la table tbl Adhérents AA en tbl Adhérents
appACC.DoCmd.Rename "tbl Adhérents", acTable, "tbl Adhérents AA"
If blnAccQuit Then appACC.Quit acQuitSaveAll
Set appACC = Nothing
'--- Supprime table "Adhérents AA" dans base en cours
On Error Resume Next
DoCmd.DeleteObject acTable, "tbl Adhérents AA"
On Error GoTo 0
'---Crée table liée dans base en cours
DoCmd.TransferDatabase acLink, "Microsoft Access", strDB, acTable, _
"tbl Adhérents", "tbl Adhérents"
'--- Passer à la partie Importation Feuille
DoCmd.TransferSpreadsheet acImport, _
acSpreadsheetTypeExcel9, "tbl Adhérents", varFichier, True, strFeuille & "!A1:AD20000" |
Partager