nel salvataggio eludere il messaggio "file gia'esistente"

[andsa61]

Buongiorno a tutti,
sono alla mia prima richiesta, probabilmente esiste gia'questo topic, ma non l'ho trovato,
eventualmente scusatemi per questo.

richiesta : e'possibile eliminare/aggirare/eludere, in una macro di Excel 2007, durante il salvataggio del
file, il messaggio Excel :
"a file XXXXXX already exist in this location. do you want to replace it ?"

Per me e'sempre SI, vorrei lo facesse in automatico, perche'cosi'interrompe la macro e costringe
a un intervento dell'operatore.

grazie per l'aiuto
Andrea

[Flash30005]

Ciao Andsa61 e benvenuto nel Forum
Puoi usare questo sistema per aggirare l'ostacolo

Codice: Seleziona tutto

Perc = "C:\Temp\"
NomeF = "XXXX.xlsx"
    If Len(Dir(Perc & NomeF)) > 0 Then Kill Perc & NomeF

Codice da inserire prima del salvataggio
In Perc inserirai il percorso del file
In NomeF il nome del file
questi due dati dovresti averli per poter salvare il file in una directory quindi la macro controlla se il file esiste
se esiste lo elimina e quando salverai il nuovo file non trovandone un altro non avrai alcun messaggio di avviso

ciao

[andsa61]

grazie Flash,
ma credo di sbagliare qualcosa perche'mi continua a dare il messaggio,
io il codice l'ho inserito cosi'

ChDir "D:\Profil\Desktop\file x azienda"
'
Perc = "D:\Profil\Desktop\file x azienda"
NomeF = "COMENZI DARGAUD_PERRINE 08.xlsm"
If Len(Dir(Perc & NomeF)) > 0 Then Kill Perc & NomeF
'
ActiveWorkbook.SaveAs Filename:= _
"COMENZI DARGAUD_PERRINE 08.xlsm", FileFormat _
:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False

e mi da il messaggio di errore

[Flash30005]

Ti avevo fatto l'esempio che il Perc era = "C:\Temp\"
mentre tu non hai messo lo slash finale del percorso
quindi devi mettere

Codice: Seleziona tutto

Perc = "D:\Profil\Desktop\file x azienda\"

poi eviterei di lasciare spazi nei nomi di file e directory per non avere complicazioni e possibili errori
inserisci un underscore se puoi es.: Perc = "D:\Profil\Desktop\file_x_azienda\"
ciao

[ricky53]

Ciao,
prova in questo modo

Codice: Seleziona tutto

Sub Salva_con_Nome_File_Esistente()
    Application.DisplayAlerts = False
    ActiveWorkbook.SaveAs Filename:="D:\Temp\File_da_Salvare_Esistente.xls" _
        , FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
        ReadOnlyRecommended:=False, CreateBackup:=False
    Application.DisplayAlerts = True
End Sub


[andsa61]

grazie Flash,
si, mettendo a posto back slash e modificando nome folder e file,
funziona bene.

x Ricky, piu' tardi provo anche la tua soluzione
grazie comunque

Per me il post e'risolto

andrea