' Définir le chemin d'accès à la base
sPath = "G:\Techni\EWData70TSE\_2012.450\"
' Définir le nom de la base
sBase = "EW_3003.MDB"
' Ouvrir la base en tant que nouveau classeur
Workbooks.OpenDatabase Filename:=sPath & sBase, _
CommandText:=Array("EW_3003"), CommandType:=xlCmdTable, ImportDataAs:=xlTable