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