Save as

[flo2002]

Re bonjour le forum,
une deniere question avant le week end.
Imaginons que je veuille faire un save as new file . En faite qu'il n'ecrase pas le fichier qui fait tourner la macro. C'est possible ca?

merci

 

[Kobaya]

Re : Save as

Là, flo, tu exagères. Tu as quasiment la réponse dans ce post 😛
https://www.excel-downloads.com/threads/enregistrer-par-version.64797/

 

[flo2002]

Re : Save as

Bonjour à tous,

le probleme Kobaya, c'est que dans le fil precedent je cherchais juste à enregistrer. Maintenant, je voudrais apres enregistrement fermer le fichier. Avec ce que j'ai comme code j'enregistre sans créer un nouveaux fichier ouvert.
Peut etre que je n'ai pas compris grand chose...

Merci d'avance pour votre aide!

voici la tete de mon code:

Sub Save()


ActiveWorkbook.Save

Dim VVV As String
Dim ZZZ As String

Application.DisplayAlerts = False
ZZZ = Sheets("Garde").Range("B5").Value
VVV = Format(Date, "yymmdd") & Format(Time, "hhmmss")



ActiveWorkbook.SaveAs Filename = VVV & ZZZ

Workbooks.Open Filename = ZZZ

Windows(VVV).Activate

ActiveWindow.Close



Windows(ZZZ).Activate
Application.DisplayAlerts = True


End Sub

 

[flo2002]

Re : Save as

re bonjour,
je viens de tester une nouvelle fois ma macro.
Mes deux variables sont bien reconnu mais il enregistre le fichier sous FALSE.xls.
De plus, il plante au moment d'ouvrir l'ancien fichier.
Etrange....

merci de vos lumieres.

 

[flo2002]

Re : Save as

re bonjour,

mon code marche mais ne repond que partiellement au probleme: j'ai toujours deux fichiers ouvert. Je voudrais fermer la dernier version.

voici le code:
Dim ZZZ As String
Application.DisplayAlerts = False
ZZZ = Sheets("Garde").Range("B5").Value
ActiveWorkbook.SaveAs Format(Date, "yymmdd") & Format(Time, "hhmmss") & ZZZ
Workbooks.Open Filename:=ZZZ
Windows(ZZZ).Activate
Application.DisplayAlerts = True

peut etre une nouvelle variable?

 

[PascalXLD]

Re : Save as

Bonjour

peut-être ainsi

Dim ZZZ As String
Dim MyName as String
Application.DisplayAlerts = False
ZZZ = Sheets("Garde").Range("B5").Value
MyName= Format(Date, "yymmdd") & Format(Time, "hhmmss") & ZZZ
ActiveWorkbook.SaveAs Myname
Workbooks(myname).close
Workbooks.Open Filename:=ZZZ
Windows(ZZZ).Activate
Application.DisplayAlerts = True

Bon courage

 

[Bernard_XLD]

Re : Save as

Bonjour flo2005, kobaya, le forum

alors, plutôt qu'un saveas, tu peux utiliser un savecopyas qui fera une copie de ton fichier sans le modifier en quoi que ce soit.

Cordialement, A+

ps: bonjour pas cal, t'avais pas vu!
salut à toi aussi shock

 

[Shock]

Re : Save as

Bonjour FLo, Kobaya,
Sur ce fil, il y avait quelques élèments qui pourraient t'intéresser :
https://www.excel-downloads.com/threads/saveas-sur-fichier-existant.63099/
Tu verras qu'en fait, je fais simplement un activeworkbook.close à la fin (parce que je sais que je reste bien sur l'autre classeur) donc il est sauvegardé sous le nom qui m'interesse, puis je le ferme.

edit : oups, bjr Pascal, Yeahou...
ben en fait, ca ressemble + ou - à Pascal ma propo

 

[flo2002]

Re : Save as

merci à tous!

le savecopyas est parfait!