(26/04/2019, 09:11)comp_wolf yazdı: acaba önce mevcut exel in dosya adresini mi kontrol etse

mevcut Excel derken kast ettiğiniz üzerinde çalıştığınız Excel dosyası ise

Dim StrDosyaAdi As String



StrDosyaAdi = Dir$(CurrentProject.Path & "\*.xlsm")

if StrDosyaAdi <> "" then 

' xlsm varsa yapılacaklar

else

'yoksa yapılacaklar

end if

kodu işinizi görür diye düşünüyorum
"CurrentProject.Path" aktif - o an üzerinde işlem yaptığınız - dosyanızın yolunu gösterir.
açıkçası excelde pek deneyimli değilim ve tam olarak ne yapmak istediğinizi anlamadım galiba.
isterseniz çalışmanızı ekleyin bir bilen elbet çıkar)
iyi çalışmalar