Discussion :

[Alex020181]

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 ?

[lelensois16]

Bonjour,

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

Code :

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

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 :

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

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

[Alex020181]

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.

[ypicot]

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 :

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

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...

[Alex020181]

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