Il primo messaggio dice che il file corrente si chiama "Catel5"
Il secondo dice che stai cercando di salvare il file col nome C:\users\camel\desktop\programmi_turni\report
\.xlsx, cioe' senza aver compilato il nome file, che e' vietato.
Poiche'
myFile = myDir & "\" & Format(Range("b3").Value, "yyyy-mm_") & Range("a3").Value & ".xlsx", e' evidente che le celle B3 e A3
del foglio attivo sono vuote; cosa che sarebbe contrario all' idea di voler salvare il file sulla base del contenuto di quelle due celle.
Tuttavia potrebbe esserci un equivoco... Le celle B3 e A3 sono quelle del foglio attivo, cioe' sul nuovo file e dopo aver copiato da A1 in avanti il range I10:N2721 del file di partenza; e' evidente quindi che in B3 e A3 ci sobo finiti i contenuti delle celle J12 e I11...
Se vuoi calcolare il nome del nuovo file sulla base del contenuto del
file /foglio originale allora modificherai il calcolo di myFile in:
- Codice: Seleziona tutto
With Thisworkbook.Sheets(mySorg)
If (Format(.Range("b3").Value, "yyyy-mm_") & .Range("a3").Value) = "" then Exit sub
myFile = myDir & "\" & Format(.Range("b3").Value, "yyyy-mm_") & .Range("a3").Value & ".xlsx"
End With
Questo in sostituzione della riga
myFile = myDir & "\" & Format(Range("b3").Value, "yyyy-mm_") & Range("a3").Value & ".xlsx"Ciao