Schleifenproblem in Excel und Word

[pinocc]

Hi,

durch ein Projekt versuche ich über eine Excel-Basisdatei ein paar zusätzliche Dokumente (.xls und .doc) anzusteuern und auszudrucken/speichern/archivieren etc.

In diesem Forum bin ich schon mit einigen großartigen Lüsungsversuchen bombadiert worden. Leider habe ich in diesem Projekt noch ein weiteres Problem...

Problem: Da die vielen Zusatzdateien, die durch das Basisdokument gesteuert werden (Word+Excel) nicht gleichzeitig ausgedruckt werden, sondern erst nach Button_click, gibt es Probleme mit meiner Syntax:

Sub ComandButton6_Click()

pfad = "D:\Briefax\"
Endung = ".xls" 'oder .doc
pfad2 = Cells(24,2) 'Variabler Inhalt aus basisdatei als Speichernamen
pfad3 = Cells(7,2)

Dim appWD As Object
Set appWD = GetObject(Zusatzdatei1) 
appWD.PrintOut
  On Error GoTo ordner erstellen
  ChDir "D:\Birefax\" & Cells(7,2)
  GoTo weiter_im_Text
Ordner_erstellen:
  MkDir „D:\Briefax\“ & Cells(7,2) 
weiter_im_text:
  datei = pfad & pfad3 & „\“ & pfad2 & Endung
  appWD-SaveAs Filename:=datei

appWD.Close
Set appWD = Nothing
End Sub

Falls der Ordner bereits existiert, und evtl. die Datei (= pfad & pfad3 & „\“ & pfad2 & Endung) auch schon excistiert, fragt er natürlich, ob die Datei überschrieben werden soll. Leider springt er nach "OK" oder "Nein" zurück auf Ordner_erstellen, und will einen Ordner erstellen. Das ist natürlich so nicht möglich - ein Bug.

Warum das? Gibt es dafür irgendeine Lösung? Sowie die erste Zusdatzdatei gedruckt (also auch gespeichert) wurde, können die anderen Zusatzdateien nicht mehr in diesen Ordner gespeichert werden - bzw. gibt es eine Fehlermelung...

Danke schon mal vorab für Eure Info.

Pino.

PS: dieses Thema habe ich "outsourced" da ich denke, dass es zu dem anderen Kontext in meiner anderen Frage nicht mehr passte...