Comment evité boite de dialogue sur enregistrement ?

[fredh]

[Resolu] Comment evité boite de dialogue sur enregistrement ?

Bonjour a tous

J'ai fait une macros qui m'ouvre des dichier csv, les travail puis les enregistre le fichier au format nomfichier.xls. Seulement lorsque le fichier existe deja j'ai une boite de dialogue qui s'ouvreet qui me demande si je veut enregistré le fichier par dessus le nomfichier.xls existant.

Comment evité cela ?
Voici la macros epurée :

Sub aCSV_BMW_DC_Soma2()
'recherche du chemin du fichier ouvert
Path_Desti = ActiveWorkbook.Path & "\"
'recherche du nom du fichier ouvert
Nom_Orig = ActiveWorkbook.Name
 
'gel de l'ecran excel pour acceleré le processus
Application.ScreenUpdating = False
 
'Traitement ...
'Traitement ...
'Traitement ...
 
Range("A2").Select
ActiveWorkbook.SaveAs Filename:=Path_Desti & Left(Nom_Orig, (Len(Nom_Orig) - 4)) & ".xls", FileFormat:=xlExcel9795, Password:="", _
        WriteResPassword:="", ReadOnlyRecommended:=False, CreateBackup:=False
Application.ScreenUpdating = True
End Sub

Voila j'espere avoir été clair.

Merci de m'aider
@+

 

[pierrejean]

Re : Comment evité boite de dialogue sur enregistrement ?

bonjour fredh

teste (en supposant que tu veuilles ecraser le fichier csv)

Range("A2").Select
[COLOR=red]Application.DisplayAlerts = False[/COLOR]
ActiveWorkbook.SaveAs Filename:=Path_Desti & Left(Nom_Orig, (Len(Nom_Orig) - 4)) & ".xls", FileFormat:=xlExcel9795, Password:="", _
        WriteResPassword:="", ReadOnlyRecommended:=False, CreateBackup:=False
[COLOR=red]Application.DisplayAlerts = True
[/COLOR]Application.ScreenUpdating = True

 

[fredh]

Re : Comment evité boite de dialogue sur enregistrement ?

Bonjour Pierrejean

Ca fait plaisir de te lire.

Ca roule, la modif est correcte

Je change le titre du post en resolu.

Merci beaucoup pour ton aide.

@+