VBA save file en remplacement de fichier existant

-----Message d'origine-----
Bonjour,

Je bute sur un petit pb VBA de sauvegarde de fichier.

La macro ci-dessous me fait apparaitre une boite de
dialogue qui me demande mon acceptation de sauvegarder le
fichier que je viens de modifier.
******************************
** Ce que je veux faire est une sauvegarde qu'il y ait ou
non une ancienne version de fichier **
******************************
Merci de m'éclairer

Sub savefile()
'
' savefile Macro
' Macro enregistrée le 26/09/2003 par bibi'

'
ActiveWorkbook.SaveAs
Filename:="e:mondirmonfile.XLS", FileFormat _
:=xlNormal, Password:="", WriteResPassword:="",
ReadOnlyRecommended:= _
False, CreateBackup:=False
End sub


.

-----Message d'origine-----
Re bonjour,

Je suis d'accord mais ce n'est pas ma question.

Je veux sauvegardé le fichier ouvert, qu'il y ait déjà ou
non un fichier sauvegardé, sans avoir le masque d'écran
qui me demande si je veux sauvegarder ou non le fichier.

jipi

-----Message d'origine-----
Bonjour,

Tu peux tester si le fichier ouvert a déjà été
sauvegardé :

If ActiveWorkbook.Path = "" Then _
ActiveWorkbook.SaveAs FileName:="..."

Camille

-----Message d'origine-----
Bonjour,

Je bute sur un petit pb VBA de sauvegarde de fichier.

La macro ci-dessous me fait apparaitre une boite de
dialogue qui me demande mon acceptation de sauvegarder
le

fichier que je viens de modifier.
******************************
** Ce que je veux faire est une sauvegarde qu'il y ait
ou

non une ancienne version de fichier **
******************************
Merci de m'éclairer

Sub savefile()
'
' savefile Macro
' Macro enregistrée le 26/09/2003 par bibi'

'
ActiveWorkbook.SaveAs
Filename:="e:mondirmonfile.XLS", FileFormat _
:=xlNormal, Password:="", WriteResPassword:="",
ReadOnlyRecommended:= _
False, CreateBackup:=False
End sub


.

.

.

-----Message d'origine-----
Bonjour,

et ceci vous convient mieux ?

Sub SaveFile()
'

Application.DisplayAlerts = False

ActiveWorkbook.SaveAs
Filename:="c:documentmonfile.XLS", _
FileFormat:=xlNormal, _
Password:="", WriteResPassword:="", _
ReadOnlyRecommended:= _
False, CreateBackup:=False

Application.DisplayAlerts = True


End Sub

Amicalement
Michel

-----Message d'origine-----
Re bonjour,

Je suis d'accord mais ce n'est pas ma question.

Je veux sauvegardé le fichier ouvert, qu'il y ait déjà
ou

non un fichier sauvegardé, sans avoir le masque d'écran
qui me demande si je veux sauvegarder ou non le fichier.

jipi

-----Message d'origine-----
Bonjour,

Tu peux tester si le fichier ouvert a déjà été
sauvegardé :

If ActiveWorkbook.Path = "" Then _
ActiveWorkbook.SaveAs FileName:="..."

Camille

-----Message d'origine-----
Bonjour,

Je bute sur un petit pb VBA de sauvegarde de fichier.

La macro ci-dessous me fait apparaitre une boite de
dialogue qui me demande mon acceptation de sauvegarder
le

fichier que je viens de modifier.
******************************
** Ce que je veux faire est une sauvegarde qu'il y ait
ou

non une ancienne version de fichier **
******************************
Merci de m'éclairer

Sub savefile()
'
' savefile Macro
' Macro enregistrée le 26/09/2003 par bibi'

'
ActiveWorkbook.SaveAs
Filename:="e:mondirmonfile.XLS", FileFormat _
:=xlNormal, Password:="",
WriteResPassword:="",

ReadOnlyRecommended:= _
False, CreateBackup:=False
End sub


.

.

.

.