[AC-2007] Migrer des données excel vers Access puis vers une base de données liée MySQL

[thibaut31600]

Bonjour à tous,

Dans le cadre d'un projet informatique, on m'a demandé d'utiliser un fichier excel afin de créer une base de données qui servira à alimenter un application Iphone.

J'ai donc fais le choix de créer une base de données Mysql
Utilisant ce MLD

Code :

1
2
Employe: {id_employe, nom_employe, prenom_employe, date_dispo, etc...}
Employe offshore: {id_employe_offshore, etc...}

Aucune table de ne contient de clés étrangères il n'y a donc aucune contraintes d'intégrités.

J'ai par la suite crée une base de données Iphone.accdb, que j'ai lié avec la base de données MySql via ODBC. La base Mysql peu donc être implémentée à partir de cette base Access de manière synchrone.

Maintenant sur mon fichier excel, j'ai en VB crée une maccro qui prépare les données à leur importation, je m'explique.

J'ai un fichier qui sert au manager afin de gérer la plannification des employés tout au long du projet. J'ai donc grâce à ma maccro crée plusieurs feuille afin d'y envoyer seulement les données qui m'intéressent et qui alimenteront les tables de ma base.

Maintenant je souhaite migrer ces données vers access grâce à cette même maccro j'ai donc essayé en utilisant différentes sources sur internet en vain.

Code :

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
Sub connexion_bdd()
    'RENDRE LE TRAITEMENT INVISIBLE
    Application.ScreenUpdating = True
 
    Dim db As Database
 
    Dim rs As DAO.Recordset
 
    Dim Fl1 As Worksheet
 
 
        Set db = OpenDatabase("C:\Users\thibaut31600\Documents\Iphone.accdb")
        'OUVERTURE DU LIEN AVEC UNE TABLE DE LA BASE
        Set rs = db.OpenRecordset("employe")
        Set Fl1 = Worksheets("matricule employe")
 
 
        rs.AddNew
            rs.Fields("id_employe") = Fl1.Range("A1").Value
        rs.Update
 
    'FERMETURE DU LIEN AVEC LA TABLE
    rs.Close
    'FERMETURE DU LIEN AVEC LA BDD
    db.Close
    Application.ScreenUpdating = True
 
End Sub

Ce code me retourne l'erreur 3343 en rapport avec le format de ma base.
j'ai aussi essayé avec une base de données mdb ors il semble y avoir un problème avec les tables liées dans ce cas là

Je me tourne donc vers vous afin que vous me fournissiez des indications et quelques conseils si possible.

Cordialement

Thibaut31600 étudiant en base de données