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
Aucune table de ne contient de clés étrangères il n'y a donc aucune contraintes d'intégrités.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2 Employe: {id_employe, nom_employe, prenom_employe, date_dispo, etc...} Employe offshore: {id_employe_offshore, etc...}
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.
Ce code me retourne l'erreur 3343 en rapport avec le format de ma base.
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 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
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
Partager