serait-ce une erreur...

jps,
le silence autour de ta question est assourdissant.
Excel2000 gère parfaitement ce travail...
tu vas certainement pouvoir ajouter à ton curriculum..
NoAddressNoPhoneNoMoneyNoSaveAs
;-))))

-----Message d'origine-----
.....de mes sens abusés?
bonjour (c)

une bonne âme (d'accord c'est rare, mais bon..) saurait-
elle me dire

pourquoi avec XL97 cette sauvegarde sauve et garde
normalement alors qu'avec

XL2002, y en a rien dans le C:Sauvegarde automatique?
pas la queue d'un

Perso2.xls...

Private Sub Workbook_BeforeClose(Cancel As Boolean)
ThisWorkbook.SaveCopyAs "C:Sauvegarde Automatique" &
Left(ThisWorkbook.Name, Len(ThisWorkbook.Name) - 4)
& "2.xls"

End Sub

vous comprenez qu'après toutes les manips que m'a fait
faire Daniel M et qui

n'ont pas manqué de rendre jalouse mon ennemie jurée
(oui, oui, vous avez

bien deviné...c'est la misange) dont l'excelabo new look
me fait

définitivement renoncé au lifting que j'envisageais pour
moi-même, contre,

d'ailleurs, l'avis de mon entourage qui m'assure que je
n'en ai nul besoin

alors que d'autres...(oui, oui, vous avez toujours bien
deviné), qu'après

toutes ces manips, disais-je, j'ai grand intérêt à
mettre l'usine à gaz au

chaud...
jps



.

Bonjour JPS,

Et si tu essayais comme ceci :

'---------------------------------
Private Sub Workbook_Open()
Dim Nouveau As String

Nouveau = ThisWorkbook.Name
If UCase(Right(Nouveau, 4)) Like ".XLS" Then
Nouveau = Left(Nouveau, Len(Nouveau) - 4) & "2.xls"
Else
Nouveau = Nouveau & ".xls"
End If
ThisWorkbook.SaveCopyAs "C:Sauvegarde Automatique" & Nouveau
End Sub
'---------------------------------

Évidemment cela suppose que le chemin est valide, et que tu ne tentes pas d'enregistrer ton fichier une deuxième fois sous le
même nom.


Salutations!


"jps" <NoAddressNoPhoneNoMoney@NoWorries.bjl> a écrit dans le message de news:Ocasws4fEHA.3428@TK2MSFTNGP11.phx.gbl...
....de mes sens abusés?
bonjour (c)

une bonne âme (d'accord c'est rare, mais bon..) saurait-elle me dire
pourquoi avec XL97 cette sauvegarde sauve et garde normalement alors qu'avec
XL2002, y en a rien dans le C:Sauvegarde automatique? pas la queue d'un
Perso2.xls...

Private Sub Workbook_BeforeClose(Cancel As Boolean)
ThisWorkbook.SaveCopyAs "C:Sauvegarde Automatique" &
Left(ThisWorkbook.Name, Len(ThisWorkbook.Name) - 4) & "2.xls"
End Sub

vous comprenez qu'après toutes les manips que m'a fait faire Daniel M et qui
n'ont pas manqué de rendre jalouse mon ennemie jurée (oui, oui, vous avez
bien deviné...c'est la misange) dont l'excelabo new look me fait
définitivement renoncé au lifting que j'envisageais pour moi-même, contre,
d'ailleurs, l'avis de mon entourage qui m'assure que je n'en ai nul besoin
alors que d'autres...(oui, oui, vous avez toujours bien deviné), qu'après
toutes ces manips, disais-je, j'ai grand intérêt à mettre l'usine à gaz au
chaud...
jps

en effet, marc, il m'a secoué les trompes d'eustache une bonne partie de la
journée...
si tu m'assures qu'XL 2002 (chez moi) fait bien ce travail, c'est alors que
le problème est entre le siège et le clavier...
tiens, tu me donnes une idée : je vais essayer avec seulement SaveAs et voir
si la bête renâcle de la même façon...
en tous cas, merci pour ta réponse qui, si elle ne m'a pas apaisé du côté de
VBA, a eu le mérite de faire taire le silence...
jps

