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
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen