ElectroYou

salve, qualcuno puo aiutarmi a modificare questo codice per far si che quando salva il file in questione su penna USB non esca la finestra che dice "questo file esiste già vuoi...."
in pratica deve sostituirlo.
grazie

Codice: Seleziona tutto

Set XL = CreateObject("EXCEL.APPLICATION")                                                               
XL.Visible = true                                                                                       
XL.AskToUpdateLinks = False                                                                             
XL.DisplayAlerts = False                                                                                 
Set wB = XL.Workbooks.Open ("C:\Documents and Settings\utente\Desktop\SERVIZIO 2014.XLS")               
XL.ActiveWorkBook.SaveAs ("E:\SERVIZIO 2014.XLS")                                                       
XL.AskToUpdateLinks = False                                                                             
XL.DisplayAlerts = False
                                                                               
set oShell = CreateObject("WScript.Shell")                                                               
oShell.SendKeys"%{F4}"

Ciao,
Prova ad usare al posto di XL.DisplayAlerts = False l'istruzione Application.DisplayAlerts = False

ok funziona grazie