errore su DIR

[ABRAMO48Partecipante ABRAMO48 Karma: 1 pt]

'
    Set MM = Workbooks("LOGISTA_MACRO.xls").Worksheets("MACRO")
    Set AA = Workbooks("LOGISTA_ARTICOLI.xls").Worksheets("ARTICOLI")

    Call X_MSG_ini("", "AZZERA PROGRESSIVI")
    
    Call X_MSG_ese("Controllo Esecuzione ...")
    
' *** NON ESEGUIRE SE PROGRESSIVO DAL NON INSERITA
If MM.Cells(22, "Q") = AA.Cells(7, "M") Then
    Call X_MSG_err("NUOVA DATA PROGRESSIVO NON INSERITA")
    End
End If

    PERCORSOX = MM.Range("A34")
    PERCORSOY = MM.Range("A35")
'*** NON ESEGUIRE SE CALCOLO_C PRESENTE
    On Error GoTo NO_CC
If Dir(PERCORSOY & "ORDINE_CALCOLO.xls") <> "" Then
    On Error GoTo 0
    Call X_MSG_err("CALCOLO_C PRESENTE")
    End
End If
NO_CC:
    On Error GoTo 0
'*** NON ESEGUIRE SE CALCOLO_O PRESENTE
    On Error GoTo NO_CO
If Dir(PERCORSOX & "ORDINE_CALCOLO.xls") <> "" Then
    On Error GoTo 0
    Call X_MSG_err("CALCOLO_O PRESENTE")
    End
End If
NO_CO:
    On Error GoTo 0
    
If MsgBox("Sei SICURO?", vbDefaultButton2 + vbOKCancel, "AZZERA PROGRESSIVI") <> 1 Then
    MM.Range("G14") = 0
    End
End If

    Call X_MSG_beg("AZZERA PROGRESSIVI", "", 30)
End
    Call A_CANCELLA
    
    DAL = MM.Cells(22, "Q")
    
    AA.Unprotect
    
' *** AZZERA PROGRESSIVO
    AA.Range("M6") = DAL
    AA.Range("M7") = DAL
    AA.Range("M11") = 0
    AA.Range("M11").AutoFill Destination:=AA.Range("M11:M410")
    
' *** AZZERA PROGRESSIVO SETTIMANA PRECEDENTE
    Range("BW6") = DAL
    Range("BW7") = DAL
    AA.Range("BW11") = 0
    Range("BW11").AutoFill Destination:=AA.Range("BW11:BW410")
    
' *** AZZERA PROGRESSIVO GIORNO PRECEDENTE
    Range("EA6") = DAL
    Range("EA7") = DAL
    AA.Range("EA11") = 0
    Range("EA11").AutoFill Destination:=AA.Range("EA11:EA410")
    
    AA.Protect
    
      Call X_MSG_end("AZZERA PROGRESSIVI", "", "", 30)
'
End Sub

Sapreste dirmi perché se sulla seconda DIR se ORDINE_CALCOLO non è presente mi da errore di "dispositivo non disponibile"?

se invece ORDINE_CALCOLO è presente in PERCORSOX allora il programma gira correttamente (e cioè esce con messaggio perché ORDINE_CALCOLO è presente in PERCORSOX.

[patelModeratore patel Karma: 51 pts]

impossibile rispondere senza disporre del file, il percorso è in una cella

[Autore]

Articoli