controllo file aperto



  • controllo file aperto
    di mark (utente non iscritto) data: 06/10/2014 14:40:13

    Ciao a tutti,
    avrei bisogno di un'istruzione per controllare se nel momento in cui voglio aprire un file per modificarlo tale file è già aperto.
    Nel caso in cui sia aperto devo aspettare 2 secondi e poi riprovare ad aprirlo... vi ringrazio ragazzi!



  • di Grograman data: 06/10/2014 14:48:29

    Ciao!

    Una possibile soluzione:
     
    Option Explicit
    
    Sub apriomeno()
      Dim wb As Workbook
      Set wb = Application.Workbooks.Open("percordoenomefile")
    
      If wb.ReadOnly Then
        wb.Close
        Set wb = Nothing
        Application.Wait (Now + TimeValue("0:00:10"))
        Set wb = Application.Workbooks.Open("percordoenomefile")
      Else
        ''cosa fare se non è aperto
      End If
      
      Set wb = Nothing
    End Sub
    



  • di mark (utente non iscritto) data: 07/10/2014 09:07:23

    ti ringrazio sei stato gentilissimo!!!!