PDF Dokument öffnen, egal wie es heisst?

[daolix]

Es passiert nix wenn die Datei nicht vorhanden ist. Dein Modul als auch die Sub (mit der zusätzlichen Dir-Zeile) funktionieren jedenfalls. Ob du nun Followhyperlink oder dein Modul verwendest ist für das nicht funktionieren bei dir nicht ausschlaggebend.

Aber evtl passiert ja so etwas bei dir:

Code [Auswählen] Erweitern

Private Sub Befehl4_Click()

    Dim Pfad As String
    Dim sFile As String
    Pfad = "P:\data\bureau dlt1\CFL CRM T1\SNCF\RT- Liste- Affichage\RT\"
    sFile = Dir$(Pfad & "RT1301*.pdf")
   
    If Len(sFile) > 0 Then
         DateiOeffnen "open", Pfad & sFile, 3
    else
         MSGBOX "Keine Datei mit dem Muster RT1301*.pdf vorhanden,,"Fehler"
    end if
End Sub


[MzKlMu]

Hallo,
hier mal noch ein Vorschlag für das abklappern wenn kein Dateiname bekannt ist.

Code [Auswählen] Erweitern

Private Sub Befehl0_Click()
Dim Dateiname As String
Dim Pfad As String
Pfad = "P:\data\bureau dlt1\CFL CRM T1\SNCF\RT- Liste- Affichage\RT\"
   Dateiname = Dir(Pfad)
   While Dateiname <> ""
       FollowHyperlink Pfad & Dateiname
       Dateiname = Dir
   Wend
End Sub
Es werden nacheinander in jeweils einem Fenster alle Dateien mit der der Endung zugeordneten Anwendung geöffnet.
Ist keine Datei vorhanden, wird auch nichts geöffnet.

[wuffwuff2003]

So das hat jetzt funktioniert, Danke Zum Glück gibt es dieses Forum