"Marc" <anonymous@discussions.microsoft.com> a écrit dans le message de
news:3f2201c47fb0$1f35d5d0$a301280a@phx.gbl...
jps,
le silence autour de ta question est assourdissant.
Excel2000 gère parfaitement ce travail...
tu vas certainement pouvoir ajouter à ton curriculum..
NoAddressNoPhoneNoMoneyNoSaveAs
;-))))

-----Message d'origine-----
.....de mes sens abusés?
bonjour (c)

une bonne âme (d'accord c'est rare, mais bon..) saurait-
elle me dire

pourquoi avec XL97 cette sauvegarde sauve et garde
normalement alors qu'avec

XL2002, y en a rien dans le C:Sauvegarde automatique?
pas la queue d'un

Perso2.xls...

Private Sub Workbook_BeforeClose(Cancel As Boolean)
ThisWorkbook.SaveCopyAs "C:Sauvegarde Automatique" &
Left(ThisWorkbook.Name, Len(ThisWorkbook.Name) - 4)
& "2.xls"

End Sub

vous comprenez qu'après toutes les manips que m'a fait
faire Daniel M et qui

n'ont pas manqué de rendre jalouse mon ennemie jurée
(oui, oui, vous avez

bien deviné...c'est la misange) dont l'excelabo new look
me fait

définitivement renoncé au lifting que j'envisageais pour
moi-même, contre,

d'ailleurs, l'avis de mon entourage qui m'assure que je
n'en ai nul besoin

alors que d'autres...(oui, oui, vous avez toujours bien
deviné), qu'après

toutes ces manips, disais-je, j'ai grand intérêt à
mettre l'usine à gaz au

chaud...
jps



.

ouhhhhhhhhhhhhhh merci denis...
à l'inverse de william, ce soir, comme pas mal de soirs, j'ai soirée libre :
alors, je vais essayer ta proc..
je te tiens au courant, oeuf corse
merci encore
jps

"michdenis" <michdenis@hotmail.com> a écrit dans le message de
news:Os0$BG7fEHA.4092@TK2MSFTNGP10.phx.gbl...

Bonjour JPS,

Et si tu essayais comme ceci :

'---------------------------------
Private Sub Workbook_Open()
Dim Nouveau As String

Nouveau = ThisWorkbook.Name
If UCase(Right(Nouveau, 4)) Like ".XLS" Then
Nouveau = Left(Nouveau, Len(Nouveau) - 4) & "2.xls"
Else
Nouveau = Nouveau & ".xls"
End If
ThisWorkbook.SaveCopyAs "C:Sauvegarde Automatique" & Nouveau
End Sub
'---------------------------------

Évidemment cela suppose que le chemin est valide, et que tu ne tentes pas
d'enregistrer ton fichier une deuxième fois sous le

même nom.


Salutations!


"jps" <NoAddressNoPhoneNoMoney@NoWorries.bjl> a écrit dans le message de
news:Ocasws4fEHA.3428@TK2MSFTNGP11.phx.gbl...

....de mes sens abusés?
bonjour (c)

une bonne âme (d'accord c'est rare, mais bon..) saurait-elle me dire
pourquoi avec XL97 cette sauvegarde sauve et garde normalement alors
qu'avec

XL2002, y en a rien dans le C:Sauvegarde automatique? pas la queue d'un
Perso2.xls...

Private Sub Workbook_BeforeClose(Cancel As Boolean)
ThisWorkbook.SaveCopyAs "C:Sauvegarde Automatique" &
Left(ThisWorkbook.Name, Len(ThisWorkbook.Name) - 4) & "2.xls"
End Sub

vous comprenez qu'après toutes les manips que m'a fait faire Daniel M et
qui

