Bonjour a tous,
dans ma db, j'ai un bouton qui me permet d'exporter toutes mes tables vers differents fichiers excells.
Et j'ai un autre bouton qui me permet d'importer tout les fichiers excells vers mes tables.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
 
Private Sub B_Export_Click()
     Dim tbl As TableDef
    For Each tbl In CurrentDb.TableDefs
 
        If Not Mid(tbl.Name, 1, 4) = "MSYS" Then
            'MsgBox tbl.Name
            DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel8, tbl.Name, "Chemin\" & tbl.Name, True
        End If
    Next tbl
    DoCmd.Close acForm, "F_Backup"
    DoCmd.OpenForm "Entree administration", , , , , acDialog
End Sub
Pour l'import, il suffit de remplacer l'acExport par ecImport.
A l'export, pas de problemes.
A l'import, comme vous vous en doutez, les tables ne sont pas importé dans un ordre adapté (Integrité referentielle). Je perds donc un tas d'enregistrements.
Est ce que il existe un moyen dynamique de connaitre les relations entre les tables afin que l'import se passe sans probleme, ou est ce que je dois coder l'ordre d'import et perdre le dynamisme?

Voila, merci d'avance à tous.