Condividi:        

Macro con dettagli salvataggio file su desktop

Vuoi potenziare i tuoi documenti Word? Non sai come si fa una macro in Excel? Devi creare una presentazione in PowerPoint?
Oppure sei passato a OpenOffice e non sei sicuro di come lavorare al meglio?

Moderatori: Anthony47, Flash30005

Macro con dettagli salvataggio file su desktop

Postdi Alessandro999 » 03/12/10 09:48

Ciao , ho una semplice macro che mi farebbe comodo perfezionare un pò , ringrazio da subito questo grande forum il quale ogni tanto faccio capolino sempre con piacere perchè fantastico.

la seguente macro semplicemente salva un file sul desktop come promemoria e vorrei integrare se possibile la seguente miglioria :

nella finestrella della macro dove viene chiesto di inserire il nome del file mi farebbe comodo che venisse proposto il contenuto della cella A4 , ovviamente se poi uno lo vuole cambiare o modificare può sempre utilizzare il tasto backspace sulla tastiera , tutto qui !

" Se poi fosse possibile aggiungere la data sarebbe il massimo , ma mi accontento di quanto scritto sopra ."

esempio , prendiamo oggi , se in cella A4 del foglio di lavoro c'è scritto : Acquisto

sulla finestrella della macro che si apre di default dovrebbe essere scritto :

Acquisto - 3 dicembre 2010



ecco la macro attuale


Sub SALVA()

NomeFile = InputBox("Verrà creato un file specifico di Excel sul tuo desktop per consentire un accesso rapido di consultazione ai dati della compravendita.", "Qual è il nome da assegnare al file da salvare ? ", "")

Path = "C:\Documents and Settings\all users\Desktop\Compravendita "

If NomeFile = "" Then Exit Sub

ActiveWorkbook.SaveAs Filename:=Path & NomeFile & ".xlsm"


End Sub




Immagine

Codice: Seleziona tutto
Sub SALVA()

NomeFile = InputBox("Verrà creato un file specifico di Excel sul tuo desktop per consentire un accesso rapido di consultazione ai dati della compravendita.", "Qual è il nome da assegnare al file da salvare ? ", "")

Path = "C:\Documents and Settings\all users\Desktop\Compravendita "

 If NomeFile = "" Then Exit Sub
 
ActiveWorkbook.SaveAs Filename:=Path & NomeFile & ".xlsm"

 
End Sub


ciao e grazie :)
Windows 10 + office 2007
Windows 7 + Office 2007
Avatar utente
Alessandro999
Utente Senior
 
Post: 161
Iscritto il: 04/06/09 11:42
Località: Venezia

Sponsor
 

Re: Macro con dettagli salvataggio file su desktop

Postdi Flash30005 » 03/12/10 11:39

Non ho ben capito se ti riferisci alla testata del messaggio cioè al posto della frase "Qual'è il nome del messaggio da salvare?"
se così puoi sostituire quella parte di codice così
Codice: Seleziona tutto
Sub SALVA()

NomeFile = InputBox("Verrà creato un file specifico di Excel sul tuo desktop per consentire un accesso rapido di consultazione ai dati della compravendita.", Range("A4").Value & " " & Format(Date, "dd mmmm yyyy"), "")

Path = "C:\Documents and Settings\all users\Desktop\Compravendita "

If NomeFile = "" Then Exit Sub

ActiveWorkbook.SaveAs Filename:=Path & NomeFile & ".xls"


End Sub


Fai sapere
Ciao
Flash
Win10 + Office 2010 Ita
"Fotografica" al servizio dell'immagine
Avatar utente
Flash30005
Moderatore
 
Post: 8517
Iscritto il: 27/09/07 11:44
Località: Roma +o-

Re: Macro con dettagli salvataggio file su desktop

Postdi Alessandro999 » 03/12/10 12:33

Ciao Flash :)

Non mi sono spiegato bene io , mea culpa.

Intendevo dentro la riga evidenziata in quest' immagine , così di default viene suggerita un' intestazione e basta cliccare su OK per salvare il file velocizzando così il tutto , ............ ovviamente se poi a uno non va bene il nome suggerito di default lo può sempre personalizzare come vuole usando il tasto canc e mettendo quello che più gli aggrada e poi premere ok.

Immagine

grazie mille per la tua cortese risposta.
Windows 10 + office 2007
Windows 7 + Office 2007
Avatar utente
Alessandro999
Utente Senior
 
Post: 161
Iscritto il: 04/06/09 11:42
Località: Venezia

Re: Macro con dettagli salvataggio file su desktop

Postdi Flash30005 » 03/12/10 14:42

Ok,
Codice: Seleziona tutto
Sub SALVA()

NomeFile = InputBox("Verrà creato un file specifico di Excel sul tuo desktop per consentire un accesso rapido di consultazione ai dati della compravendita.", "Qual è il nome da assegnare al file da salvare ? ", Range("A4").Value & " " & Format(Date, "dd mmmm yyyy") & "")

Path = "C:\Documents and Settings\all users\Desktop\Compravendita "

If NomeFile = "" Then Exit Sub

ActiveWorkbook.SaveAs Filename:=Path & NomeFile & ".xlsm"

End Sub


Ciao
Flash
Win10 + Office 2010 Ita
"Fotografica" al servizio dell'immagine
Avatar utente
Flash30005
Moderatore
 
Post: 8517
Iscritto il: 27/09/07 11:44
Località: Roma +o-

Re: Macro con dettagli salvataggio file su desktop

Postdi Alessandro999 » 03/12/10 15:26

Perfetto ho inserito le tue istruzioni e tutto funziona alla perfezione , :D :D :D :D :D :D grazie ancora una volta Flash , e buon fine settimana !!!




Immagine
Windows 10 + office 2007
Windows 7 + Office 2007
Avatar utente
Alessandro999
Utente Senior
 
Post: 161
Iscritto il: 04/06/09 11:42
Località: Venezia


Torna a Applicazioni Office Windows


Topic correlati a "Macro con dettagli salvataggio file su desktop":


Chi c’è in linea

Visitano il forum: Nessuno e 83 ospiti