Re: Aide sur l'article "Importer plusieurs classeurs Excel dans une table Access en VBA"

Langage: Visual Basic
Dim sChemin As String, sFichier As String, varFeuilles As Variant
 
sChemin = Application.CurrentProject.Path & "\DATA"
 
' Liste des feuilles Excel à importer
varFeuilles = Array("Feuill1")
 
sFichier = Dir$(sChemin)
Do While sFichier <> ""
    ' Importation proprement dite
    ImportExcelMulti sChemin & "\" & sFichier, varFeuilles, True, "TBL-" & sFichier
 
    sFichier = Dir$()
Loop