Laufzeitfehler 5 FileDateTime

[elvisonline]

Hallo,

aus einer zu öffnenden "2.Datei" hole ich mir per Makro Daten und das Datum dieser "2.Datei". Befindet sich Diese am lokalen Rechner gibt es keine Probleme. Diese "2.Datei"  befindet sich aber grundsätzlich auf einem Sharepoint. Hier erhalte ich einen Laufzeitfehler 5. Debugger auf:  Sheets("blablabla").[D22] = FileDateTime(varDatei)

Ersetze ich varDatei mit dem Netzlaufwerkpfad funktioniert es. Leider ändert sich dieser Pfad ständig.

Vielleicht hat jemand ne Idee - Danke

2016


Code:
Sub SAPholen()


          Dim varDatei As Variant
 
    varDatei = Application.GetOpenFilename()
    If varDatei = False Then
       MsgBox "Der Benutzer hat abgebrochen.", vbInformation
    Else
        MsgBox "Folgende Datei wurde ausgewählt:" & vbCrLf & varDatei '
       Workbooks.Open Filename:=varDatei
       
    Range("A1:AR50000").Select
   Selection.Copy
    Windows("blablabla.XLSm").Activate
    Range("A2").Select
    ActiveSheet.Paste
   Range("I1").Select
   
        Sheets("blablabla").[D22] = FileDateTime(varDatei)
End If

End Sub

[Kuwer]

Hallo,

vielleicht so:

Sub SAPholen()





   Dim varDatei As Variant

   Dim varDate As Variant

   

   varDatei = Application.GetOpenFilename()

   If varDatei = False Then

      MsgBox "Der Benutzer hat abgebrochen.", vbInformation

   Else

       MsgBox "Folgende Datei wurde ausgewählt:" & vbCrLf & varDatei '

      varDate = Workbooks.Open(Filename:=varDatei).BuiltinDocumentProperties(12)

      

      Range("A1:AR50000").Select

      Selection.Copy

      Windows("blablabla.XLSm").Activate

      Range("A2").Select

      ActiveSheet.Paste

      Range("I1").Select

     

      Sheets("blablabla").[D22] = varDate

   End If



End Sub

Gruß Uwe

[elvisonline]

   

Hallo,

danke für die schnelle Hilfe. Jetzt andere Fehlermeldung siehe Anhang. Gruß