Discussion :

[jslpfasc2]

Bonjour à tous,

j'ai un petit problème d'import pour mes tables avec Access. J'ai dans un répertoire des fichiers Excel (et rien d'autre), et je souhaite les importer dans Access via VBA.

J'ai trouvé sur divers forums et topics comment importer tous les classeurs d'une répertoire dans UNE table. Seulement moi je voudrais une table par classeur.

Voilà mon code, je ne sais pas ce qu'il faut rajouter je suppose que c'est possible non?

Code :

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

1
2
3
4
5
6
7
8
9
Sub import()
ChDir "C:\Users\U47013\Desktop\FormatPivot"
monfichier = Dir("*.*")
On Error Resume Next
  While monfichier <> ""
      DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel12, "Pivot", monfichier, True
      monfichier = Dir()
  Wend
End Sub

Peu importe le nom final des tables Access (je voudrais seulement faire du MySQL dessus et ensuite les rebalancer dans Excel.)

Merci par avance à tous!

[madefemere]

Bonjour,

Incrémenter les noms des tables avec :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Sub import()
DIM i as integer
ChDir "C:\Users\U47013\Desktop\FormatPivot"
monfichier = Dir("*.*")
i=1
On Error Resume Next
  While monfichier <> ""
      DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel12, "Pivot" & i , monfichier, True
      monfichier = Dir()
      i = i+1
  Wend
End Sub

Cordialement,

[jslpfasc2]

Haha génial ça fonctionne!
Merci beaucoup!

Effectivement incrémenter était une bonne idée, j'ai pas l'habitude de manipuler des tables du coup ça m'est pas venu à l'esprit.
En tout cas c'est classe, merci!

[jslpfasc2]

Rebonjour, je me permets de vous demander autre chose, une sorte d'évolution de ma question précédente!

J'essaie d'importer proprement mes petites tables depuis le répertoire où se trouvent les fichiers excel, mais j'aimerais pouvoir définir leur nom comme le nom qu'ils ont dans le répertoire.

Ce code m'importe bien toutes les tables, mais ce nom "pivot 1", "pivot 2", etc.. ne me permets pas de les traiter derrière.
Dans le répertoire, les fichiers s'appellent "Pivot 2013-06-30", "Pivot 2013-12-31", etc... Je voudrais que les tables importées portent le même nom. (Je suis conscient qu'on peut le faire à la main mais le but est de simplifier la procédure au maximum pour un utilisateur tiers). Mais impossible d'invoquer des fonctions comme "Worksheets("blabla").Name" dans VBA Access du coup je suis complètement bloqué. Pensez-vous qu'il existe un moyen?

Merci beaucoup pour toute réponse.