Makro word dosyası gönderme

[muyat]

İşyerimde birlikte kullanmak üzere geliştirdigim basit bir makrolu bir excell programı var.Program sayesinde bazı word dosyalarını maille hızlı gönderiyorum.Buraya kadar sorun yok.
Yapmak istedigim şey şu:
Burda herkesin bilgisayarı kendi kullanıcı adıyla kayıtlı.Yani herkes admin değil..
Hal böyle olunca da şöyle bir problem çıkıyor.
Örnegin bir word dosyasını bu program sayesinde gönderebilmem için makroların yazılı oldugu kısma girip, kişinin o dosyanın yerini aşagıdaki gibi belirtmesi gerekiyor.
Dosyamız da hakan korkmaz isimli kişinin masaüstünde evraklar klasöründeki "başvuru evrakları"isimli dosya diyelim.
Bu nedenle aşagıdaki gibi tanımlamamız gerekiyor.
myAttachments.Add "C:\hakan.korkmaz\Desktop\evraklar\basvuru evrakları.docx"

Dosyayı herkes kendi masaüstünde bu şekilde evraklar isimli klasörde sakladıdıgını kabul edersek ben şunu yapmak istiyorum
Örnegin bir hücreye mesela sayfa1 deki a5 isimli hücreye bu programı kullanacak kişi kendi adını soyadını arada nokta olcak şekilde yazacak.Örnegin ahmet.yilmaz "gibi.
Sonrasında makro çalıştıgında yukarda"hakan.korkmaz" yazan yer "ahmet.yilmaz "olarak değişcek..Böylelikle program çalışacak.
Ben bunu yapabiliyorum ama program çalışmıyor hata veriyor...
Şu şekilde yaptıgım zaman çalışmıyor
myAttachments.Add "C:\Users\Sayfa1("A5").Value\Desktop\evraklar\basvuru evrakları.docx"

Ama aşagıdaki şekilde yapınca çalışıyor.
myAttachments.Add "C:\Users\ahmet.yilmaz\Desktop\evraklar\basvuru evrakları.docx"
Fakat ben tek tek herkesin bilgisayarından makro ekranını açıp word dosyasının bulundugu yeri yani nesne adını tek tek yazmak istemiyorum.Bunu nasıl yapabilirim?

 

[muratboz06]

Aşağıdaki kodu dosyanızda çalıştırın. Kullanıcı adını sizin istediğiniz şekilde vereceğini düşünüyorum.
Eğer aşağıdaki kod istediğinizi verirse;
myAttachments.Add "C:\Users\Sayfa1("A5").Value\Desktop\evraklar\basvuru evrakları.docx" satırını
myAttachments.Add "C:\Users\" & Environ$("UserName") & "\Desktop\evraklar\basvuru evrakları.docx" olarak değiştirin.

Sub UserName()
    Msgbox Environ$("UserName")
End sub

 

[muyat]

Çok teşekkür ederim