Discussion :

[damfury]

Salut la compagnie,

Voulant creer une routine de mise a jour pour ma base de donnees Access, j'aurai besoin de programmer sous vb l'importation d'une feuille quelconque (et pas uniquement la premiere) Excel

J'ai bien essayer d'utiliser ce type de code:

Code :

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

DoCmd.TransferSpreadsheet acImport, 8, "A", (Update), True, ""

Mais cela ne me permet d'importer que la premiere feuille de mon classeur alors qu'en fait il faudrait que j'importe toutes les feuilles qu'il contient.

Le mieux serait meme que je puisse toutes les inserer dans une seul et meme table mais si j'arrivais deja c creer autant de table que j'ai de feuilles je serais content!

Merci d'avance!

PS: j'ai effectuer un max de recherche avant de poster cette question mais je n'ai rien trouve...

[Jean-Philippe André]

bonjour damfury,
bienvenue sur DVP

en lisant une des infos de la
http://access.developpez.com/faq
il est écrit qu'on peut spécifier les zones à importer dans Access :
http://access.developpez.com/faq/?pa...l#ImpFichExcel

Mon petit doigt me dit que si tu passes par une collection de page au préalable, tu devrais pouvoir fair une boucle d'import avec toutes les pages

dans l'idée ca donnerait ceci (non vérifié mais au debug près ):

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Dim xlWbk As Worbook
Dim col As collection
Dim tmpWsh as WorkSheet
Dim i As integer
 
' avec attribution préalable de xlWbk à ton classeur en question
For Each tmpWsh In xlWbk.WorSheets
      Col.Add tmpWsh.Name
Next
 
For i = 0 to Ubound(col)
DoCmd.TransferSpreadsheet acImport, 8, "T_" & col(i),"C:\Fichier.xls", True, "A1:C12" 
Next i

[damfury]

Merci beaucoup pour ta reponse!

Qu'est-ce que tu entends par "attribution préalable de xlWbk à ton classeur en question"???

Desole je suis assez novice en vb!!

D'autant plus que je recupere le chemin de mon classeur par l'intermediaire d'une variable appelee "update".

[pgz]

Bonjour.

C'est dans l'argument 'Etendue' que tu peux préciser le nom de la feuille dans le classeur.

Bon courage,

PGZ

[helas]

True pour prendre en compte les noms de colonnes
si ces noms sont identiques, on peut importer dans une même table
Le nom de la feuille est suivi de !

Code :

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

1
2
3
 
 DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel9, "NomTable1", "C:\dossier\fichierexcel.xls", True, "Feuil1!"
DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel9, "NomTable2", "C:\dossier\fichierexcel.xls", True, "Feuil2!"

[damfury]

Merci a tous pour vos reponses!

Bon pour que cela fonctionne avec une variable qui contient le chemin du fichier c'etait pas complique.

Ca donne ca:

Code :

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

1
2
DoCmd.TransferSpreadsheet acImport, 8, "A", (Update), True, "A!"
DoCmd.TransferSpreadsheet acImport, 8, "B-C", (Update), True, "B-C!"

Maintenant il va me faloir mettre en forme les tables obtenues car les premieres lignes sont inutiles, certaines colonnes le sont aussi et les noms de champs ne sont pas les bons.

Donc je vais essayer de chercher par moi meme mais si vous avez quelques indices a me laisser concernant la mise en forme des bases grace a des instructions VB ne vous genez pas!!!!!

Merci a tous