Enregist auto d'un fichier par macro

[Alainca31]

J'ai un fichier excel que je veux enregistrer sous format TXT puis revenir sur ce meme fichier excel. jusque la la macro que j'ai ecrite fontionne bien.
le souci que j'ai c'est qu'a chaque fois que je lance la macro il me demande si je veux ecrasser le fichier. comment faire pour que cela se fasse automatiquement.
merci d'avance pour vos reponses
Voici ma macro

Sheets('energie').Select
ChDir 'K:\\Process\\Perf_environnement\\Echange'
ActiveWorkbook.SaveAs Filename:= _
'K:\\Process\\Perf_environnement\\Echange\\energie.txt', FileFormat:=xlText, _
CreateBackup:=False
ActiveWorkbook.SaveAs Filename:= _
'K:\\Process\\Perf_environnement\\Echange\\bilan1_mensu.xls', FileFormat:= _
xlNormal, Password:='', WriteResPassword:='', ReadOnlyRecommended:=False _
, CreateBackup:=False
Sheets('heure').Select
ActiveWorkbook.SaveAs Filename:= _
'K:\\Process\\Perf_environnement\\Echange\\heure.txt', FileFormat:=xlText, _
CreateBackup:=False
ActiveWorkbook.SaveAs Filename:= _
'K:\\Process\\Perf_environnement\\Echange\\bilan1_mensu.xls', FileFormat:= _
xlNormal, Password:='', WriteResPassword:='', ReadOnlyRecommended:=False _
, CreateBackup:=False
Sheets('coefficient').Select
ActiveWorkbook.SaveAs Filename:= _
'K:\\Process\\Perf_environnement\\Echange\\coefficient.txt', FileFormat:=xlText, _
CreateBackup:=False
ActiveWorkbook.SaveAs Filename:= _
'K:\\Process\\Perf_environnement\\Echange\\bilan1_mensu.xls', FileFormat:= _
xlNormal, Password:='', WriteResPassword:='', ReadOnlyRecommended:=False _
, CreateBackup:=False
Sheets('evenement').Select
ActiveWorkbook.SaveAs Filename:= _
'K:\\Process\\Perf_environnement\\Echange\\evenement.txt', FileFormat:=xlText, _
CreateBackup:=False
ActiveWorkbook.SaveAs Filename:= _
'K:\\Process\\Perf_environnement\\Echange\\bilan1_mensu.xls', FileFormat:= _
xlNormal, Password:='', WriteResPassword:='', ReadOnlyRecommended:=False _
, CreateBackup:=False
Range('A1').Select

 

[françois]

tout simplement en faisant:
Application.DisplayAlerts = False
qui désactive les alertes!
J'espere que ça marchera

 

[STephane]

si veux simplement qu'Excel ne te pose pas la question et écrase les
fichiers existants, tu peux le faire plus simplement avec
application.displayalerts=false :


Sub test2()
name1 = 'd:temp0.xls'
Application.DisplayAlerts = False
ActiveWorkbook.saveas FileName:=name1, FileFormat:=xlNormal, _
Password:='', WriteResPassword:='', ReadOnlyRecommended:=False, _
CreateBackup:=False
Application.DisplayAlerts = True
End Sub

(extrait réponse iznogood 07/2000 sur groupe MPFE)

 

[alainca31]

merci ca fonctionne impec