ağdaki dosyaya veri yazma

[acar6783]

Merhaba arkadaşlar,

ağda açık olan bir dosyaya.

Sub yaz()

Workbooks(ThisWorkbook.Path & "deneme2").Sheets("sayfa1").Range("a1") = "deneme"


End Sub

Bu kodlarla yazmayı denedim fakat olmadı .
Nasıl yapabiliriz?

 

[acar6783]

Çözümü olmayacağını sanmıyorum ama ne hikmetse tüm araştırmalarıma rağmen cevabımı bulamadım

 

[PLİNT]

Merhaba
Dosya açıksa; şöyle denedinizmi?

 Workbooks("DENEME2").Sheets("sayfa1").Range("a1") = "deneme"

 

[acar6783]

Bu şekilde dosyaların ikisinin de aynı pcde açık olması gerekir.

Fakat benim ihtiyacım Ağdaki pcde açık olan bir dosyaya veri yazmak.