Insertion multiple dans Access

Bonjour ,
Mon problème est le suivant je parcours un fichier Excel pour insérer les données dans une base Access.

Donc je fais une boucle while et à chaque ligne un insert.
Le problème mon fichier fait 3000 lignes et c'est horriblement long.

Auriez vous une autre idée?

Quand tu fais ça, tu copies TOUTES les lignes, ou tu les sélectionnes (par exemple, tu ne prends pas les trois premières, ou n'importe quel autre filtre) ?

Bonjour

Et importer directement le fichier excel dans access ne serait-il pas plus rapide?

Pierre

Oui, c'est là que je voulais en venir, Pier-Antoine ;)

Non je dois faire un tri dans l'insertion.

J'ai trouver un code qui étais a disposition sur le site.

Le probleme c'est que pour insérer mes 3500 lignes , il me faut pas loin de 40 sec.
Est ce que sa vous parait normal ? ou je peut encore améliorer ?

L'importation prend très peu de secondes, ainsi que les requêtes SQL.

Je te suggère:
1. Importer le fichier tel quel dans une table temporaire
2. Faire ensuite le SELECT INTO avec les mêmes critères que ceux que tu appliques actuellement dans ton code
3. Supprimer la table temporaire

Merci de ton aide ton idée pourrai bien m'aider.

toutefois dans les controles je dois trouver les doublons sur plusieurs colonnes.

Puis la personne qui devra faire cette import ne connais en rien access, il faudrai que j'aumomatise complétement l'insertion et donc jen reviendrai a mon parcours de fichier excel en vba.

Non.
1. L'insertion, s'est UNE ligne de code;
2. Il suffit que tu automatises ta copie de la table temporaire vers la table permanente, grâce au SELECT INTO.
Normalement, une bonne requête SQL peut t'éviter d'avoir des doublons.
--> Idem, UNE ligne de code (l'appel de la requête).
Puis encore UNE ligne de code (appel de la requête), pour supprimer la table temporaire.

Tout est et doit être automatique.
A toi de pondre une bonne requête SQL. ;)

Bonsoir,
Je te propose (à adapter, améliorer et regrouper en une seule procédure je pense, pour ton automatisation) :

1 - Importes le fichier Excel dans Access dans une table temporaire par la commande TransferSpreadsheet :

Code:

---

DoCmd.TransferSpreadsheet acImport, , "TempTable", "C:\...\FichierExcel.xls", True

---

2 - Tu recherches tes doublons dans ta table temporaire par la requête sélection "DonnesDouble" (faisable avec les requêtes trouver doublon):

Code:

---

1 2 3 4

SELECT [TempTable].Nom, Count([TempTable].Nom) AS CompteDeNom FROM TempTable GROUP BY [TempTable].Nom HAVING (((Count([TempTable].Nom))>1));

---

3 - Ensuite tu mets de côté tes données uniques par la requête sélection "Donneunique" (la précédente un peu modifiée) :

Code:

---

1 2 3 4

SELECT TempTable.Nom, Count(TempTable.Nom) AS CompteDeNom FROM TempTable GROUP BY TempTable.Nom HAVING (((Count(TempTable.Nom))=1));

---

Avec de l'effort on doit pouvoir regrouper ces 2 requêtes.

Après tu fais ton INSERT des éléments de ces 2 requêtes absents de ta table initiale par

Code:

---

1 2 3 4

INSERT INTO Tableinit ( Nom ) SELECT Donneunique.Nom FROM Donneunique LEFT JOIN Tableinit ON Donneunique.Nom = Tableinit.Nom WHERE (((Tableinit.Nom) Is Null));

---

et

Code:

---

1 2 3 4

INSERT INTO Tableinit ( Nom ) SELECT DonnesDouble.Nom FROM DonnesDouble LEFT JOIN Tableinit ON DonnesDouble.Nom = Tableinit.Nom WHERE (((Tableinit.Nom) Is Null));

---

Mon exemple suppose qu'on travaille sur un seul champ, si il y en a plusieurs, à adapter.

C'est la réponse à tes 2 posts je pense et normalement ça ne doit pas ramer.

Courage
Mandresy

Et tu sais quoi madefemere, ta solution est tout seulement enorme.Elle correspond exactement a ce que je veux.

Merci Beaucoup, et merci aux autres aussi