Originariamente inviato da Otaking
o fare in modo che 1234_PIPPO.xls sia rinominato oppure che salvandolo col nome 1234_PIPPO____°CHIUSO°____.xls venga cancellato quello che si chiama 1234_PIPPO.xls
Io opterei per la prima soluzione: a questo punto il codice sarà semplicemente questo

codice:
  
Dim FName1 As String
Dim FPath As String

FPath = "C:\Users\Davide\Documents"
FName1 = Sheets("Foglio1").Range("C1").Text & "_" & Sheets("Foglio1").Range("H4").Text 

ThisWorkbook.SaveAs Filename:=FPath & "\" & FName
Però a questo punto viene meno il discorso del "chiuso"..

Non so, dimmi te..


Ciao