n'ont pas manqué de rendre jalouse mon ennemie jurée (oui, oui, vous avez
bien deviné...c'est la misange) dont l'excelabo new look me fait
définitivement renoncé au lifting que j'envisageais pour moi-même, contre,
d'ailleurs, l'avis de mon entourage qui m'assure que je n'en ai nul besoin
alors que d'autres...(oui, oui, vous avez toujours bien deviné), qu'après
toutes ces manips, disais-je, j'ai grand intérêt à mettre l'usine à gaz au
chaud...
jps

salut mon petit jps
je vois que tu es toujours aussi précis, puissant, divin dans tes réponses (dont la terre entiére se fout complétement)
Bon, j'ai acheté quelques bgl (bombes guidées laser) et autres nouveautés :o)))

--
Pierre CFI
MVP Microsoft Access
Mail : http://cerbermail.com/?z0SN8cN53B

Ton code devrait fonctionner JPS... sauf si tu as réellement oublié dans ton application d'ajouter après l 'esperluette "&"
le "underscore( "_") à la fin de la première ligne de code : Comme ceci :

ThisWorkbook.SaveCopyAs "C:Sauvegarde Automatique" & _
Left(ThisWorkbook.Name, Len(ThisWorkbook.Name) - 4) & "2.xls"


Salutations!


"jps" <NoAddressNoPhoneNoMoney@NoWorries.bjl> a écrit dans le message de news:etFhiS8fEHA.2468@TK2MSFTNGP12.phx.gbl...
ouhhhhhhhhhhhhhh merci denis...
à l'inverse de william, ce soir, comme pas mal de soirs, j'ai soirée libre :
alors, je vais essayer ta proc..
je te tiens au courant, oeuf corse
merci encore
jps

"michdenis" <michdenis@hotmail.com> a écrit dans le message de
news:Os0$BG7fEHA.4092@TK2MSFTNGP10.phx.gbl...

Bonjour JPS,

Et si tu essayais comme ceci :

'---------------------------------
Private Sub Workbook_Open()
Dim Nouveau As String

Nouveau = ThisWorkbook.Name
If UCase(Right(Nouveau, 4)) Like ".XLS" Then
Nouveau = Left(Nouveau, Len(Nouveau) - 4) & "2.xls"
Else
Nouveau = Nouveau & ".xls"
End If
ThisWorkbook.SaveCopyAs "C:Sauvegarde Automatique" & Nouveau
End Sub
'---------------------------------

Évidemment cela suppose que le chemin est valide, et que tu ne tentes pas
d'enregistrer ton fichier une deuxième fois sous le

même nom.


Salutations!


"jps" <NoAddressNoPhoneNoMoney@NoWorries.bjl> a écrit dans le message de
news:Ocasws4fEHA.3428@TK2MSFTNGP11.phx.gbl...

....de mes sens abusés?
bonjour (c)

une bonne âme (d'accord c'est rare, mais bon..) saurait-elle me dire
pourquoi avec XL97 cette sauvegarde sauve et garde normalement alors
qu'avec

XL2002, y en a rien dans le C:Sauvegarde automatique? pas la queue d'un
Perso2.xls...

Private Sub Workbook_BeforeClose(Cancel As Boolean)
ThisWorkbook.SaveCopyAs "C:Sauvegarde Automatique" &
Left(ThisWorkbook.Name, Len(ThisWorkbook.Name) - 4) & "2.xls"
End Sub

vous comprenez qu'après toutes les manips que m'a fait faire Daniel M et
qui

n'ont pas manqué de rendre jalouse mon ennemie jurée (oui, oui, vous avez
bien deviné...c'est la misange) dont l'excelabo new look me fait
définitivement renoncé au lifting que j'envisageais pour moi-même, contre,
d'ailleurs, l'avis de mon entourage qui m'assure que je n'en ai nul besoin
alors que d'autres...(oui, oui, vous avez toujours bien deviné), qu'après
toutes ces manips, disais-je, j'ai grand intérêt à mettre l'usine à gaz au
chaud...
jps

