tramite la macro sotto riportata >> apricalcolatrice_mia
apro un altro file excel >> calcolatrice_V2_1.xlsm
a condizione che questo si trovi nella stessa cartella
del file su cui sto operando .
SE il file e' gia aperto un msg box mi avvisa.
fin qui tutto ok , la macro funziona bene.
nel caso il file calcolatrice... NON e' nella stessa caertella
mi va ovviamente e giustamente in errore.
vorrrei aggiungere un mesg box che mi indica:
il file non e' disponibile non presente
-------------------------------------
la macro attuale:
- Codice: Seleziona tutto
Option Compare Text
Private Function FileAperto(pathNomeFile As String) As Boolean
On Error Resume Next
Open pathNomeFile For Binary Access Read Write Lock Read Write As #1
Close #1
If Err.Number <> 0 Then
FileAperto = True
Err.Clear
End If
End Function
Sub apricalcolatrice_mia()
Dim nomeFile As String
'-------------------------------------------
' per funzionare questa macro necessita
' anche della parte sopra
' ---> Private Function FileAperto(pathNomeFile As String) As Boolean ecc...
'-------------------------------------------
percorso = Application.ActiveWorkbook.Path
nfile = "\" & "calcolatrice_V2_1.xlsm"
nomeFile = percorso & nfile
If FileAperto(nomeFile) = True Then
MsgBox "File già aperto !"
Else
Application.Workbooks.Open percorso & nfile
End If
End Sub
vi ringrazio