[VBA] Conserver l'ordre du fichier excel lors de l'importation vers une table ACRésolu

Question

Bonjour,



Je rencontre un petit bug lors de l'importation d'un fichier excel vers ma base de donn&#233;es ACCESS.

Mon fichier excel ne contient qu'une colonne. Cette colonne est tri&#233;e
dans un ordre bien pr&#233;cis et je souhaite le conserver lors de
l'importation dans ma table (qui est vide). Je lis donc ma feuille
excel &#224; partir de la premi&#232;re ligne et j'ins&#232;re au fur et &#224; mesure dans
ma table.



Mon code :

        

For i = 1 To (m + 1)

Worksheets("Feuil1").Select

nom = "'" & xl.Cells(i, 1).Value & "'"

DoCmd.SetWarnings False

MySQL = "INSERT INTO Listeexport([taxon])"

MySQL = MySQL + " VALUES(" & nom & ")"

DoCmd.RunSQL MySQL

DoCmd.SetWarnings True

Next





Le probl&#232;me c'est que lorsque j'importe ma colonne les &#233;lements sont
bien &#224; la suite les uns des autres dans le bon ordre seulement le point
de d&#233;part est al&#233;atoire.

Je m'explique :



si dans ma feuille excel j'ai les &#233;l&#233;ments: a b c

je vais obtenir dans ma table l'ordre : b c a ou bien c a b .....



Pourtant ma boucle d&#233;bute bien &#224; la premi&#232;re ligne de la feuille excel.

Sur mes nombreux essais je n'ai r&#233;ussi &#224; obtenir qu'une seule fois la table correcte sans modifier mon code.



Et sinon j'en profite pour poser une autre petite question : Est-il
possible d'ins&#233;rer un &#233;l&#233;ment dans une table &#224; une ligne bien pr&#233;cise ?



Comment faire pour corriger ce probl&#232;me ?

Merci,

Seb.

mad_kad · Accepted Answer

Moi j'ai une meilleur solution. Tu as cas créer une macro Transfertbasededonnée puis de bien configurer ta macro en indiquant la destination de ton fichier excel et le nom de la table de reception.

Ninette08 · Answer

doCmd.TransfertSpreadSheet acImport,,"Table Access","C:	oto.xls",0 

Ninette

Ninette08 · Answer

doCmd.TransfertSpreadSheet acImport,,"Table Access","C:	oto.xls",0 

Ninette

Ninette08 · Answer

doCmd.TransfertSpreadSheet acImport,,"Table Access","C:	oto.xls",0 

Ninette

cokinoumasterflash · Answer

Bonjour,



Merci pour vos r&#233;ponses. D&#233;sol&#233; de r&#233;pondre si tard j'ai eu des
probl&#232;mes de connexion. Finlament j'ai gard&#233; la premi&#232;re solution &#224;
savoir de passer par une macro. C'est ce qui marche le mieux pour le
moment.



A plus,

Seb.