Merhaba arkadaşlar macro ile Excel üzerinden buton yardımı ile masa üstünde  C:\Users\YILDIZ\Desktop\  konumunda bulunan YILDIZ_VeriTabanı adlı dosyayı sıkıştır ve onar yapmak istiyorum.
Yardımcı olabilecek olan var mı acaba

aşağıdaki kodu accesse aktarma butonuna ekleyip dener misiniz
            MsgBox "aktarım tamam" satırının hemen üstüne

            AccessCon.Close

'hy__________________________________________CompactRepair

Dim Acc As Object

Set Acc = CreateObject("access.application")

VTAdres = ThisWorkbook.Path & "\"

VTAsli = VTAdres & "YILDIZ_VeriTabanı.accdb"

VTTmp = VTAdres & "TmpSil.accdb"

Acc.DBEngine.CompactDatabase VTAsli, VTTmp

Acc.Quit

Set Acc = Nothing

Kill VTAsli

Name VTTmp As VTAsli

---

eğer kod bağımsız çalışacaksa en üstteki  AccessCon.Close satırı silinip bir butona atanabilir

Hocam kod çalıştı hata vermedi. O zaman demekki sıkıştırma ve onarma yapmıştır.
Çok teşekkür ederim.
Allaha emanet olun.

Rica ederim
İyi çalışmalar