Notifiche
Cancella tutti
La consultazione del forum è libera per tutti.
Per poter porre un quesito è invece necessario essere un utente registrato (clicca qui se non lo sei).
Tutti gli utenti che richiedono un supporto, come da REGOLAMENTO, sono caldamente invitati ad allegare un file di esempio con l'indicazione di quello che si desidera ottenere.
Zona Test
1
Post
1
Utenti
0
Reactions
279
Visualizzazioni
Avviatore di Topic 02/08/2024 11:21
Sub SalvaFile() '============================================================================== ' nei nomi file, non sono consentiti i caratteri ":", e "/" quindi, ' sostituisci nel modulo3, la tua macro con questa '============================================================================== Dim intestazione As String, intestazione1 As String Application.ScreenUpdating = False intestazione = Left(Time, 5) & " " & _ "- " & Day(Date) & "_" & Month(Date) & "_" & Year(Date) intestazione = Replace(intestazione, ":", "_") intestazione1 = Left(ActiveWorkbook.ActiveSheet.PageSetup.CenterHeader, 90) intestazione1 = Replace(intestazione1, "-", "_") intestazione1 = Mid(intestazione1, 28, 36) ActiveWorkbook.SaveAs Filename:= _ "C:\Users\g.delprete\Desktop\Nuova cartella\Prova\Prova\" & intestazione1 _ & intestazione & ".xlsm", FileFormat:=xlOpenXMLWorkbookMacroEnabled Application.ScreenUpdating = True End Sub
Versione di Excel
Sistema operativo
Questa discussione è stata modificata 9 mesi fa 2 tempo da Excel Academy
"Fatti non foste a viver come bruti,
ma per seguir virtute e canoscenza"
