wer so anfängt....
Ich, wie sollte es auch anders sein, benötige mal wieder Hilfe.
Ich bin auch für einen Link dankbar der das Thema schon hatte, allerdings wollen die meisten Menschen mehr als ich.
Ich möchte per klick auf einen Button aus einem Ordner die jüngste PDF Datei finden und öffnen, fertig. Nicht noch irgendwo hin kopieren speichern o.ä. nichts nur öffnen mit dem PDF Programm.
Folgenden Code habe ich gefunden der das alles macht außer es mit Adobe zu öffnen. Er öffnet es einem Excel Blatt.
Sub DateiLetztesSpeicherdatum()
Const strPath As String = "F:\Archiv\AbteilungII\"
Dim strFile As String, strFile2Open As String, dteFile As Date, dteLast As Date
strFile = Dir$(strPath & "*.pdf")
If strFile "" Then
Do
dteFile = FileDateTime(strPath & strFile)
If dteFile > dteLast Then
strFile2Open = strFile
dteLast = dteFile
End If
strFile = Dir$
Loop Until strFile = ""
Workbook.Open strPath & strFile2Open
Else
MsgBox "Keine Daten im Archiv"
End If
End Sub
Der Chef soll einfach per klick auf die "Letzte Meldung der Abteilung" zugreifen.
Vielen Dank schon im vorraus.
Ich bau schon lange und viel mit VBA und liebe es, lebe aber nur von Euren von mir geklauten Codes da ich mir kaum einen merken kann.
Danke
Grüße Mischa