Bonjour à toutes et tous.
Voila...
J'ai un fichier Excel avec "X" table. X etant variable d'une journée à l'autre.
Y a t'il un moyen de pouvoir importer dans access, dans une seul table, toutes les tables de ce fichier excel et cela en "automatique"?
Merci d'avance pour votre aide.
Anthony
toutes tes tables ont le même format ?
sinon par copier-coller => https://support.microsoft.com/fr-fr/...d-51fc9180f411
De manière automatique, il faudrait savoir quel serait le déclencher de l'action, mais je pense que ça devrait passer par une macro (après, les données ne pourraient pas être saisies directement dans la base access ?)
Bonjour,Les tables excel ont toutes le même formatumfred
toutes tes tables ont le même format ?
sinon par copier-coller => https://support.microsoft.com/fr-fr/...d-51fc9180f411
De manière automatique, il faudrait savoir quel serait le déclencher de l'action, mais je pense que ça devrait passer par une macro (après, les données ne pourraient pas être saisies directement dans la base access ?)
De manière automatique avec un déclenchement par un bouton.
Dans ce cas-là, il faudrait une macro (qui peut-être côté access ou côté Excel je pense) pour faire le job.Envoyé par anthonydu62
Et tu aurais une solution car pour moi les macros sous access je ne connais pas.Dans ce cas-là, il faudrait une macro (qui peut-être côté access ou côté Excel je pense) pour faire le job.
Comment fait-on une macro pour importer, je n'ai jamais fait.
J'ai trouvé la solution! je partage pour information
Code HTML:Private Sub Commande0_Click() ' PLUISIEURS feuilles Excel à importer. Le nom des feuilles dans excel sont: Table 1, Table 2, Table 3,... DoCmd.SetWarnings False Dim x As String 'Je ne veux importer que les feuilles 8 à 88! x = 8 'première feuille à importer recalcul: DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel9, "Matable", "grandlivre.xlsx", False, "Table " & x & "!" 'importe la Table 8... x = x + 1 'incrémante x If x > 88 Then 'vérifie la valeur de la feuille, si > 88 GoTo fin Else GoTo recalcul End If fin: MsgBox "fini" DoCmd.SetWarnings True End Sub
