[VBA-E]Copier un graph

coucou;

truc tout bete surement..

je voudrais copier un graph dans un autre classeur

Code:

---

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 :roll:

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 :D

Code:

---

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

---

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...

Yop,

deja merci pour ta solution :P

ensuite

Citation:

---

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 :oops:

Code:

---

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?

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

hm :roll:

j'ai retrouvé un de mes code

Code:

---

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:

---

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 :?

Bon j'ai trouvé ca

Code:

---

1 2 3 4

For i = 1 To CeClasseur.Sheets.Count CeClasseur.Sheets(i).Copy NouveauClasseur.Sheets(i) Next

---

mais en fait il me faut absolument un Saveas car là j'ai uniquement les feuilles du premier classeur de copié, les graph de mon nouveau classeur prennent leur valeurs à partir de mon premier classeur (ca doit etre changeable mais autant ne pas avoir à le faire) et je n'y pensais plus mais mes macro, mon code dans thisworkbook etc.. rien n'est copié biensur et j'en ai besoin !

Hello Erzatz, Y'avait longtemps...
Je ne vais pas te mettre de code mais faire ce que tu aurais dû faire :aie: mettre la démarche
- Sauver le fichier sous un autre nom
- Fermer le fichier
- Ré-ouvrir le fichier d'origine
C'est bien ce que tu veux faire ?

A+

Citation:

---

Hello Erzatz, Y'avait longtemps...

---

:aie: C'est pas drole !

Citation:

---

- Sauver le fichier sous un autre nom
- Fermer le fichier
- Ré-ouvrir le fichier d'origine
C'est bien ce que tu veux faire ?

---

Oui ! la demarche ej l'avais deja merci :evilred:

Le probleme c'est

Citation:

---

- Ré-ouvrir le fichier d'origine

---

le code s'execute à partir de ce fichier donc comment le reouvrir, si il est fermé le code poura pas :roll:

Si tu enregistes le fichier "sous", la macro est dans le fichier "Sous", donc, elle continue... Donc, avant de fermer le fichier "Sous", tu rouvres le fichier d'origine et là, tu peux fermer le fichier enregistré sous.
Si ta macro doit se poursuivre, tu n'es pas obligé de fermer tout de suite le fichier enregistré sous... :mouarf:

Au moins, essaie ça...

A+

Citation:

---

donc, elle continue

---

pas bete ! :D

par contre ca :

Citation:

---

tu rouvres le fichier d'origine

---

j'arrive pas et pourtant j'en ai essayé des solutions !

Code:

---

1 2 3 4 5 6 7 8 9 10

Dim CeClasseur As Workbook Dim NouveauClasseur As Workbook Set CeClasseur = ActiveWorkbook CeClasseur.SaveAs NomDossier & "\" & "batch_...." Set NouveauClasseur = ActiveWorkbook CeClasseur.Open 'autres instructions NouveauClasseur.Close

---

jpense que l'instruction se trouve au bon endroit. jve ouvrir mon fichier source puis fermer le fichier créé.

par contre comment l'ecrire... j'ai tenté "workbooks(ceclasseur).open" puis à partir de l'aide "workbooks.open ceclasseur" etc.. ca veut pas :cry:

une idée pour ca?

Code:

---

Workbooks.open filename:= "C:\Chemin\CeClasseur.xls"

---

As-tu essayé ?

A+

ouioui je venais d'essayer en fait et ca fonctionne ! :P

donc tout va bien maintenant merci :mouarf:

Un jour... tu vas voir, tu vas devenir bon... Désespère pas ! :lol:

:salo:

(Ce smiley correspond tout à fait à la situation !)

Citation:

---

Envoyé par Elstak

:salo:

(Ce smiley correspond tout à fait à la situation !)

---

Ah, ces jeunes... Ca ne sait même plus comment on dit merci.

Vous me voyez encore??? :roll: Pas normal, je suis déjà sorti :aie: