Ciao a tutti, stò lavorando su una applicazione excel da access, funziona tutto bene tranne quando vado a salvare alla fine che mi caccia questo messaggio "Esiste già un file denominato 'RIPRENDI.XLW' in questa posizione. sostituire il file esistente?" si no annulla, chiaramente questo file non l'ho creato io, se lo crea lui non sò per quale arcano motivo, se glielo faccio sostituire il salvataggio va a buon fine, però non posso mettermi a spiegare all'utente questa cosa, e comunque non riesco proprio a capire come evitare di fargli creare questo file.
Mi potete aiutare?
vi posto un pò di codice
codice:
Private Sub Comando35_Click()
sSource = "Z:\Archivio\schedacliente.xls"
sSheet = "Foglio2" Set xl = CreateObject("Excel.Application")
xl.Workbooks.Open sSource, ReadOnly:=False
Set Rec = Me.Recordset
Do Until Rec.EOF
x = 3 + x
z = x - 3
y = 6 + z
xl.Rows(5).Select
xl.Selection.Copy
xl.Rows(5 + x).Select
xl.ActiveSheet.Paste
xl.Rows(6).Select
xl.Selection.Copy
xl.Rows(6 + x).Select
xl.ActiveSheet.Paste
xl.cells(y, 2) = Registrazione
xl.cells(y, 3) = MTOW
xl.cells(y, 5) = Seats
xl.cells(y, 7) = cctipo
Rec.MoveNext
Loop xl.cells(1, 2) = Intestazione
xl.Visible = False
xl.Save
xl.Quit
Set xl = Nothing
End Sub