enregistrement par macro

[philboy]

Bonjour je cherche un moyen d'enregister une feuille apres avoir copier le contenue dans une nouvelle, le tout avec un code VBA;
j'ai fait une macro deja, mais ca deconne, je cherche une solution


merci d'avance

 

[EricS]

Bonjour,

enregistrer une feuille ou un classeur

pour le classeur :

Application.Dialogs(xlDialogSaveAs).Show

ou

chemin = "C:\......\ " >>A DEFINIR
fichier_dest = "toto"
ActiveWorkbook.SaveAs FileName:=chemin & fichier_dest _
, FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False

A+
Eric

 

[philboy]

en fait j'ai du mal m'exprimer, ce que je veut , c'est copier une feuille d'un classeur (classeur1 par exemple) dans une feuille d'un autre classeur (classeur 2), et enregistrer cette 2eme feuille; jve essayer de resumer :

copie de feuille 1 > ouvrir nouveau doc > coller feuille 1 dans nouveau doc > enregistrer nouveau doc .

tout en une seule touche.

j'espere que c'est plus claire?

 

[EricS]

bonjour,

si tu veux voir une solution plus globale


nom = ActiveWorkbook.Name
Workbooks.Add
nom1 = ActiveWorkbook.Name
Windows(nom).Activate
Cells.Select
Selection.Copy
Range("A1").Select
Windows(nom1).Activate
ActiveSheet.Paste
Range("A1").Select
Application.CutCopyMode = False

' adapter la partie Filename ci-dessous selon le nom à donner
ActiveWorkbook.SaveAs FileName:= _
"C:\Documents and Settings\Eric\Mes documents\Classeur3.xls", FileFormat:= _
xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
, CreateBackup:=False
ActiveWorkbook.Close


A essayer

A+
Eric