eh ben, denis, je vais te surprendre :
ce code marche avec le Workbook Open (et c'est toi qui m'as donné l'idée
d'essayer puisque tu avais mis ton exemple avec Nouveau dans cet évènement)
alors qu'il NE marche pas avec BeforeClose...et quand je dis qu'il ne marche
pas, c'est avec XL 2002 car avec XL97, ça gazouille allègrement....si
quelqu'un veut faire cet essai, cela me sortirait de cette angoisse qui
m'envahit face à ce mystère....
pour info, denis, j'ai essayé ta proc du Nouveau mais elle m'a créé un
perso2.xls à la place du perso.xls dans l'arborescence VBE....bouh, j'ai
bien cru avoir tout fichu en l'air parce que si daniel M a bien rigolé à
détruite tous ces modules, moi ce serait un coup à me faire pleurer....
finalement, ça marche avec le Open, ce qui n'est pas si mal, même si la
sauvegarde ne pourra pas prendre en compte les modifs faites entre chaque
ouverture et fermeture...
merci encore
jps

"michdenis" <michdenis@hotmail.com> a écrit dans le message de
news:Oog9sC9fEHA.1196@TK2MSFTNGP11.phx.gbl...

Ton code devrait fonctionner JPS... sauf si tu as réellement oublié dans
ton application d'ajouter après l 'esperluette "&"

le "underscore( "_") à la fin de la première ligne de code : Comme ceci :

ThisWorkbook.SaveCopyAs "C:Sauvegarde Automatique" & _
Left(ThisWorkbook.Name, Len(ThisWorkbook.Name) - 4) & "2.xls"


Salutations!


"jps" <NoAddressNoPhoneNoMoney@NoWorries.bjl> a écrit dans le message de
news:etFhiS8fEHA.2468@TK2MSFTNGP12.phx.gbl...

ouhhhhhhhhhhhhhh merci denis...
à l'inverse de william, ce soir, comme pas mal de soirs, j'ai soirée libre
:

alors, je vais essayer ta proc..
je te tiens au courant, oeuf corse
merci encore
jps

"michdenis" <michdenis@hotmail.com> a écrit dans le message de
news:Os0$BG7fEHA.4092@TK2MSFTNGP10.phx.gbl...

Bonjour JPS,

Et si tu essayais comme ceci :

'---------------------------------
Private Sub Workbook_Open()
Dim Nouveau As String

Nouveau = ThisWorkbook.Name
If UCase(Right(Nouveau, 4)) Like ".XLS" Then
Nouveau = Left(Nouveau, Len(Nouveau) - 4) & "2.xls"
Else
Nouveau = Nouveau & ".xls"
End If
ThisWorkbook.SaveCopyAs "C:Sauvegarde Automatique" & Nouveau
End Sub
'---------------------------------

Évidemment cela suppose que le chemin est valide, et que tu ne tentes
pas

d'enregistrer ton fichier une deuxième fois sous le

même nom.


Salutations!


"jps" <NoAddressNoPhoneNoMoney@NoWorries.bjl> a écrit dans le message de
news:Ocasws4fEHA.3428@TK2MSFTNGP11.phx.gbl...

....de mes sens abusés?
bonjour (c)

une bonne âme (d'accord c'est rare, mais bon..) saurait-elle me dire
pourquoi avec XL97 cette sauvegarde sauve et garde normalement alors
qu'avec

XL2002, y en a rien dans le C:Sauvegarde automatique? pas la queue d'un
Perso2.xls...

Private Sub Workbook_BeforeClose(Cancel As Boolean)
ThisWorkbook.SaveCopyAs "C:Sauvegarde Automatique" &
Left(ThisWorkbook.Name, Len(ThisWorkbook.Name) - 4) & "2.xls"
End Sub

vous comprenez qu'après toutes les manips que m'a fait faire Daniel M et
qui

n'ont pas manqué de rendre jalouse mon ennemie jurée (oui, oui, vous
avez

bien deviné...c'est la misange) dont l'excelabo new look me fait
définitivement renoncé au lifting que j'envisageais pour moi-même,
contre,

d'ailleurs, l'avis de mon entourage qui m'assure que je n'en ai nul
besoin

alors que d'autres...(oui, oui, vous avez toujours bien deviné),
qu'après

toutes ces manips, disais-je, j'ai grand intérêt à mettre l'usine à gaz
au

chaud...
jps

Bonjour JPS,

Je suis actuellement sous Excel 2003, et ta procédure fonctionne lorsqu'elle est activée par l'événement
"Workbook_BeforeClose" sans aucun problème.

L'histoire du fichier créé dans l'arborescence ... je n'ai pas trop suivi ...si ce n'est pas ce que tu cherches ...


Salutations!




"sabatier" <biscotteUnScudJpsabatdelaile@wanadoo.fr> a écrit dans le message de
news:e9$HRQ%23fEHA.712@TK2MSFTNGP09.phx.gbl...
eh ben, denis, je vais te surprendre :
ce code marche avec le Workbook Open (et c'est toi qui m'as donné l'idée
d'essayer puisque tu avais mis ton exemple avec Nouveau dans cet évènement)
alors qu'il NE marche pas avec BeforeClose...et quand je dis qu'il ne marche
pas, c'est avec XL 2002 car avec XL97, ça gazouille allègrement....si
quelqu'un veut faire cet essai, cela me sortirait de cette angoisse qui
m'envahit face à ce mystère....
pour info, denis, j'ai essayé ta proc du Nouveau mais elle m'a créé un
perso2.xls à la place du perso.xls dans l'arborescence VBE....bouh, j'ai
bien cru avoir tout fichu en l'air parce que si daniel M a bien rigolé à
détruite tous ces modules, moi ce serait un coup à me faire pleurer....
finalement, ça marche avec le Open, ce qui n'est pas si mal, même si la
sauvegarde ne pourra pas prendre en compte les modifs faites entre chaque
ouverture et fermeture...
merci encore
jps

"michdenis" <michdenis@hotmail.com> a écrit dans le message de
news:Oog9sC9fEHA.1196@TK2MSFTNGP11.phx.gbl...

Ton code devrait fonctionner JPS... sauf si tu as réellement oublié dans
ton application d'ajouter après l 'esperluette "&"

le "underscore( "_") à la fin de la première ligne de code : Comme ceci :

ThisWorkbook.SaveCopyAs "C:Sauvegarde Automatique" & _
Left(ThisWorkbook.Name, Len(ThisWorkbook.Name) - 4) & "2.xls"


Salutations!


"jps" <NoAddressNoPhoneNoMoney@NoWorries.bjl> a écrit dans le message de
news:etFhiS8fEHA.2468@TK2MSFTNGP12.phx.gbl...

ouhhhhhhhhhhhhhh merci denis...
à l'inverse de william, ce soir, comme pas mal de soirs, j'ai soirée libre
:

alors, je vais essayer ta proc..
je te tiens au courant, oeuf corse
merci encore
jps

"michdenis" <michdenis@hotmail.com> a écrit dans le message de
news:Os0$BG7fEHA.4092@TK2MSFTNGP10.phx.gbl...

Bonjour JPS,

Et si tu essayais comme ceci :

'---------------------------------
Private Sub Workbook_Open()
Dim Nouveau As String

Nouveau = ThisWorkbook.Name
If UCase(Right(Nouveau, 4)) Like ".XLS" Then
Nouveau = Left(Nouveau, Len(Nouveau) - 4) & "2.xls"
Else
Nouveau = Nouveau & ".xls"
End If
ThisWorkbook.SaveCopyAs "C:Sauvegarde Automatique" & Nouveau
End Sub
'---------------------------------

Évidemment cela suppose que le chemin est valide, et que tu ne tentes
pas

d'enregistrer ton fichier une deuxième fois sous le

même nom.


Salutations!


"jps" <NoAddressNoPhoneNoMoney@NoWorries.bjl> a écrit dans le message de
news:Ocasws4fEHA.3428@TK2MSFTNGP11.phx.gbl...

....de mes sens abusés?
bonjour (c)

une bonne âme (d'accord c'est rare, mais bon..) saurait-elle me dire
pourquoi avec XL97 cette sauvegarde sauve et garde normalement alors
qu'avec

XL2002, y en a rien dans le C:Sauvegarde automatique? pas la queue d'un
Perso2.xls...

Private Sub Workbook_BeforeClose(Cancel As Boolean)
ThisWorkbook.SaveCopyAs "C:Sauvegarde Automatique" &
Left(ThisWorkbook.Name, Len(ThisWorkbook.Name) - 4) & "2.xls"
End Sub

vous comprenez qu'après toutes les manips que m'a fait faire Daniel M et
qui

n'ont pas manqué de rendre jalouse mon ennemie jurée (oui, oui, vous
avez

bien deviné...c'est la misange) dont l'excelabo new look me fait
définitivement renoncé au lifting que j'envisageais pour moi-même,
contre,

d'ailleurs, l'avis de mon entourage qui m'assure que je n'en ai nul
besoin

alors que d'autres...(oui, oui, vous avez toujours bien deviné),
qu'après

toutes ces manips, disais-je, j'ai grand intérêt à mettre l'usine à gaz
au

chaud...
jps

z'auraient bien dû te cloîtrer les bonne soeurs plutôt que te lâcher pour
une retraite dont on ne saurait dire si elle est bien méritée....j'espère
qu'avant ton départ, tu leur as laissé l'adresse du mpfe afin qu'elles se
rendent compte combien l'individu qui les a formées est odieux avec un
pauvre viellard et qu'elles veuillent bien prier pour le salut de son âme
(je parle de celle du vieillard, pas de la tienne)
jps

"Pierre CFI [mvp]" <XXX_pierresalaun@aol.com> a écrit dans le message de
news:ec605W8fEHA.1428@TK2MSFTNGP10.phx.gbl...

salut mon petit jps
je vois que tu es toujours aussi précis, puissant, divin dans tes réponses
(dont la terre entiére se fout complétement)

Bon, j'ai acheté quelques bgl (bombes guidées laser) et autres nouveautés
:o)))

