Bjr,
ayant besoin de compacter une BD j'ai obtenu ce code sur le site de microsoft.
Dim jro As jro.JetEngine
Set jro = New jro.JetEngine
jro.CompactDatabase "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=d:\pvb\nwind2.mdb", _
"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=d:\pvb\abbc2.mdb;Jet OLEDB:Engine Type=4"
Le tout semble correct, sauf que pour une raison ????, j'obtiens une erreur au lancement de ce programme, en effet VB me dit que le chemin (c:\...\...\répertoire où est installé VB6Provider=Microsoft.Jet.OLEDB.4.0;Data Source=d:\nwind2.mdb" est incorrect.
Ma form et mon projet sont pourtant enregistré ailleurs que dans le répertoire d'Install de VB.