Controlla se la trovi ... se non la trovi dammi un alert

[scanacc]

Adesso se inserisco il nome giusto nella cella 1,1 funziona tutto ma vorrei venisse fuori un messaggio nel caso in cui nella cella 1,1 sbagliassi qualcosa. Adesso infatti ovviamente mi da debug
Chi mi da una mano?
Grazie

Codice: Seleziona tutto

Sub PASQUINELLI_Apro_copio_chiudo()

'
' Macro1 Macro
'
    Application.ScreenUpdating = False
    Dim rng As Range, bk As Workbook


    ' Apro il foglio il cui nome è indicato nella cella H1
    Set rng = Worksheets("STRINGA PASQUINELLI").Cells(1, 1)
    If (Trim(rng.Value) <> "") Then
        Set bk = Workbooks.Open("C:\NEXT GENERATION\STRINGHE\" & rng.Value)


    Range("A2:BA50").Select
    Selection.Copy


    ThisWorkbook.Activate

   
    'APRO STRINGA PASQUINELLI
    Sheets("RM").Select
    Sheets("STRINGA PASQUINELLI").Visible = True

    Sheets("STRINGA PASQUINELLI").Select
    Range("A2").Select
    ActiveSheet.Paste
    Range("A1").Select
   
    'CHIUDO STRINGA PASQUINELLI
    Sheets("STRINGA PASQUINELLI").Select
    ActiveWindow.SelectedSheets.Visible = False
   
    Application.DisplayAlerts = False
    bk.Close SaveChanges:=False

    End If
    Application.ScreenUpdating = True
'
End Sub


[Anthony47]

Insomma vorresti un messaggio per gestire l'errore di apertura del file?

Il modo piu' spiccio e' tramite la gestione con On Error:

Codice: Seleziona tutto

    If (Trim(Rng.Value) <> "") Then
        On Error Resume Next
            Set bk = Workbooks.Open("C:\NEXT GENERATION\STRINGHE\" & Rng.Value)
        If bk.Name = ThisWorkbook.Name Then
            MsgBox ("Errore nell'apertura del file:" & vbCrLf _
              & "C:\NEXT GENERATION\STRINGHE\" & Rng.Value & vbCrLf _
              & "L'operazione viene abortita")
        End If
        On Error GoTo 0
        Range("A2:BA50").Select
        'il codice continua


Prova e fai sapere...

[scanacc]

L'alert viene fuori correttamente ma quando clicco su OK per chiuderlo viene un debug che evidenzia in giallo questa parte di macro

Codice: Seleziona tutto

bk.Close SaveChanges:=False

[Anthony47]

[usando il codice che hai suggerito] L'alert viene fuori correttamente ma quando clicco su OK per chiuderlo viene un debug che evidenzia in giallo questa parte di macro
[....]

E ci credo... Manca una istruzione!

Codice: Seleziona tutto

        If bk.Name = ThisWorkbook.Name Then
            MsgBox ("Errore nell'apertura del file:" & vbCrLf _
              & "C:\NEXT GENERATION\STRINGHE\" & Rng.Value & vbCrLf _
              & "L'operazione viene abortita")
            Exit Sub                                             '<<< Mancava!
        End If


Ciao

[scanacc]

Grazie Anthony!!!