IALweb Homepage
Forum Home Forum Home > MS Office > Microsoft Office > Microsoft Excel
  New Posts New Posts RSS Feed - [RISOLTO] nome mese da data per salvataggio file
  FAQ FAQ  Forum Search   Events   Register Register  Login Login


REGISTRATEVI su IALWeb forum!

[RISOLTO] nome mese da data per salvataggio file

 Post Reply Post Reply Page  <12
Author
Message
antoniomlg View Drop Down
Utente Senior
Utente Senior
Avatar

Joined: 13/Gen/2009
Location: Italy
Status: Offline
Points: 359
Post Options Post Options   Thanks (0) Thanks(0)   Quote antoniomlg Quote  Post ReplyReply Direct Link To This Post Posted: 11/Feb/2018 at 17:13
grazie.....StarStar

Inoltre perchč disturbare WScript.Shell per un semplice msgbox?
------
Set obj = CreateObject("WScript.Shell")
strMsg = obj.PopUp("DUPLICAZIONE ESEGUITA CON SUCCESSO!!!", 1, vbOKCancel)
------

per fare in modo che il messaggio non aspetta una conferma 
ma che sia temporizzato e svanisca da solo...

almeno non conosco altro modo per temporizzare un msgbox.....

sempre grazie per tutto
Back to Top
Sponsored Links


Back to Top
dodo47 View Drop Down
Moderatore
Moderatore
Avatar

Joined: 29/Dic/2008
Location: Italy
Status: Offline
Points: 10539
Post Options Post Options   Thanks (0) Thanks(0)   Quote dodo47 Quote  Post ReplyReply Direct Link To This Post Posted: 12/Feb/2018 at 11:19
Ok
se il problema č stato superato, ti prego di scrivere [RISOLTO], andando in modifica del tuo primo post aggiungendolo ad inizio titolo.

grazie e saluti
domenico
win 10- office 2016
Back to Top
antoniomlg View Drop Down
Utente Senior
Utente Senior
Avatar

Joined: 13/Gen/2009
Location: Italy
Status: Offline
Points: 359
Post Options Post Options   Thanks (0) Thanks(0)   Quote antoniomlg Quote  Post ReplyReply Direct Link To This Post Posted: 12/Feb/2018 at 17:14
grazie lo farō certamente.

un'ultima cosa 
quale č  quella parte di l'istruzione che nel fare la copia , 
prendendo il nome dalla data mese + 1 & anno
fā in modo che quando prende il nome dalla data 01/12/2018

mi salva il file con il nome "gennaio 2019" ???


grazie
Back to Top
dodo47 View Drop Down
Moderatore
Moderatore
Avatar

Joined: 29/Dic/2008
Location: Italy
Status: Offline
Points: 10539
Post Options Post Options   Thanks (0) Thanks(0)   Quote dodo47 Quote  Post ReplyReply Direct Link To This Post Posted: 12/Feb/2018 at 17:45
Ciao
ti restituisco la macro commentata
Saluti
Sub Cancella_Dati()
Dim mData As Date
    ThisWorkbook.Save       '<<<salva la cartella aperta prima della duplicazione
    azione = MsgBox("PROCEDO CON LA DUPLICAZIONE DEL FILE ?", vbYesNo, "Messaggio da MELIGENI")
    If azione = vbNo Then GoTo finesub
    Range("E5:M35,Q5:T35").ClearContents  '<<<seleziona le celle da cui cancellare i dati
    Sheets("inserimento dati").Select
    mData = Range("D5") '<<<prende da D5 la data
    mData = DateAdd("m", 1, mData) '<<aggiunge 1 mese
    nome = Format(mData, "mmmm") & "" & Format(mData, " - yyyy") & ".xls" '<< formatta la data e aggiungel'estensione
    mDoc = ActiveWorkbook.Path & "\" & ActiveWorkbook.Name '<< mette in una variabile il nome del file attuale per & _
                                                            riaprirlo dopo
    mDir = "C:\Users\Windows7\Desktop\contabilitā\"
    
    ChDir mDir
    Application.DisplayAlerts = False            '<<<-----------evita di chiedere conferma di sovrascrittura
    'salva il file con il nome ricavato dalla data
    ActiveWorkbook.SaveAs Filename:=nome, _
     FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
     ReadOnlyRecommended:=False, CreateBackup:=False
     Application.DisplayAlerts = True
                
    
    Range("D5").ClearContents         '<<----------nella nuova cartella seleziona la cella da cacellare i dati

    MsgBox "DUPLICAZIONE ESEGUITA CON SUCCESSO!!!" 'inserisce messaggio
    Workbooks.Open mDoc '<<riapre il file originale
    Workbooks(nome).Close True '<<chiude quello creato
finesub:
End Sub
domenico
win 10- office 2016
Back to Top
antoniomlg View Drop Down
Utente Senior
Utente Senior
Avatar

Joined: 13/Gen/2009
Location: Italy
Status: Offline
Points: 359
Post Options Post Options   Thanks (0) Thanks(0)   Quote antoniomlg Quote  Post ReplyReply Direct Link To This Post Posted: 12/Feb/2018 at 20:03
QUINDI

mData = DateAdd("m", 1, mData) '<<aggiunge 1 mese

oltre ad aggiungere +1 al mese attuale, vā anche all'anno dopo.....

grazie
Back to Top
dodo47 View Drop Down
Moderatore
Moderatore
Avatar

Joined: 29/Dic/2008
Location: Italy
Status: Offline
Points: 10539
Post Options Post Options   Thanks (0) Thanks(0)   Quote dodo47 Quote  Post ReplyReply Direct Link To This Post Posted: 13/Feb/2018 at 10:14
vā anche all'anno dopo.....:qualora il mese in D5 sia dicembre naturalmente

saluti
domenico
win 10- office 2016
Back to Top
 Post Reply Post Reply Page  <12
  Share Topic   

Forum Jump Forum Permissions View Drop Down

Forum Software by Web Wiz Forums® version 10.17
Copyright ©2001-2013 Web Wiz Ltd.

This page was generated in 0,070 seconds.