Pagina precedente | 1 | Pagina successiva
Vota | Stampa | Notifica email    
Autore

Salvataggio, rinomina ed invio automatico file

Ultimo Aggiornamento: 25/01/2017 09:51
Post: 1
Registrato il: 23/01/2017
Città: GRIZZANA MORANDI
Età: 30
Utente Junior
2003
OFFLINE
23/01/2017 17:49

Ciao,
volevo segnalare che la richiesta che vorrei fare è già stata inserita in un altro forum dove però non ho avuto nessuna risposta e dato che sono passati oramai due settimane vorrei provare a postarla qui se è possibile... anticipo che ho letto le informazioni generali del forum e non mi pare ci sia nulla contro il copiare post da altri forum ( lo dico perchè mi è già successo di essere stato segnalato per questo), nel caso non sia possibile provvederò a chiudere subito il post
Post: 1
Registrato il: 23/01/2017
Città: GRIZZANA MORANDI
Età: 30
Utente Junior
2003
OFFLINE
25/01/2017 09:51

Io intanto la richiesta la posto,
premetto a tutti che sono nuovo nel campo codici VBA... Vi spiego il problema: io ho un file excel il quale voglio che nel momento che viene salvato, venga rinominato con il contenuto di una delle celle e reindirizzato direttamente in un cartella specifica.

Inoltre vorrei che prima di chiuderlo oltre a salvarmi automaticamente il file rinominandomelo e salvandolo nella cartella me lo invii in automatico ad un indirizzo e un altro in cc.
Mi spiego meglio:
- l'indirizzo mail in cc è fisso, mentre per quanto riguarda l'indirizzo principale è più complesso perchè nel mio folgio1 ho un campo numerico che mi distingue il centro di costo e nel foglio2 ho un elenco di tutti i centri di costo(numerici) con di fianco l'indirizzo email. Quindi vorrei che dal campo numerico (foglio1) lui trovi la mail collegata (foglio2).
-la mail deve essere composta da un oggetto e un corpo preimpostato.

Fino ad ora sono riuscito a raggiungere la prima parte del codice, quella relativa al salvataggio automatico nella cartella con tanto di rinomina automatica... l'unica cosa che non mi fa impazzire è che nel momento in cui salvo mi crea si un altro file ma nel mio file originale vengono salvate le modifiche mentre preferirei rimanesse vuoto.

La seconda parte invece è ancora un mistero e qui vi chiedo un aiuto, anticipo che magari ho viaggiato troppo di fantasia non ho idea se sia possibile farlo.

Vi allego un file di prova e Vi copio qui la prima parte del codice:

Sub SalvaConNome()
Cartella = "C:\prova\" 'percorso completo su cui salvare, ricordarsi la barra inversa alla fine!
NomeFile = Range("c4").Value 'cella da cui prendere il nome file
NomeFoglio = "Foglio 1" 'nome esatto del foglio da copiare

If NomeFile = "" Then Exit Sub
If Right(NomeFile, 4) <> ".xls" Then NomeFile = NomeFile & ".xls"

Sheets(NomeFoglio).Copy

ActiveWorkbook.SaveAs Filename:=Cartella & NomeFile, FileFormat:= _
xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
, CreateBackup:=False
End Sub
Vota:
Amministra Discussione: | Chiudi | Sposta | Cancella | Modifica | Notifica email Pagina precedente | 1 | Pagina successiva
Nuova Discussione
 | 
Rispondi
Cerca nel forum
Tag discussione
Discussioni Simili   [vedi tutte]
Feed | Forum | Bacheca | Album | Utenti | Cerca | Login | Registrati | Amministra
Tutti gli orari sono GMT+01:00. Adesso sono le 07:44. Versione: Stampabile | Mobile | Regolamento | Privacy
FreeForumZone [v.6.1] - Copyright © 2000-2024 FFZ srl - www.freeforumzone.com