vba2003:fare riferimento a celle di altri file

[karug64]

Salve a tutti.
Nell'opera di riconversione del mio prg da form a fogli, mi trovo in questa sistuazione.
Dal file "Gestione.xls" lancio una funzione che tra l'altro richiama una commondialog e permette di selezionare un nuovo file ("Nuova_gest.xls") su cui poi tramite la routine f_trasponi_ordini vado a ricopiare dei dati.
Di seguito parte del codice:

Codice: Seleziona tutto

If Trim(mypath) <> "" Then
            Set wkcopia2 = Workbooks.Open(mypath)
            Call f_trasponi_ordini
            GoTo carica_ges
        Else
            MsgBox ("Nessun file selezionato.")
            Exit Sub
End If


Il problema e' che dopo la funzione
Set wkcopia2 = Workbooks.Open(mypath)
mi ritrovo con secondo file attivo e quindi la seguente istruzione, presente nella routine f_trasponi_ordini

Codice: Seleziona tutto

If Len(Trim(Sheets("database").Range("P3").Value)) = 0 Or Len(Trim(Sheets("database").Range("P2").Value)) = 0 Then

non funziona, in quanto sul file "Nuova_gest.xls" il foglio "Database" non esiste.

Come posso modificare la riga in questione per farla puntare al foglio non attivo al momneto ?

Grazie

[Anthony47]

Ma scusa, non l' avevi gia' risolto?
viewtopic.php?f=26&t=94494&p=542857#p542847 e mio messaggio successivo.

[karug64]

Ma scusa, non l' avevi gia' risolto?
viewtopic.php?f=26&t=94494&p=542857#p542847 e mio messaggio successivo.

Ciao. No l'esempio riportato li, fa riferimento allo stesso file xls diviso in due finestre (da qui la :1 e :2) ma sempre dello stesso xls si tratta. Qui invece sono due xls diversi.

Comunque, ho appena risolto, in maniera poco ortodossa, anteponendo al controllo da fare su "database" la riga

Codice: Seleziona tutto

Windows("Gestione.xls:2").Activate
If Len(Trim(Sheets("Database").Range("P2").Value)) = 0 Or Len(Trim(Sheets("Database").Range("P3").Value)) = 0 Then
    MsgBox "Ordine non selezionato !!", vbCritical, "Errore"
    Exit Sub
End If
Windows("Nuova_gestione.xls").Activate


Grazie

[Anthony47]

La soluzione piu' ortodossa e' quella che ti avevo delineato nel messaggio linkato prima, cioe' esplicitare a quale Workbook la proprieta' Sheets va riferita; quindi:

Codice: Seleziona tutto

If Len(Trim(Workbook("Gestione.xls").Sheets("Database").Range("P2").Value)) = 0 Or Len(Trim(Workbook("Gestione.xls").Sheets("Database").Range("P3").Value)) = 0 Then


Come per ".Select" (altro tuo quesito), nella stragrande maggioranza dei casi la ".Activate" infatti non e' necessaria.

Ciao

[karug64]

La soluzione piu' ortodossa e' quella che ti avevo delineato nel messaggio linkato prima, cioe' esplicitare a quale Workbook la proprieta' Sheets va riferita; quindi:

Codice: Seleziona tutto

If Len(Trim(Workbook("Gestione.xls").Sheets("Database").Range("P2").Value)) = 0 Or Len(Trim(Workbook("Gestione.xls").Sheets("Database").Range("P3").Value)) = 0 Then


Come per ".Select" (altro tuo quesito), nella stragrande maggioranza dei casi la ".Activate" infatti non e' necessaria.

Ciao

Ok grazie.