GARDER UN FICHIER APRES UN SAVE AS

[DEBUTANT]

Allo tout le monde

J aimerais que quand je fais un 'save as' que mon fichier de départ reste ouvret.

c est a dire, par exemple si j'ouvre le fichier '#1' et que si je fais un save as pour '#2' que mes 2 fichiers reste ouvert sur excel et non juste '#2' comme c est le cas présentement.

merci bcp d avance de votre aide

 

[Bernard_XLD]

Bonjour

solution possible en VBA

avant le saveas, enregistre thisworkbook.fullname dans une variable.
exécute ton saveas puis ouvre avec open le fullname sauvegardé. il ne te rest plus qu'à rafficher le classeur sauvé avec thisworkbook.activate

Dim Mem_Name As String, Chemin_Fichier As String

Mem_Name = ThisWorkbook.FullName
Chemin_Fichier = Application.GetSaveAsFilename
ActiveWorkbook.SaveAs Filename:=Chemin_Fichier, FileFormat:=xlNormal, _
Password:='', WriteResPassword:='', ReadOnlyRecommended:=False, _
CreateBackup:=False
Workbooks.Open Filename:=Mem_Name
ThisWorkbook.Activate


Cordialement, A+

 

[debutant]

merci de ton aide YEAHOU

mais ca regle pas mon probleme , tout ce que ta suggestion fait c est de ré-ouvrir le fichier '#1' à la fin et c est exactement ce que je veux éviter de faire car le fichier '#1' est tres long a ouvrir puisqu'il est sur un réseau.


donc comment faire un saveas du fichier '#1' et qu'il reste tjrs ouvret ?

 

[Bernard_XLD]

re bonjour

dans ce cas la, utilise

ActiveWorkbook.SaveCopyAs 'C: \\TEMP \\ XXXX.XLS'

qui t'enregistrera une copie sans modif du classeur actif

A+

Message édité par: yeahou, à: 31/03/2005 21:58

 

[debutant]

la le probleme c est que le fichier TEMP n est pas ouvret 🙁 j ai besoin de modifier le fichier TEMP et de l engregistrer sauf un nouveau nom et que le fichier '#1' reste ouvret meme si je fait un saveas

aider moi svp , je sais que c est un peu compliqué

 

[Bernard_XLD]

re bonjour

on fait un mix des deux et la on rouvre un fichier sur C:

Dim Chemin_Fichier As String

Chemin_Fichier = Application.GetSaveAsFilename
ActiveWorkbook.SaveCopyAs Filename:=Chemin_Fichier
Workbooks.Open Filename:=Chemin_Fichier
ThisWorkbook.Activate


A+

Message édité par: yeahou, à: 31/03/2005 22:25