MACRO CHE NON VOGLIO FARLA PARTIRE SE ...

[scanacc]

In pratica non vorrei che la Macro partisse se il file PROVA.xls (che è scritto in A1 per intero 'C:\DOCUMENTI\PROVA.xls)
non è presente in 'C:\DOCUMENTI\.

Mi spiego
Eseguo la Macro e questa, prima di partire, controlla se il file PROVA.XLS è presente in 'C:\DOCUMENTI\
Se è presente la esegue, altrimenti no.
Tra parentesi non mi dispiacerebbe desse un messaggio di errore tipo "FILE NON TROVATO"
Grazie di esistereeeee

[karug64]

Puoi provare inserendo, ad inizio macro, le seguenti istruzioni:

Codice: Seleziona tutto

If Dir(ActiveSheet.Cells(1, 1).Value) = Then
    MsgBox "File non trovato !!"
    Exit sub
End If

Ciao.

[scanacc]

provo e ti faccio sapere

[scanacc]

Niente da fare mi da "errore di compilazione"
Ma la devo mettere subito all'inizio vero?
Dopo in Sub per intenderci ... giusto?

[karug64]

Niente da fare mi da "errore di compilazione"
Ma la devo mettere subito all'inizio vero?
Dopo in Sub per intenderci ... giusto?

Si.
Ma la macro da dove la lanci ? Dal foglio stesso o da un altro foglio ?

[Anthony47]

M fate sentire inutile, certo sono latitante

Ovviamente manca qualcosa:
If Dir(ActiveSheet.Cells(1, 1).Value) = "" Then

Pero', per evitare equivoci su cosa mettere in A1, io userei:

Codice: Seleziona tutto

myF = Dir("C:\DOCUMENTI\PROVA.xls")
If myF = "" Then
    MsgBox ("File non trovato")
Else
    Call MiaMacro
End If

Ciao

[scanacc]

funziona

[scanacc]

SI funziona ma quando in A1 metto C\DOCUMENTI\PROVA.xls
mi viene file non trovato e invece c'è.

Codice: Seleziona tutto

Sub Macro5()
If Dir(ActiveSheet.Cells(1, 1).Value) = "" Then
    MsgBox ("File non trovato")
Else
    Range("b1") = "esiste"
End If
End Sub

Come posso fare?

[scanacc]

ULTIMORA FUNZIONA