--
Pierre CFI
MVP Microsoft Access
Mail : http://cerbermail.com/?z0SN8cN53B

bonjour denis,
je te crois volontiers mais chez moi (XL2002), ça ne cesse de renâcler et je
me demandais si ces fichiers temporaires qui se créent avec l'environnement
XP n'en étaient pas la cause....
le fichier perso2.xls je ne le veux pas dans VBE mais dans un répertoire à
la racine de C:
sur ce, je vais aller me coucher, sachant que je ne dors toudi que d'un oeil
pour ne pas fatiguer l'autre...
jps

"michdenis" <michdenis@hotmail.com> a écrit dans le message de
news:%23gK5Ub%23fEHA.3676@TK2MSFTNGP12.phx.gbl...

Bonjour JPS,

Je suis actuellement sous Excel 2003, et ta procédure fonctionne
lorsqu'elle est activée par l'événement

"Workbook_BeforeClose" sans aucun problème.

L'histoire du fichier créé dans l'arborescence ... je n'ai pas trop suivi
...si ce n'est pas ce que tu cherches ...

Salutations!




"sabatier" <biscotteUnScudJpsabatdelaile@wanadoo.fr> a écrit dans le
message de

news:e9$HRQ%23fEHA.712@TK2MSFTNGP09.phx.gbl...
eh ben, denis, je vais te surprendre :
ce code marche avec le Workbook Open (et c'est toi qui m'as donné l'idée
d'essayer puisque tu avais mis ton exemple avec Nouveau dans cet
évènement)

