Excel Salvare

[problema]

Salve ho un nuovo problema

Mi sono fatto una piccola automazione per salvare dei file velocemente e "automaticamente"; però ogni volta che chiude il file mi chiede di salvarlo, io non voglio salvarlo 2 volte e non voglio che me lo chieda .

Qui sotto c'è il listato se c'è un'anima che mi possa aiutare....

Grazie.

Sub TXT1()

Dim X As String

X = Range("G3").Value

Sheets("foglio").Copy 'creo un nuovo foglio copia

ActiveWorkbook.SaveAs Filename:="C:\temp\" & X & ".TXT", FileFormat:=xlText, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _

, CreateBackup:=False

ActiveWindow.Close

End Sub

é quel ActiveWindow.Close che mi crea tutti sti problemi.!!!

[Gianmario Pedrani]

Questa è una mia funzione fatta in excel per chiudere i file aperi

Sub chiudiTutto()

For Each w In Workbooks

If w.Name <> ThisWorkbook.Name Then

w.Close savechanges:=True

End If

Next w

questa invece mi apre i vari file

Sub aprifile(nomefile As String)

Dim Percorso As String

Percorso = ThisWorkbook.Path

Select Case nomefile

Case 1: Workbooks.Open Percorso & "\" & "gennaio.XLS"

Case 2: Workbooks.Open Percorso & "\" & "febbraio.XLS"

Case 3: Workbooks.Open Percorso & "\" & "marzo.XLS"

Case 4: Workbooks.Open Percorso & "\" & "aprile.XLS"

Case 5: Workbooks.Open Percorso & "\" & "maggio.XLS"

Case 6: Workbooks.Open Percorso & "\" & "giugno.XLS"

Case 7: Workbooks.Open Percorso & "\" & "luglio.XLS"

Case 8: Workbooks.Open Percorso & "\" & "agosto.XLS"

Case 9: Workbooks.Open Percorso & "\" & "settembre.XLS"

Case 10: Workbooks.Open Percorso & "\" & "ottobre.XLS"

Case 11: Workbooks.Open Percorso & "\" & "novembre.XLS"

Case 12: Workbooks.Open Percorso & "\" & "dicembre.XLS"

End Select

End Sub

ho usato un case perchè in base al mese mi doveva aprire un file diverso

ciaooooooooo

spero di averti dato una dritta