VERIFICARE PRESENZA FILE DINAMICO

Question

Ciao a tutti,

non riesco a completare questa macro di controllo se un file dinamico esiste, nella directory devo verificare se il file 2015.xlsm è presente oppure no, per evitare l'errore di debug se non lo trova.

Sub VerificaPresenzaFile()

    Dim Nome As String

    Dim aa As Worksheet

    Set aa = Worksheets("AB1")

    Dim FileInQuestion As String

    Nome = aa.Cells(6, 7).Value ' CELLA G6 CHE CONTIENE IL NOME DEL FILE (2015.xlsm)

    FileInQuestion = Dir("C:\AB\FATTURE\Nome")

  If FileInQuestion = "" Then   ' non trova il file ed esce

     MsgBox "IL FILE NON ESISTE!"

     GoTo FineVerifica

  Else   ' il file esiste e lo apre

      Workbooks.Open Filename:=Nome & ".xlsm", UpdateLinks:=0

  End If

FineVerifica:

End Sub

Grazie

Roberto

Answer 1

Ciao Roberto,

Sempre utilizzando la funzione Dir, prova qualcosa del genere:

'=========>>

Option Explicit

'--------->>

Public Sub VerificaPresenzaFile()

    Dim WB As Workbook, WB2 As Workbook

    Dim SH As Worksheet

    Dim Rng As Range

    Dim sNome As String, sFilename As String

    Dim FileInQuestion As String

    Const sEstensione As String = ".xlsm"

    Const sPercoroso = "C:\AB\FATTURE"

    Set WB = ThisWorkbook

    Set SH = WB.Worksheets("AB1")

    Set Rng = SH.Cells(6, 7)

    sNome = Rng.Value

    sFilename = sPercoroso & sNome & sEstensione

    If Dir(sFilename) <> vbNullString Then

        '// File trovato

        Set WB2 = Workbooks.Open(FileName:=sFilename, _

                                 UpdateLinks:=0)

    Else

        GoTo FineVerifica

    End If

    Exit Sub

FineVerifica:

'// File non trovato

    MsgBox sFilename & " non e' stato trovato"

End Sub

'<<=========

Nota: Vorrei discorragiarti dal uso di AB1 come nome di un foglio in quanto sia un riferimento valido ad una cella su ogni foglio.

===

Regards,

Norman

Answer 2

ciao Roberto,

avevo capito che la cella g6 ( ho anche sbagliato a indicarti le coordinate della cella) contiene il fullPath del file...

siccome contiene solo il nome del file, in questo modo dovrebbe funzionare :

Option Explicit

Private Function fileExists(strFullPath As String) As Boolean

     On Error Resume Next

     fileExists = ((GetAttr(strFullPath) And vbDirectory) = 0)

End Function

Sub VerificaPresenzaFile()

     Dim Nome       As String

     Dim estensione As String

     Dim aa         As Worksheet

     Set aa = Worksheets("AB1")

     Dim fullName   As String

     'Dim FileInQuestion As String

     estensione = ".xlsm"

     Nome = aa.Cells(6, 7).Value ' CELLA G6 CHE CONTIENE IL NOME DEL FILE (2015.xlsm)

     fullName = " "C:\AB\FATTURE" & Nome & estensione

     'FileInQuestion = Dir("C:\AB\FATTURE\Nome")

     If Not fileExists(fullName) Then

          'If FileInQuestion = "" Then   ' non trova il file ed esce

        MsgBox "IL FILE NON ESISTE!"

      'GoTo FineVerifica

     Else   ' il file esiste e lo apre

         Workbooks.Open Filename:=fullName, UpdateLinks:=0

   End If

'FineVerifica:

 End Sub

HTH,

Ciao, Sandro.

Answer 3

Ciao Sandro,

il Path del file è specificato nella riga del codice, FileInQuestion = Dir("C:\AB\FATTURE\Nome")

nella cella G6 è presente il nome del file ( 2014.xlsm, 2015.xlsm ecc. ecc ) Nome = aa.Cells(6, 7).Value

la parola "Nome" ho cercato di attribuirla al nome del file contenuto nella cella G6, ma non ci riesco. 

Grazie

Roberto

Answer 4

Ciao David,

la macro funziona alla perfezione,

ti ringrazio per il suggerimento di evitare di nominare i fogli con indirizzi di cella, in futuro eviterò di farlo.

Grazie

Roberto

Answer 5

ciao roby,

prova in questo modo , se ho capito bene il path del file è contenuto nella cella G7.

ho impostato qualche ' sul codice che ritenevo superfluo.

Private Function fileExists(strFullPath As String) As Boolean

     On Error Resume Next

     fileExists = ((GetAttr(strFullPath) And vbDirectory) = 0)

End Function

Sub VerificaPresenzaFile()

     Dim Nome       As String

     Dim estensione As String

     Dim aa         As Worksheet

     Set aa = Worksheets("AB1")

     'Dim FileInQuestion As String

     estensione = ".xlsm"

     Nome = aa.Cells(6, 7).Value ' CELLA G6 CHE CONTIENE IL NOME DEL FILE (2015.xlsm)

     'FileInQuestion = Dir("C:\AB\FATTURE\Nome")

     If Not fileExists(Nome & estensione) Then

          'If FileInQuestion = "" Then   ' non trova il file ed esce

        MsgBox "IL FILE NON ESISTE!"

      'GoTo FineVerifica

     Else   ' il file esiste e lo apre

         Workbooks.Open Filename:=Nome & estensione, UpdateLinks:=0

   End If

'FineVerifica:

 End Sub

ciao, Sandro.