alors qu'il NE marche pas avec BeforeClose...et quand je dis qu'il ne
marche

pas, c'est avec XL 2002 car avec XL97, ça gazouille allègrement....si
quelqu'un veut faire cet essai, cela me sortirait de cette angoisse qui
m'envahit face à ce mystère....
pour info, denis, j'ai essayé ta proc du Nouveau mais elle m'a créé un
perso2.xls à la place du perso.xls dans l'arborescence VBE....bouh, j'ai
bien cru avoir tout fichu en l'air parce que si daniel M a bien rigolé à
détruite tous ces modules, moi ce serait un coup à me faire pleurer....
finalement, ça marche avec le Open, ce qui n'est pas si mal, même si la
sauvegarde ne pourra pas prendre en compte les modifs faites entre chaque
ouverture et fermeture...
merci encore
jps

"michdenis" <michdenis@hotmail.com> a écrit dans le message de
news:Oog9sC9fEHA.1196@TK2MSFTNGP11.phx.gbl...

Ton code devrait fonctionner JPS... sauf si tu as réellement oublié dans
ton application d'ajouter après l 'esperluette "&"

le "underscore( "_") à la fin de la première ligne de code : Comme ceci
:

ThisWorkbook.SaveCopyAs "C:Sauvegarde Automatique" & _
Left(ThisWorkbook.Name, Len(ThisWorkbook.Name) - 4) & "2.xls"


