errore di run time "9" indice non incluso nell'intervallo

[alessand...@rentokil-initial.com]

Buongiorno a tutti,
ho questo msg (errore di run time "9" indice non incluso nell'intervallo) in un file sulla riga di activate di un file. Il bello è che ho questo errore solo su un pc...il file gira su vari pc e nessuno mi da questo errore...
Leggendo in rete avevo visto che forse il problema era qui
Windows("prova.xls").Activate e si doveva sostituire con Workbooks in
Workbooks("prova.xls").Activate
ma purtroppo il problema persiste.
Qualcuno può aiutarmi.
grazie anche per dei consigli.
ciao
ale

[Norman Jones]

Ciao Ale,

Il tuo errore suggerirebbe che il file Prova.xls non sia aperto (o, almeno non trovato) nel momento in cui viene eseguito il codice. Inoltre, di solito è inutile e sconsigliabile effettuare selezioni nel codice. Per risolvere il problema, prova a eseguire il codice riportato di seguito due volte: con il file problematica aperto e poi con il file chiuso. A seconda dei risultati di questo test, potresti modificare il tuo codice in modo analogo. Se hai bisogno di più aiuto, posta tutto il codice rilevante in una risposta qui o inviami il codice privatamente.

===
Regards,
Norman

[Norman Jones]

Ciao Ale,

Ho dimenticato il codice!


'===========>>
Sub Prova()
Dim WB As Workbook
Const sPath As String = "C:\Documents\Ale\MyDocuments\" ' <<==== Modifica
Const sFilename As String = "Prova.xls"

On Error Resume Next
Set WB = Workbooks(sFilename)
If CBool(Err.Number) Then
Err.Clear
Set WB = Workbooks.Open(Filename:=sPath & sFilename)
End If
On Error GoTo 0

If Not WB Is Nothing Then
'tuo codice qui
Else
Call MsgBox(Prompt:="Non si trova il file " & sPath & sFilename & "!" _
& vbNewLine _
& "Posta una nuova domanda sul NG!", _
Buttons:=vbCritical, _
Title:="ERRORE")
End If
End Sub
'<<==========