Enregistrer un fic. sans l'ouvrir

[jo]

Bonjour le forum,

Est il possible d'enregistrer dans un autre classeur sans
l'ouvrir?

Voici mon code:


Sub Save_file()
Dim D, m, Y
ChDir ActiveWorkbook.Path
Sheets(Array("Sheet1", "sheet2")).Copy
D = Format(Day(Date), "00")
m = Format(Month(Date), "00")
Y = Format(Year(Date), "00")
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs FileName:="G:\TEST_ " & D & m & Y & ".XLS"
Application.DisplayAlerts = True
ActiveWorkbook.Close
End Sub


Comme vous pouvez le voir, j'utilise "ActiveWorkbook.Close" pour refermer
le classeur qui est entrain de s'enregistrer et qui s'affiche ...

Peut être qu'il existe un autre moyen ?


Merci !

 

[Patrick C]

Salut jo et le forum

Si tu veux garder ton classeur d'origine ouvert, tu peux peut être copier l'ensemble de ton classeur et le coller dans un nouveau classeur.
et c'est ce nouveau classeur que tu enregistres sous le nom que tu veux

ça donne un truc du genre

Voila

Patrick

-----------------------------------
Sub Macro1()
'
'
Cells.Select
Selection.Copy

Workbooks.Add

ActiveSheet.Paste
Application.CutCopyMode = False

ActiveWorkbook.SaveAs FileName:= _
"C:\Documents and Settings\Mes documents\Classeur1.xls", FileFormat:= _
xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
, CreateBackup:=False
ActiveWindow.Close

End Sub

 

[@+Thierry]

Bonjour Patrick, Jo, le Forum

Je conseillerai plutôt la Méthode "SaveCopyAs" qui sauve une copie du fichier sans modifier le fichier ouvert et chargé en mémoire... que lui par contre on peut simplement fermer avec Close


With ActiveWorkbook
.SaveCopyAs "C:\TEMP\XXXX.XLS"
.Close False '(Ou True si on veut aussi sauver le fichier original)
End With

Bon Appétit
@+Thierry

 

[Patrick C]

salut @+thierry,

c'est beaucoup plus simple et clair, je m'incline.
j'en apprends tous les jours (et j'en oublie aussi ;-))

Bon appétit à toi aussi

Patrick

 

[jo]

RE le forum, salut Patrick C et @+thierry,

Je vous remercie pr votre aide !
ça roule ;-)

Ciao!!