Sauvegarde / empecher ecrasement

Bonjour.
Utilise :

Dim fso As New Scripting.FileSystemObject
If fso.FileExists("c:tonfichier.xls") = True Then
MsgBox "le fichier existe"
End If

(en ajoutant "Microsoft Scripting Runtime" dans les références).
Cordialement.
Daniel
"Excel...lent" <vpco97@orange.fr> a écrit dans le message de news:
991E405F-507C-432E-8879-8D749576AFA1@microsoft.com...

Bonjour la communauté,

J'ai une application qui me sert de matrice ( modèle ) c'est à dire
qu'après réglages elle se recopie elle même en changeant de nom grâce à :
ThisWorkbook.SaveAs Filename:=NomFich
Nota "Nomfich" est une variable dans laquelle j'intègre ThisWorkbook.Path
+ le nom du fichier que j'attends ( ce nom dépend des réglages de la
matrice ).
Exemple avec ma matrice j'ai crée le fichier "zaza_sem12.xls".
Toujours avec ma matrice si je fais de nouveau les mêmes réglages et que
je veux créer le fichier "zaza_sem12.xls"
j'ai bien entendu le gentil message de windows :
Un fichier nommé 'zaza_sem12.xls' existe déjà à cet emplacement.
Voulez-vous le remplacer?
Oui / Non / Annuler.

Oui je sais, pourquoi je cliques pas tout simplement sur "Non".
Effectivement cela pourrait être une solution mais disons que je
souhaiterais que d'autres utilisateurs ne fasse pas la boulette d'écraser
le fichier existant. Et puis moi-même après une soirée ZOUK endiablée et
arrosée je pourrais bien cliquer sur "Oui" ....... lol

Donc
Est-il possible soit d'empêcher l'affichage de ce message et interdir
l'ecrasement ?
ou alors neutraliser le bouton Oui ?

Merci de votre aide.

Cordialement

Excel...lent

N'hésitez pas à visiter ces mines d'or ! ! !
http://www.excelabo.net/
http://xlwiki.free.fr/wiki/wakka.php?wiki=PageAccueil
http://frederic.sigonneau.free.fr/
http://dj.joss.free.fr/
http://www.cathyastuce.com/excel.htm
http://jacxl.free.fr/cours_xl/cadres.html?ex > http://www.dualforum.com/
http://www.excel-downloads.com/forum/forum-excel/
http://boisgontierjacques.free.fr/

Salut Daniel,

Merci pour ton aide.
Je vais t'expliquer ou j'ai inséré ton bout de code et surtout ce qui se
passe que je trouve bizzare...
Voici mon code avant ta proposition :

Blabla = Correspond aux premières instructions qui s'occupent de modifier
mon classeur actif qui me sert de MATRICE

Private Sub CreatNewClass()

Blabla

' Copie et sauvegarde du classeur MATRICE modifié
NomClass = Service & "_AN" & NumAn & "-" & NumSem
NomFich = ThisWorkbook.Path & "" & NomClass & ".xls"
ThisWorkbook.SaveAs Filename:=NomFich
End Sub

Donc avec ce code quand je créais une copie qui existait déjà et si je
répondais OUI à la question j'écrasais ma copie.
Ceci étant avec ce code le classeur MATRICE n'enregistrait pas les
modifications qui lui étaient faite avant sauvegarde d'une copie.
Voila comment j'ai insérer ta proposition :

Private Sub CreatNewClass()
Dim fso As New Scripting.FileSystemObject

Blabla

' Copie et sauvegarde du classeur actif modifié
NomClass = Service & "_AN" & NumAn & "-" & NumSem
NomFich = ThisWorkbook.Path & "" & NomClass & ".xls"

If fso.FileExists(NomFich) = True Then
MsgBox "le fichier existe"
Application.Quit
Exit Sub
End If

ThisWorkbook.SaveAs Filename:=NomFich
End Sub

Alors effectivement cela fonctionne à savoir que la MsgBox s'affiche bien et
la tentative d'écraser une copie déjà existante n'est pas prise en compte.
par contre le classeur qui me sert de MATRICE lui se ferme comme avec
l'ancien code mais il enregistre les modifications et la j'avoue que je
sèche.
Je ne comprens pas puisque après affichage du MsgBox j'ai mis
"Application.Quit" puis j'avorte mon code avec "Exit sub".

Une idée ?

Cordialement

Marc

Re Daniel,

Je viens de "percuter" à l'instant. Je pense que je vais transformer mon
classeur MATRICE en modèle (.xlt).
Je viens d'essayer et cela semble etre une piste.
Ceci dit si tu peux avance sur ma demande je suis également preneur.
Merci.
Cordialement
Marc

Salut Daniel,
Désolé d'être envahissant.
Juste pour te dire de laisser tomber.
Ta soluce fonctionne parfaitement.
C'est juste moi qui avait un petit "ActiveWorkbook.Save" qui trainaît
malencontreusement dans mon évenement "Workbook_BeforeClose" du
ThisWorkbook....
Tu m'étonnes que la MATRICE enregistrait les modifs en quittant au moment de
la copie ! ! !
C'est balot. ;-))))
Merci beaucoup de ta suggestion.
A charge de revanche.
Cordialement.
Marc

N'hésitez pas à visiter ces mines d'or ! ! !
http://www.excelabo.net/
http://xlwiki.free.fr/wiki/wakka.php?wiki=PageAccueil
http://frederic.sigonneau.free.fr/
http://dj.joss.free.fr/
http://www.cathyastuce.com/excel.htm
http://jacxl.free.fr/cours_xl/cadres.html?ex http://www.dualforum.com/
http://www.excel-downloads.com/forum/forum-excel/
http://boisgontierjacques.free.fr/