If Dir(ThisWorkbook.Path & "\Tmp.mdb") <> "" Then Kill ThisWorkbook.Path & "\Tmp.mdb"
CurrentDb.Close
objAccess.DBEngine.CompactDatabase CurrentDb.Name, ThisWorkbook.Path & "\Tmp.mdb"
Kill CurrentDb.Name
Name ThisWorkbook.Path & "\Tmp.mdb" As CurrentDb.Name
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question