Riesco anche a fare apparire la finestra di dialogo salva con nome, in modo da salvare con il nome scelto dall'utente, ma quest'ultimo passaggio non funziona, la finestra si chiude e rimango con il file aperto che si chiama ancora "Nuova".
- Codice: Seleziona tutto
Sub ApriModello()
perc1 = "I:\PROGRAMMI UFFICIO\4 - Fatturazione\Fatture emesse\"
perc2 = "I:\PROGRAMMI UFFICIO\4 - Fatturazione\Modelli\"
If Range("J4") <> "Modello non disponibile" Then
fileN = perc2 & Range("J4") & ".xlsm"
Workbooks.Open fileN
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs (perc1 & "Nuova.xlsm")
Application.DisplayAlerts = True
With Application.FileDialog(msoFileDialogSaveAs)
.InitialFileName = perc1
.Show
End With
End If
End Sub