Sauver sous et Fermer

7 réponses

lolo

22/10/2005 à 19:13

Salut à toutes et à tous,

Je voudrais enregistrer mon fichier Excel sous un nouveau nom et fermer
le nouveau fichier Excel tout en gardant ouvert l'ancien.
J'utilise ceci :

ActiveWorkbook.SaveAs Filename:=chemin & "\Sauvegarde\Global 2005.xls",
FileFormat:= xlNormal, Password:="", WriteResPassword:="",
ReadOnlyRecommended:=False, CreateBackup:=False
ActiveWindow.Close

Mais cela me ferme mes 2 fichiers Excel (l'ancien et la sauvegarde).
Savez vous pourquoi ?

D'avance merci.

7 réponses

Daniel

22/10/2005 à 19:23

Bonsoir.
Essaie SaveCopy.
Cordialement.
Daniel
"lolo" a écrit dans le message de news:
435a7336$0$21297$

Salut à toutes et à tous,

Je voudrais enregistrer mon fichier Excel sous un nouveau nom et fermer le
nouveau fichier Excel tout en gardant ouvert l'ancien.
J'utilise ceci :

ActiveWorkbook.SaveAs Filename:=chemin & "SauvegardeGlobal 2005.xls",
FileFormat:= xlNormal, Password:="", WriteResPassword:="",
ReadOnlyRecommended:úlse, CreateBackup:úlse
ActiveWindow.Close

Mais cela me ferme mes 2 fichiers Excel (l'ancien et la sauvegarde).
Savez vous pourquoi ?

D'avance merci.

Daniel

22/10/2005 à 19:23

Bonsoir.
Essaie SaveCopy.
Cordialement.
Daniel
"lolo" a écrit dans le message de news:
435a7336$0$21297$

Salut à toutes et à tous,

Je voudrais enregistrer mon fichier Excel sous un nouveau nom et fermer le
nouveau fichier Excel tout en gardant ouvert l'ancien.
J'utilise ceci :

ActiveWorkbook.SaveAs Filename:=chemin & "SauvegardeGlobal 2005.xls",
FileFormat:= xlNormal, Password:="", WriteResPassword:="",
ReadOnlyRecommended:úlse, CreateBackup:úlse
ActiveWindow.Close

Mais cela me ferme mes 2 fichiers Excel (l'ancien et la sauvegarde).
Savez vous pourquoi ?

D'avance merci.

OnE

22/10/2005 à 19:23

Bonsoir,

Parce que la méthode SaveAs enregistre le fichier actuel sous un autre
nom tandis que la méthode SaveCopyAs enregistre une copie du fichier
actuel sous un autre nom.

Salut à toutes et à tous,

Je voudrais enregistrer mon fichier Excel sous un nouveau nom et
fermer le nouveau fichier Excel tout en gardant ouvert l'ancien.
J'utilise ceci :

ActiveWorkbook.SaveAs Filename:=chemin & "SauvegardeGlobal
2005.xls", FileFormat:= xlNormal, Password:="", WriteResPassword:="",
ReadOnlyRecommended:úlse, CreateBackup:úlse
ActiveWindow.Close

Mais cela me ferme mes 2 fichiers Excel (l'ancien et la sauvegarde).
Savez vous pourquoi ?

D'avance merci.

Didier Novarin

22/10/2005 à 19:28

Bonsoir
Excusez-moi, je profite du fil afin de poser une question
Comment faire afin d'enregistrer un fichier dans un répertoire mais pas
comme un enregistrer sous, mais un couper/coller dans ...
Afin qu'il aille définitivement dans le dossier en question ?
Je vous remercie
Didier

"lolo" a écrit dans le message de news:
435a7336$0$21297$

Salut à toutes et à tous,

Je voudrais enregistrer mon fichier Excel sous un nouveau nom et fermer le
nouveau fichier Excel tout en gardant ouvert l'ancien.
J'utilise ceci :

ActiveWorkbook.SaveAs Filename:=chemin & "SauvegardeGlobal 2005.xls",
FileFormat:= xlNormal, Password:="", WriteResPassword:="",
ReadOnlyRecommended:úlse, CreateBackup:úlse
ActiveWindow.Close

Mais cela me ferme mes 2 fichiers Excel (l'ancien et la sauvegarde).
Savez vous pourquoi ?

D'avance merci.

22/10/2005 à 19:30

sub sauv()
actuel = ActiveWorkbook.Path & "" & ActiveWorkbook.Name 'actuel
ActiveWorkbook.SaveAs Filename:="yyy" ' nouveau nom
Workbooks.Open Filename:¬tuel
end sub

JB

OnE

22/10/2005 à 19:49

Sub CopierFichier()
LaSource = "C:Toto.xls"
LaDestination = "D:"
Set fso = CreateObject("Scripting.FileSystemObject")
fso.CopyFile LaSource, LaDestination
End Sub

Bonsoir
Excusez-moi, je profite du fil afin de poser une question
Comment faire afin d'enregistrer un fichier dans un répertoire mais pas
comme un enregistrer sous, mais un couper/coller dans ...
Afin qu'il aille définitivement dans le dossier en question ?
Je vous remercie
Didier

"lolo" a écrit dans le message de news:
435a7336$0$21297$

Salut à toutes et à tous,

Je voudrais enregistrer mon fichier Excel sous un nouveau nom et fermer le
nouveau fichier Excel tout en gardant ouvert l'ancien.
J'utilise ceci :

ActiveWorkbook.SaveAs Filename:=chemin & "SauvegardeGlobal 2005.xls",
FileFormat:= xlNormal, Password:="", WriteResPassword:="",
ReadOnlyRecommended:úlse, CreateBackup:úlse
ActiveWindow.Close

Mais cela me ferme mes 2 fichiers Excel (l'ancien et la sauvegarde).
Savez vous pourquoi ?

D'avance merci.

Didier Novarin

22/10/2005 à 20:33

Bonsoir
merci
je ne sais pas ou se trouve le fichier au départ, mais il, est ouvert
Didier

"OnE" a écrit dans le message de news:
%

Sub CopierFichier()
LaSource = "C:Toto.xls"
LaDestination = "D:"
Set fso = CreateObject("Scripting.FileSystemObject")
fso.CopyFile LaSource, LaDestination
End Sub

Bonsoir
Excusez-moi, je profite du fil afin de poser une question
Comment faire afin d'enregistrer un fichier dans un répertoire mais pas
comme un enregistrer sous, mais un couper/coller dans ...
Afin qu'il aille définitivement dans le dossier en question ?
Je vous remercie
Didier

"lolo" a écrit dans le message de news:
435a7336$0$21297$

Salut à toutes et à tous,

Je voudrais enregistrer mon fichier Excel sous un nouveau nom et fermer
le nouveau fichier Excel tout en gardant ouvert l'ancien.
J'utilise ceci :

ActiveWorkbook.SaveAs Filename:=chemin & "SauvegardeGlobal 2005.xls",
FileFormat:= xlNormal, Password:="", WriteResPassword:="",
ReadOnlyRecommended:úlse, CreateBackup:úlse
ActiveWindow.Close

Mais cela me ferme mes 2 fichiers Excel (l'ancien et la sauvegarde).
Savez vous pourquoi ?

D'avance merci.

Sauver sous et Fermer

7 réponses

Veuillez sélectionner un problème