Discussion :

[Kmilla]

Bonjour bonjour,

Je possède deux bases Access :
- la première me permet d'importer des données (à partir de fichiers excels)
- la seconde utilise les données de la première pour effectuer des calculs

Je désire donc importer les 14 tables de ma première base vers ma deuxième base.

J'ai donc écrit le code suivant, qui était censé supprimer les tables actuelles et importer les nouvelles (mêmes noms, mêmes structures) :

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
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
Public Function ImportTables()
 
    'Creation  of an array contening the tables that we want to import
      Dim a(1 To 14) ' 14 lines
  '------ remplissage du tableau a()
  a(1) = "T_A"
  a(2) = "T_AC"
  a(3) = "T_B"
  a(4) = "T_D"
  a(5) = "T_ISR"
  a(6) = "T_I"
  a(7) = "T_M"
  a(8) = "T_N"
  a(9) = "T_P"
  a(10) = "T_R"
  a(11) = "T_RM"
  a(12) = "T_S"
  a(13) = "T_TP"
  a(14) = "T_T"
 
 
 
    'Delete tables
    For i = 1 To 14
        strTableName = a(i)
        DoCmd.DeleteObject acTable, strTableName
    Next i
 
 
    'Import new tables
    Dim fd As Office.FileDialog
    Dim db As DAO.Database
 
     ' Creer un objet FileDialog
  Set fd = Application.FileDialog(msoFileDialogOpen)
 
    ' Titre de la boite de dialogue
  fd.Title = "Select a file..."
 
       ' Ne pas autoriser la selection multiple
     ' (donc 1 seul fichier est selectionnable a la fois)
  fd.AllowMultiSelect = False
 
  ' Afficher la boite de dialogue
If fd.Show() Then
 
 
 
    For i = 1 To 14
        strTableName = a(i)
        DoCmd.TransferDatabase acImport, "Microsoft Access", _
    fd.SelectedItems(1), acTable, strTableName, strTableName
    Next i
 
 MsgBox "The tables have been successfully imported."
 
 
End If
 
End Function

Le code marcherait très bien... s'il n'y avait pas de liaisons dans ma seconde base. En effet, quand j'exécute le code, j'ai le message d'erreur suivant :
"Vous ne pouvez pas supprimer la table T_A, elle intervient dans une ou plusieurs relations".

Auriez-vous une autre idée pour importer mes données ? Avec du copier/coller d'enregistrement peut-être ?

Sachant que j'ai besoin de pourvoir changer facilement mon fichier source (ie la première base), donc le principe de juste cliquer sur un bouton et choisir la base à importer m'allait très bien.


Merci beaucoup !

Camilla



EDIT : j'ai essayé avec

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

DoCmd.CopyObject fd.SelectedItems(1), strTableName, acTable, strTableName

même problème.

[Invité]

Bonjour,
https://www.developpez.net/forums/d1...t/#post9306657

tu ordonnance ton tableau en fonction de tes relation de la plus basse dans l'arborescence à la pus haute!

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 a(2) = "T_A"
  a(1) = "T_AC"

ou tu définis les contrainte de tes relation en supprimer en cascade mais c'est mois cool, une erreur et op...

[Kmilla]

C'est parfait, le DELETE et le INSERT INTO fonctionnent à merveille !

Je n'ai pas bien compris comment intervenait l'arborescence, mais même sans y toucher ça marche très bien.

Merci !

[Invité]

Je n'ai pas bien compris comment intervenait l'arborescence,

c'est ce que tu as obligatoirement fait!