Merci pour le conseille
En faite j'ai fais ce que tu m'as dit mais j'ai roncontrer 2 probléme
- apres l'avoir enregistere je ne peut toujours pas l'executer
- la macro que j'utilise necessite une librairy access
pour plus de detaille je te la met si jointe
Option Compare Database
Option Explicit
Const TableFileName As String = "Fichiers_Chemins"
Public Sub LOAD_FILES()
Const col_File = 0
Const col_Table = 1
Const col_Spec = 2
Const col_Path = 4
Dim strSql As String
Dim varReturn As Long
DoCmd.SetWarnings False
With CurrentDb.OpenRecordset(TableFileName)
' On efface toutes les tables avant le chargement
varReturn = SysCmd(acSysCmdSetStatus, strDeleting)
Do While Not .EOF
If .Fields("Enable" ) = True Then
DoCmd.RunSQL ("DELETE FROM " & .Fields(col_Table))
End If
.MoveNext
Loop
' On charge les tables
.MoveFirst
DoCmd.SetWarnings True
Do While Not .EOF
If .Fields("Enable" ) = True Then
varReturn = SysCmd(acSysCmdSetStatus, "Loading: " & .Fields(col_Path) & .Fields(col_File))
If .Fields(col_Spec) <> strExcelSpecification Then
DoCmd.TransferText acImportFixed, .Fields(col_Spec), .Fields(col_Table), .Fields(col_Path) & .Fields(col_File), False
Else
DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel97, .Fields(col_Table), .Fields(col_Path) & .Fields(col_File), True
End If
End If
.MoveNext
Loop
End With
varReturn = SysCmd(acSysCmdSetStatus, strSuccessLoading)
DoCmd.SetWarnings True
End Sub