Sauvegarde fichier

[Damos]

Bonjour à tous,

Cela fait quelques temps que je bute sur ceproblème sans trouver la solution.

J'ai une routine qui ouvre un fichier au format *.prn dans excel.
Puis qui traite des données.

Cependant lorsque je veux sauvegarder mon fichier et le fermer toujours sous le même nom qu'il a été ouvert j'ai le message suivant qui apparaît à l'écran:
"Un fichier nommé 'Temp.scy ' existe déjà à cet emplacement. Voulez vous le remplacer?" OUI - NON - ANNULER.

C'est extrêmement agaçant.
Quelqu'un aurait - il une solution pour éviter cette boîte de dialoque?

Ci dessous le code que j'utilise actuellement:

Public Sub SaveAndClose(ClasseurScy)
Windows(ClasseurScy).Activate
ActiveWorkbook.SaveAs FileName:=ClasseurScy, FileFormat:= _
xlTextPrinter, CreateBackup:=False
ActiveWindow.Close savechanges:=False
End Sub

 

[@Christophe@]

Bonsoir Damos

Modifie ton code par celui si:

Public Sub SaveAndClose(ClasseurScy)
Windows(ClasseurScy).Activate
Application.DisplayAlerts =False
ActiveWorkbook.SaveAs FileName:=ClasseurScy, FileFormat:= _
xlTextPrinter, CreateBackup:=False
ActiveWindow.Close savechanges:=False
Application.DisplayAlerts =True
End Sub



@+

Christophe

 

[Damos]

Merci Christophe

Cela résoud exactement mon Problème et je pense pouvoir trouver bon nombre d'applications à tasolutions.

@+ et bon WE