Salutations!


"jps" <NoAddressNoPhoneNoMoney@NoWorries.bjl> a écrit dans le message de
news:etFhiS8fEHA.2468@TK2MSFTNGP12.phx.gbl...

ouhhhhhhhhhhhhhh merci denis...
à l'inverse de william, ce soir, comme pas mal de soirs, j'ai soirée
libre

:

alors, je vais essayer ta proc..
je te tiens au courant, oeuf corse
merci encore
jps

"michdenis" <michdenis@hotmail.com> a écrit dans le message de
news:Os0$BG7fEHA.4092@TK2MSFTNGP10.phx.gbl...

Bonjour JPS,

Et si tu essayais comme ceci :

'---------------------------------
Private Sub Workbook_Open()
Dim Nouveau As String

Nouveau = ThisWorkbook.Name
If UCase(Right(Nouveau, 4)) Like ".XLS" Then
Nouveau = Left(Nouveau, Len(Nouveau) - 4) & "2.xls"
Else
Nouveau = Nouveau & ".xls"
End If
ThisWorkbook.SaveCopyAs "C:Sauvegarde Automatique" & Nouveau
End Sub
'---------------------------------

Évidemment cela suppose que le chemin est valide, et que tu ne tentes
pas

d'enregistrer ton fichier une deuxième fois sous le

même nom.


Salutations!


"jps" <NoAddressNoPhoneNoMoney@NoWorries.bjl> a écrit dans le message
de

news:Ocasws4fEHA.3428@TK2MSFTNGP11.phx.gbl...

....de mes sens abusés?
bonjour (c)

une bonne âme (d'accord c'est rare, mais bon..) saurait-elle me dire
pourquoi avec XL97 cette sauvegarde sauve et garde normalement alors
qu'avec

XL2002, y en a rien dans le C:Sauvegarde automatique? pas la queue
d'un

Perso2.xls...

Private Sub Workbook_BeforeClose(Cancel As Boolean)
ThisWorkbook.SaveCopyAs "C:Sauvegarde Automatique" &
Left(ThisWorkbook.Name, Len(ThisWorkbook.Name) - 4) & "2.xls"
End Sub

vous comprenez qu'après toutes les manips que m'a fait faire Daniel M
et

qui

n'ont pas manqué de rendre jalouse mon ennemie jurée (oui, oui, vous
avez

bien deviné...c'est la misange) dont l'excelabo new look me fait
définitivement renoncé au lifting que j'envisageais pour moi-même,
contre,

d'ailleurs, l'avis de mon entourage qui m'assure que je n'en ai nul
besoin

alors que d'autres...(oui, oui, vous avez toujours bien deviné),
qu'après

toutes ces manips, disais-je, j'ai grand intérêt à mettre l'usine à
gaz

au

chaud...
jps