Discussion :

[adelion7015]

Bonjour,

j'essaye d'importer des données d'un fichier Excel vers un fichier Access, je me suis inspiré d'un post code VBA que j'ai trouvé sur le forum et que j'ai adapté a mes besoins bien sur :

Code :

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

1
2
3
4
Private Sub import_Click()
DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel8, "tbl_ecriture", "C:\Users\azzedine.mimoune\Desktop\ecriture.xlsx"
    DoCmd.RunSQL "ALTER TABLE tbl_ecriture ADD CONSTRAINT PK_[NO_ENREG] PRIMARY KEY[NO_ENREG]"
End Sub

Des que je clique sur le bouton, j'ai le message d'erreur suivant :

Erreur d'execution '2391':
Le champ "F1" n'existe pas dans la table destination "tbl_ecriture"

Mon problème c'est que je n'arrive pas a identifer le champ "F1".

Merci d'avance pour l'aide.

Cordialement.

[tee_grandbois]

bonjour,
il faudrait soit mettre le nom des champs de la table tbl_ecriture sur la première ligne de ton fichier Excel, soit passer par une table temporaire contenant des champs nommés F1, F2, F3, etc... en précisant le type de données pour chaque champ, ensuite insérer les enregistrements de la table temporaire dans la table tbl_ecriture

[adelion7015]

Bonsoir tee_grandbois,

J'ai renommé les noms de champs sur la table access et la feuille de manière a avoir les mêmes noms, maintenant j'ai un autre message d'erreur, que voici;

Erreur d’exécution 3289

Erreur de syntaxe dans la clause CONSTRAINT.

Que pourrait etre la nature du probleme ?

Merci.

Cordialement.

[tee_grandbois]

peut-être:

Code :

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

ADD CONSTRAINT [PK_NO_ENREG] PRIMARY KEY([NO_ENREG])

à la place de:

Code :

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

ADD CONSTRAINT PK_[NO_ENREG] PRIMARY KEY[NO_ENREG]

mais pourquoi créer une clé primaire via VBA plutôt que manuellement à la création de la table ? Cela prend plus de temps pour taper le code que de créer la clé directement.

[adelion7015]

Bonjour tee_grandbois,

Bon j'ai porté la correction comme vous me l'avez dit, maintenant c'est le message initial qui revient, c'est a dire :

Erreur d'execution '2391':
Le champ "F1" n'existe pas dans la table destination "tbl_ecriture"

Alors pour etre sur, sur la feuille excel, j'ai tapé le nom de la cellule F1 et aussi les autres, dans la zone de nom, c'est bien ça ?

Je ne comprend plus.

Cordialement.

[hyperion13]

Dans ce genre de manip, je crée toujours manuellement la tbl d'importation de données d'excel et après j'exécute automatiquement.
Tu peux faire une capture d'écran de ta tbl et de ta feuille ?

[adelion7015]

Bonjour Hyperion,

J'ai aussi crée la table manuellement sur access.

Table access.docxTable excel.docx

Voila les deux captures, vous remarquerez que jai pris le soins d'avoir les memes noms de champs partout.

cordialement.

[hyperion13]

A tester

Code :

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

1
2
3
Private Sub import_Click()
DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel8, "tbl_ecriture", "C:\Users\azzedine.mimoune\Desktop\ecriture.xlsx", True
End Sub

True à la fin de la syntaxe pour indiquer que ta 1ère ligne contient les en-têtes.
Je ne suis pas certain qu'il faille une clé primaire dans ta tbl.

[adelion7015]

Re bonjour Hyperion,

Effectivement le "True" a fait toute la différence, ça marche.

Merci a tous.

Cordialement.

[adelion7015]

Bonjour,

Je reouvre le post, vu que j'ai refais le meme travail ne prenant le soins de faire exactement comme la premiere fois, mais maintenant en lancant la procedure j'ai un message d'erreur:

Erreur d'execution '2391':

Le champ "F9" n'existe pas dans la table de destination "tbl_ecriture".

je coince, je ne comprend pas.

une aide serait la bienvenue.

merci.

cordialement.

[hyperion13]

Salut
Vous avez vérifié si le nom de l'en-tête en I1 (F9=Field9) de votre feuille de calculs est le même que dans la tbl_écriture ?

[adelion7015]

Bonjour,

Justement, j'ai effacé les données qui étaient dans la colonne F.

[hyperion13]

Attention, lorsque dans une procédure d'importation Excel - Access un message d'erreur vous signale que, par exemple, "le champ F9 n'existe", cela signifie que le champ n°9 n'existe pas.
Vérifiez que le nombre de colonnes d'Excel correspond bien au nombre de champs de votre tbl
Vérifiez également que les intitulés des en-têtes de colonnes soient identiques aux noms de champs de votre tbl