Apertura file se si verifica una condizione

Question

Buongiorno a tutti, volevo un chiarimento, è possibile tramite VB fare in modo che un determinato file excel si apra in automatico, solo se si verifica una determinata condizione?

La condizione dovrebbe esse questa:

If Sheets("Foglio1").Range("D2") < 5 Then

'Se si apri file ...

grazie e buona giornata.

Answer 1

Scusami Mauro, non riesco a far funzionare ultima tua soluzione, al file .vbs devo dare un nome particolare? Dove devo salvarlo?

Dopo aver copiato il codice in un fogile del blocco note:

1. File
2. Salva con nome
3. In Salva come, seleziona: Tutti i file(*.*)
4. In Nome file: TuoNome.vbs

E' sufficiente fare doppio click sul file per lanciarlo. Ovviamente puoi anche pianificare il suo lancio come hai fatto per il file di Excel.

Answer 2

Scusami Mauro, non riesco a far funzionare ultima tua soluzione, al file .vbs devo dare un nome particolare? Dove devo salvarlo?

Answer 3

Ciao Mauro e grazie di avermi risposto, no la cosa è più complessa e mi scuso se mi sono spiegato male.

In pratica ho un file che utilizzo per archiviare delle scadenze, per ora ho messo il file in apertura all'avvio di windows e che da un avviso se non ci sono scadenze imminenti, nel caso in D2 risulti un valore > di 5 (giorni alla scadenza), quindi ho la possibilità di chiudere il file o proseguire per lavorarci; io volevo evitare ogni volta questo messaggio e fare in modo che il file in automatico, si aprisse solo se vi è una scadenza imminente, quindi in D2 < di 5; ma ho idea che il file comunque tocca aprirlo, quantomeno per leggere il valore in D2.

Spero di essere stato più chiaro e grazie.

Answer 4

Buongiorno a tutti, volevo un chiarimento, è possibile tramite VB fare in modo che un determinato file excel si apra in automatico, solo se si verifica una determinata condizione?

La condizione dovrebbe esse questa:

If Sheets("Foglio1").Range("D2") < 5 Then

'Se si apri file ...

grazie e buona giornata.

Non è chiaro *quando*.

Esempio che alla modifica del valore in D2 del Foglio1 apre il file C:\prove\tuoFile.xls nella stessa sessione di Excel se il valore nella cella è inferiore a 5.

In un modulo standard:

Private Sub Worksheet_Change(ByVal Target As Range)

    If Target.Address = "$D$2" Then

        If Target.Value < 5 Then

            Call m("C:\prove\tuoFile.xls")

        End If

    End If

End Sub

Nel modulo di codice del Foglio1:

Public Sub m(ByVal s As String)

    Dim wk As Workbook

    Set wk = Workbooks.Open(s)

    'eventuale codice che interagisce con il file

    Set wk = Nothing

End Sub

Potrebbe stare tutto all'interno del modulo di Foglio1:

Private Sub Worksheet_Change(ByVal Target As Range)

    If Target.Address = "$D$2" Then

        If Target.Value < 5 Then

            Workbooks.Open ("C:\prove\tuoFile.xls")

        End If

    End If

End Sub