SaveAs sur objet Workbook sans confirmation ??

[Gérard Legrand]

Bonjour,

Je suis sur un Problème tout bête, mais impossible de m'en sortir...
J'ai un fichier Excel ouvert avec un Pg VBA (Excel 97)
Je veux faire un SaveAs de ce fichier avec un nom bien precis :
Je fais donc

ActiveWorkbook.SaveAs Filename:="c:\toto.xls"
'Or c:\toto.xls existe deja et est eventuellement ouvert, il n'est pas en
lecture seule, j'ai les droits sur le fichier, etc... Je voudrait qu'il
l'ecrase SANS DEMANDER CONFIRMATION PAR BOITE DE DIALOGUE.

Quelqu'un a t il déjà rencontré le Pb? Comment le résoudre, ou comment le
contourner ?

Merci d'avance

Gérard

[Bertrand Morin]

Tu peux ajouter une constante à la fonction SaveAs (source = MSDN), mais je
ne l'ai jamais testée...

Syntaxe 1
WorkBook.SaveAs(FileName, SaveOption)

Syntaxe 2
WorkBook.SaveAs(FileName)

Le paramètre SaveOption est facultatif et de type variant. Voici les valeurs
qu'il peut prendre :

- bindFailIfFileExists
If FileName exists, an error occurs (FileName must be specified). This
constant is the default value.

- bindOverwriteExisting
If FileName exists, SaveAs overwrites it (FileName must be specified).

- bindDisplayDialog
Displays the Save As dialog box (FileName is optional). If the user
closes the Save As dialog box without saving, SaveAs returns False.

[Bertrand Morin]

Désolé, mais cette option ne s'applique pas à l'objet WorkBook (s'applique
aux objets Binder et Section).
La solution est de tester grâce à la fonction Dir() si ton fichier existe et
de le supprimer avec Kill si c'est le cas...