Makro in andere Mappe starten
Mister
ich weiß, dass viel über dieses Thema geschrieben wurde aber ich habe für mein Problem keine passende Lösung gefunden. Hier das Problem:
Ich möchte aus meiner Datei heraus eine andere Datei in das gleiche Verzeichnis kopieren, die erste Datei soll geschlossen, die zweite geöffnet und in der zweiten Datei soll das Makro "UpdateApplication" gestartet werden. Hier mein Code:
Sub CopyUpdatedFile()
Dim Datei2 As String
Quelle = "I:\Info-Dienstplanorganizer\2012\"
Quelle = Quelle + Sheets("PDF").Range("A11")
Ziel = ThisWorkbook.Path & "\" & Sheets("PDF").Range("A11")
FileCopy Quelle, Ziel
MsgBox " Die neue Datei wurde erfolgreich kopiert!" , vbOKOnly + vbInformation, "Ich habe _
fertig"
Application.EnableEvents = False
Workbooks.Open Ziel
Application.EnableEvents = True
Application.DisplayAlerts = False
ThisWorkbook.Saved = True
ThisWorkbook.Close
Application.DisplayAlerts = True
Datei2 = "'" & ActiveWorkbook.Name & "'" & "!UpdateApplication"
Application.Run Datei2
End SubDanke und Gruß
Martin