Salva con nome Errore 1004

[Gammamax]

In base a quanto ho letto su questo forum ho fatto una macro per il salvataggio con nome che qui riporto

' Salva Macro
Sub Salva()
FXLS = Range("C41").Value & ".xls"
Perc = "Y:\ordini\salvati\"
ActiveWorkbook.SaveAs Filename:=Perc & FXLS
End sub

All'esecuzione mi compare un messaggio d'errore :
Errore di Run Time 1004
metodo'SaveAs' dell'oggetto '_Workbook' non riuscito.
Ho controllato e credo di avere ricopiato i comandi come riportati.

Y è un percorso di rete di una unità che si connette all'avvio

grazie per un suggerimento

[Flash30005]

Controlla bene che nella cela C41 del foglio che hai attivo ci sia un nome qualsiasi
se non c'è inserisci in C41 -> Prova
e vedrai se hai la rete disponibile in "Y:\ordini\salvati\"
tutto funzionerà rinominando il file Prova.xls
altrimenti metti
Perc = "C:\"
e riavvia la macro
se in questo caso funziona significa che era sbagliato il percorso ma sono più convinto della prima ipotesi

Ciao

[Gammamax]

Saggia Idea - mannaggia perchè non ci ho pensato io a questa prova !!!!!

Sub Salva()
FXLX = Range("C41").Value & ".xls"
Perc = "C:\"
ActiveWorkbook.SaveAs Filename:=Perc & FXLS
End Sub

L'ho fatta e l'errore resta il medesimo, ma con il box d'errore diverso
Runtime errore 1004 : impossibile accedere al file provare uan delle seguenti operazioni ..............( che esista la cartella, che non sia in sola lettura, che non ci siano caratteri speciali, che il nome non superi i 218 caratteri)

Nel debug si evidenzia l'ultima riga ActiveWorkbook.SaveAs Filename:=Perc & FXLS

mentre sto scrivendo mi accorgo dell'errore in prima riga c'è scritto FXLX anzichè FXLS ed il mistero è lì !!!!

Mo funziona
Scusate e grazie a Flash per l'aiuto che mi ha permesso di trovare l'errore.

[Flash30005]

...
mentre sto scrivendo mi accorgo dell'errore in prima riga c'è scritto FXLX anzichè FXLS ed il mistero è lì !!!!

si, ma questo errore lo hai inserito ora,

perché il codice del tuo precedente post

...

Codice: Seleziona tutto

Sub Salva()
    FXLS = Range("C41").Value & ".xls"
    Perc = "Y:\ordini\salvati\"
    ActiveWorkbook.SaveAs Filename:=Perc & FXLS
End sub

come vedi era corretto

Ciao