Dosya yolu hatası

[meslek5]

Hocamlarım aşağıdaki kodda dosya yoluna resim yolunu da eklerken bir hata yapıyorum. Araya birşey eklemem gerekiyor ama ne denediysem olmadı.

resimyol = Sheets("Sayfa1").Range("D42").Value & ".jpg"
DosyaYol = Environ("USERPROFILE") & "\Desktop\resimyol"

 

[cems]

Deneyin

Dim resimyol As String
Dim DosyaYol As String

' Sayfa1'deki D42 hücresindeki resim adını al
resimyol = Sheets("Sayfa1").Range("D42").Value & ".jpg"

' Kullanıcının masaüstü yolunu ve resim adını birleştir
DosyaYol = Environ("USERPROFILE") & "\Desktop\" & resimyol

' Dosya yolunu ekrana yazdırmak için (test amaçlı)
Debug.Print DosyaYol

 

[meslek5]

Deneyin

Dim resimyol As String
Dim DosyaYol As String

' Sayfa1'deki D42 hücresindeki resim adını al
resimyol = Sheets("Sayfa1").Range("D42").Value & ".jpg"

' Kullanıcının masaüstü yolunu ve resim adını birleştir
DosyaYol = Environ("USERPROFILE") & "\Desktop\" & resimyol

' Dosya yolunu ekrana yazdırmak için (test amaçlı)
Debug.Print DosyaYol

Hocam çok teşekkür ederim.