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?
Peu importe le nom final des tables Access (je voudrais seulement faire du MySQL dessus et ensuite les rebalancer dans Excel.)
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
Merci par avance à tous!![]()
Partager