Discussion :

[Elstak]

coucou;

truc tout bete surement..

je voudrais copier un graph dans un autre classeur

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
 
'création du fichier
Dim CeClasseur As Workbook
Dim NouveauClasseur As Workbook
Set CeClasseur = ActiveWorkbook
Set NouveauClasseur = Application.Workbooks.Add
CeClasseur.Charts(1).Copy NouveauClasseur
NouveauClasseur.SaveAs NomDossier & "\" & "batch_" & MettreAJour.TextBox2.Value & ".xls"
NouveauClasseur.Close

j'ai une erreur sur la ligne en gras, je vois pas du tout comment l'ecrire

ensuite mon code doit etre améliorable, j'ai vraiment de la misère avec la gestion de 2 classeurs (me suis inspiré de la faq mais pour mon cas y doit y avoir mieux).

ce que je veux faire concretement :

faire une copie du classeur sur lequel je suis (qui comporte 1 feuille et 2 graph) en effacant une partie des données qui se trouvent sur la feuille.

Merci davance

[Vesta]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
'création du fichier
Dim CeClasseur As Workbook
Dim NouveauClasseur As Workbook
Set CeClasseur = ActiveWorkbook
Set NouveauClasseur = Application.Workbooks.Add
CeClasseur.Sheets("Graph1").Copy NouveauClasseur.Worksheets(1)
NouveauClasseur.SaveAs NomDossier & "\" & "batch_" & MettreAJour.TextBox2.Value & ".xls"
NouveauClasseur.Close

[Vesta]

Ce que tu peux aussi faire c'est enregister le classeur 1 sous le nom du classeur 2 et ensuite le rouvrir, enlever les valeurs et le refermer...

C'esst toi qui voit ca...

[Elstak]

Yop,

deja merci pour ta solution

ensuite

Ce que tu peux aussi faire c'est enregister le classeur 1 sous le nom du classeur 2 et ensuite le rouvrir, enlever les valeurs et le refermer...

C'est ce que je voulais faire à la base ! Le probleme c'est que je 'narrive pas à l'ecrire

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 
Dim CeClasseur As Workbook
Dim NouveauClasseur As Workbook
Set CeClasseur = ActiveWorkbook
CeClasseur.SaveAs NomDossier & "\" & "batch_.....

Mon probleme c'est qu'avec le code là j'ai le fichier "NomDossier & "\" & "batch_....." qui est ouvert à la fin et plus mon fichier de base, comme pour un enregistrer sous en fait...

une idée pour enregistrer mon fichier de base sous un autre nom et "rester" sur mon fichier de base?

[Vesta]

C'est vrai que c'est ennuyeux avait plus pensé a ca lol

[Elstak]

hm

j'ai retrouvé un de mes code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
 
    Set Ceclasseur = ActiveWorkbook
    Ceclasseur.Sheets(Nomfeuille).Copy
    ActiveWorkbook.SaveAs ThisWorkbook.Path & "\" & Nomfic & ".xls"
    ActiveWorkbook.Worksheets(Nomfeuille).OLEObjects(1).Delete
    ActiveWorkbook.Save
    ActiveWorkbook.Close

ca laisse le classeur source ouvert et copie la feuille 1 dans un nouveau, j'avoue que je comprend pas trop pourquoi dans ce cas j'ai tout au long du code code mon classeur source ouvert jusqu'a la fin surement à cause du

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
Ceclasseur.Sheets(Nomfeuille).Copy

mais bon dans mon cas si je veux faire un enregistrer sous c'est justement pour eviter les Copy