[VBA (EXCEL)] Apertura File contenuto nella stessa cartella

[Fabius.1989]

Buongiorno a tutti..

Ho un file (menu.xls) dove c'è un elenco di altri file con a fianco un pulsante per aprirli il cui codiceche ho scritto è:

Workbooks.Open Filename:= "C:\Documents and Settings\Utente GolD\Documenti\CAMPIONATI\SERIE A.xls"

il suddetto file (menu.xls) si trova anch'esso nella cartella CAMPIONATI.

Il mio problema è che questa cartella mi serve sempre e devo poterla mettere su computer di amici. dato che il percorso non è sempre lo stesso, volevo sapere se era possibile non specificarlo per intero ma indicare solamente che il file da aprire si trova nella stessa cartella di quello già aperto.

Grazie in anticipo

[icecube_HT]

Originariamente inviato da Fabius.1989
Buongiorno a tutti..

Ho un file (menu.xls) dove c'è un elenco di altri file con a fianco un pulsante per aprirli il cui codiceche ho scritto è:

Workbooks.Open Filename:= "C:\Documents and Settings\Utente GolD\Documenti\CAMPIONATI\SERIE A.xls"

il suddetto file (menu.xls) si trova anch'esso nella cartella CAMPIONATI.

Il mio problema è che questa cartella mi serve sempre e devo poterla mettere su computer di amici. dato che il percorso non è sempre lo stesso, volevo sapere se era possibile non specificarlo per intero ma indicare solamente che il file da aprire si trova nella stessa cartella di quello già aperto.

Grazie in anticipo

Ciao !
Usa: ActiveWorkbook.Path & "\SERIE A.xls"

[Fabius.1989]

Sub apria()
ActiveWorkbook.Path & "\SERIE A.xls"
End Sub

ho inserito il codice da te suggerito ma quando clikko sul pulsante mi dice

Errore di compilazione:

Errore di sintassi

[icecube_HT]

Ma che c'entra ????

Io ti suggerivo di usare quell'espressione AL POSTO del nome completo del file !

Workbooks.Open Filename:= ActiveWorkbook.Path & "\SERIE A.xls"

...cioe' ActiveWorkbook.Path ti restituisce la cartella dove hai salvato il file "principale".

E' quello che ti serviva, no ?

[Fabius.1989]

scusa non avevo capito

grazie mille... e buona giornata