(Excel) Macro Apertura File

[paaz]

Ciao ragazzi,
non rieco a far funzionare una macro che mi dovrebbe permettere di aprire, da un primo file, un secondo file excel al verificarsi di un evento.
La macro che ho scritto io è la seguente:

Sub Pregresso
Dim Percorso

MsgBox ("Aprire il File Progressivo dell'ultimo Mese chiuso nel gestionale")
Percorso = Application.GetOpenFilename("(*.xls),*.xls")
Range("f2:f86").Select
Selection.Copy
Windows("Elaborazioni.xls").Activate
Range("Ac4").Select
...
...
Una volta aperto il file dovrei copiare i valori contenuti nelle celle da f2 ad f86 del secondo file in una colonna nel primo file su cui poi dovrò fare una serie di operazioni.
Il mio problema è che nonostante la macro mi permetta di scegliere il secondo file dal percorso che io desidero, il file selezionato non viene aperto.

Qualcuno saprebbe dirmi dove il mio errore.

Grazie come sempre

[Anthony47]

Beh, se la macro e' quella infatti il file non e' stato aperto.
Perche', come recita l' help on line del vba, il Metodo GetOpenFilename "Visualizza la finestra di dialogo standard Apri e consente di specificare un nome di file senza aprire effettivamente alcun file."

Aggiungi dopo la GetOpenFilename queste due istruzioni:

Codice: Seleziona tutto

Percorso = Application.GetOpenFilename("(*.xls),*.xls")   '<<<Esistente
If Percorso = False Then Exit Sub
Workbooks.Open (Percorso)


La prima serve per uscire dalla macro se non viene scelto nessun file. Nota che la variabile "Percorso" conterra' il percorso + il nomefile, potrebbe essere il caso di usare un altro nome per evitare illusioni ottiche.

Ciao