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.
Per completezza, con excel faccio una serie di ping a delle apparecchiature dislocate in punti diversi in una wan aziendale avendo come risposta ONLINE/OFFLINE. Tutto funziona bene solo che all'atto del salvataggio mi da errore.
ciao
è il percorso che non mi convince
se le tre cartelle esistono e il percorso è esatto non esiste
che non salvi
vediamo se qualche esperto vba interviene
io sarei un formulista
Ok, grazie infinite per la tua pazienza.
Ciao
ciao
leva la sottolineatura e il grassetto e funziona
ma per avere la data ora dobbiamo cambiare qualcosa
ora ci provo
ciao,
ed un saluto a Gianfranco 🤣
del quale funziona anche la Sua macro.
Per ovviare al problema che riscontri con il tuo file, ti invio la macro che per quanto mi riguarda non lo crea.
Ciao
Frank
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
ciao tanimon
grazie
la mia macro riporta anche il carattere e la frmattazione
onestamente avevo pensato che era meglio l'intestazione scriverla su una cella
e usare quella per il salvataggio
ma la tua funziona
imparata un'altra
Grazie a tutti per le rapide risposte, problema risolto.
Buone vacanze a tutti
ciao
bene che hai risolto Tanimon è veramente bravo
chiudi la discussione per favore
