Sub cmdCompacter_Click ()
sNomBase= "C:\Mes documents\Base.MDB"
sNomBaseTmp= "C:\Mes documents\BaseTmp.MDB"
DBEngine.CompactDatabase sNomBase, sNomBaseTmp '1. Compactage dans une nouvelle base
Kill sNomBase '2. Suppression de la base originale
Name sNomBaseTmp As sNomBase '3. Renommer la base compactée avec le nom de la base originale
End Sub
Cette contribution était de : http://old.wdforge.org/newbb/viewtopic.php?forum=18&topic_id=5562&post_id=22816