Ich finde die einfachste Lösung im Moment nicht.
Vom Server (O:) soll die Datei Material.xlsm kopiert werden und beim User auf C: die vorhandene Material.xlsm ersetzen.
Vielen Dank für eure Hilfe
Sub Hugo()
Dim objWB As Workbook
Dim strSourceFile As String, strTargetPath As String
strSourceFile = "C:\Hugo 2010\Hugo\Material.xlsm" 'Pfad der Datei
strTargetPath = "D:\Hugo 2010\Material.xlsm" 'Speicherpfad
Set objWB = Workbooks.Open(strSourceFile)
objWB.SaveAs strTargetPath
objWB.Close
End Sub