hi fedjo und all ^^
Der Code bewirkrt folgendes
Der Zielordner wird auf existens geprueft
Ist er nicht vorhanden wird eine Ordnerauswahl eingeblendet
Folgend wird die Datei auf existens geprüft
Ist sie nicht vorhanden
Wird augehend vom Zielordner eine Dateiauswahl eingeblendet
einzufuegen am Anfang des Makros
Dim strDatei As String
ersetze
strPfad = "G:\Einkauf\Werbung\Aktionsplanungen PDF\Aktionsplanung" & Date & "_" & Worksheets("Aktionsplanung").Range("W3").Value & "_" & Worksheets("Aktionsplanung").Range("W2").Value
durch(Pfad und Dateiname in den nächst folgenden 2 zeilen korrigieren)
strPfad = "D:\inst\"
strDatei = "Dummy.pdf"
If OrdExists(strPfad) = False Then strPfad = OrdnerAuswahl
If DateiJaNein(strPfad & strDatei) = False Then
ChDir strPfad
strDatei = Application.GetOpenFilename("Pdf-Dateien (*.Pdf), *.Pdf", , "Datei auswählen", , False)
End If
Die Prüffunktionen !
einzufuegen
alt+11/projektexplorer/AllgemeinesModul
Function OrdnerAuswahl() As String
On Error GoTo FehlerRoutine
Dim AppShell As Object
Dim BrowseDir As Variant
Set AppShell = CreateObject("Shell.Application")
Set BrowseDir = AppShell.BrowseForFolder(0, "Ordner auswählen", &H1000, 17)
OrdnerAuswahl = BrowseDir.items().Item().Path & "\"
FehlerRoutine:
End Function
Function OrdExists(strName As String) As Boolean
On Error Resume Next
ChDir (strName)
If Err = 0 Then OrdExists = True
End Function
[code]Function DateiJaNein(Dname As String) As Boolean
On Error GoTo ErrorHandler
If Not Format(FileDateTime(Dname), "ddmmyy") Then
DateiJaNein = True
End If
ErrorHandler:
End Function[/code
Gruss Nighty