Discussion :

[techinfo37]

Bonjour à tous.
Après de longues recherches infructueuses je me tourne vers vous.
Je dois construire une base données sous access 2003: c'est dire importer un fichier (devrais je dire un classeur) excel comportant beaucoup d'onglets (feuilles de calculs).
lorsque je lance l'importation de ce fichier pour crée une unique table, j'ai un message d'access me demandant de sélectionner un seul onglet et de créer autant de table que d'onglet.
Access offre t il la possibilité de tout importer sur une seule table?
En espérant que quelqu'un à pu déjà résoudre ce problème et d'avoir été suffisament clair.
Merci d'avance.

[Didier L]

Bonsoir,

Pourquoi une seule table ?
Tous les tableaux ont la même structure dans chaque feuille?

Même si c'est le cas ce ne peux pas être une évidence pour lui!
Il vaut mieux récuperer chaques feuilles séparément quitte à les réassemblés si leurs structures sont identiques!

[techinfo37]

Oui exactement dans chaque feuille il y a le même tableau, cest pour cela que je veux éviter de créer pour chaque feulle une table, si c'est pour ensuite les réassembler.

[Didier L]

Après quelques tests, je ne vois pas d'autre solution pourtant!

[techinfo37]

Mince alors!
Donc je vais être obliger de crées 28 tables!!
Une derniere chose : une fois ces 28 tables créées, est ce qu'il faut ensuite tout simplement que je lie toutes les tables entre elles ou y a t'il une meilleur façon de faire??? (sachant que le postulat de départ était de n'avoir qu'une seule table pour qu'ensuite avec l'aide d'un formulaire "saisie de mise à jour" cela renseigne ma table quotidiennement). Si je reste sur cette idée comment avec ce formulaire vais je pouvoir renseigner toutes mes tables?
Je te remercie d'avance d'avoir pris le temps de m'apporter ces réponces.

[Maxence HUBICHE]

Voici un petit bout de code, pour t'orienter, partant du principe que :
- le fichier XL (classeur1.xls) est à côté de la base, dans le même répertoire
- je n'importe que 3 feuilles
- je sais qu'il y a 5 colonnes (de A à E) mais j'ignore le nombre de lignes
- que la table existe déjà ou pas, je dois ajouter les données dans la table 'MaTable'

Ca marche très bien chez moi

à toi !

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub ImportXL()
    Const MyFile        As String = "Classeur1.xls"
    Dim strSheets(2)    As String
    Dim lngImport       As Long
    Dim strFile         As String
        strSheets(0) = "Feuil1"
        strSheets(1) = "Feuil2"
        strSheets(2) = "Feuil3"
    strFile = CurrentProject.Path & "\" & MyFile
 
    For lngImport = LBound(strSheets) To UBound(strSheets)
        DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel9, "MaTable", strFile, True, strSheets(lngImport) & "!A1:E65535"
    Next
End Sub

[techinfo37]

Bonjour et merci encore pour ton aide Maxence.
Désolé de ne pas avoir pu répondre plutôt.
Excuse moi mais j'ai une connaissance tres faible au sujet des codes. j'ai bien compris le principe mais où dois je insérêt ce code (dans une requête création de table?) sachant que dans ton exemple la table n'est pas forcément créer et que tu lui demande d'y ajouter des données.
Je suis perdu.