D'Excel vers Access (VBA)

Bonjour,

J'ai besoin de vos lumières.

Je précise que j'utilise Access 2010.

Je dois importer cycliquement un fichier Excel contenant 20 onglets dans un fichier Access (1 table (déjà existante) par onglet) et il n'y a pas les en-têtes de colonnes.

Je ne trouve pas comment le faire proprement par VBA. Je me casse les dents. J'utilise souvent "DoCmd.TransferSpreadsheet acImport" pour importer un fichier Excel avec 1 seul onglet mais je n'arrive pas à l'adapter à mon nouveau cas. C'est comme si "TransferSpreadsheet" ne pouvait pas gérer les classeurs à onglets.

Je sais faire des boucles alors je pourrais me contenter d'un exemple avec un seul onglet (ou même un mot clé).

Par exemple l'onglet "catalogue" va dans ma table "catalogue".

J'avoue que je sèche et que cela m'exaspère.

Help please.

Qui sera mon sauveur ?

Bonjour,

Quelques idées à la va vite mais je ne sais pas si elles sont intéressantes ?

Code:

---

1 2	Application.DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel9, nomtable, chemin, False, nomfeuille

---

Si tu veux faire une boucle plusieurs possibilités :
- nommer tes feuilles de cette manière : feuille1 , feuille2 , feuille3
- Utiliser une boucle du genre :

Code:

---

1 2 3 4

For Each Sheet In ActiveWorkbook.Sheets Application.DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel9, nomtable, chemin, False, ActiveSheet.Name Next

---

Au pire , faudrait il utiliser Automation ?

Good luck

Rom

Bonjour,

Merci pour ta réponse. J'ai déjà essayé ta première proposition; en vain.

Je me suis débrouillé en référençant Excel et en ouvrant le classeur pour "lire" directement les cellules. Je ne trouve pas ça très propre mais tant pis.

C'est quand même bizarre qu'un fichier texte ou Excel (avec un seul onglet) puisse être importé avec une seule ligne de code mais qu'il faille utiliser l'automation si le fichier Exel en question à plusieurs onglets...

Je n'ai peut-être pas trouvé la meilleure solution. Je reste à l'écoute.

La logique de la chose, c'est : 1 onglet = 1 table

Si tu sors de ce paradigme (et c'est le cas pour toi, puisque "plusieurs onglets = une table", il faut tripatouiller en VBA).

Si lire cellule par cellule pose pb, tu peux utiliser la méthode suivante

Code:

---

1 2 3 4

pour chacun des onglets importer dans une table tampon suivant copier la table tampon dans la table définitive

---

Yvan

edit : c'est en fait la solution que te proposais lelensois...

Bonjour,

C'est effectivement ce que j'ai fait.

J'ai également inclus des contrôles pour passer de mes "tables tampon" vers mes tables définitives (contrôle de format notamment).

Merci