Pb avec chart.copypicture

Bonjour, j'utilise un code avec un range, je ne comprend pas le pb , ca marche bien pour un range mais pour un graphique j'ai une erreur : ereur 438 propriete ou methode non geré"
Code:

1 2 3 4 5 6 7 8 9 graph1 = "graph.gif" With ThisWorkbook.Worksheets("HistoPnL") .ChartObjects("Graphique 1").Chart.CopyPicture With .ChartObjects.Add(0, 0, 400, 200) .chart.Paste .Chart.Export PathTmp & graph1, "gif" End With .ChartObjects(.ChartObjects.Count).Delete End With
Merci d'avance, le probleme se titue à Paste.

en fait résolu dsl

heu

Bonjour tamtam
Code:

1 2 With .ChartObjects.Add(0, 0, 400, 200) .chart.Paste
c'est comme si tu avais ecrit

Code:

.chart.chart.paste

tu vois le soucis hein!!

Code:

.paste ' tout court

;)

Salut patrick,

Alors j'ai pas compris car
Code:

1 2 3 4 5 6 7 8 9 10 11 '1) Bis : copie en image le graph pnl graph1 = "graph.gif" With ThisWorkbook.Worksheets("HistoPnL") .ChartObjects("Graphique 14").Chart.CopyPicture With .ChartObjects.Add(0, 0, 400, 200) .Chart.Paste .Chart.Export PathTmp & graph1, "gif" End With .ChartObjects(.ChartObjects.Count).Delete End With
bin pourtant justement si je met pas le chart avant il bug, car apriori pour acceder a l'element c'est chartobjects puis chart Non ? car ca marche maintenant , j'ai trouvé un document qui me l'a bien certifié.

Bonjour tam X2 !

Mais pourquoi donc ne pas exporter directement le Chart source ?‼

N'est-ce pas un peu idiot de créer un nouveau Chart pour le supprimer après l'export ?!

Comme quoi :

_____________________________________________________________________________________________________
Copier / Coller n'est pas programmer !

Re

Bien dit Marc !!

Bonjour,

vous avez pas honte de fustiger un petit programmeur payé à la ligne de code ??
:ptdr: m'en veut pas TamTam, c'est une boutade pas méchante :ptdr:

Ps : Tam X2 ... ça fait 2Tam (ou une belle erreur "incompatibilité de Type" !) ... Marc, je t'invite à consulter le tutoriel relatif à la concaténation ... spice de mauvais programmeur :ptdr:

Je tire à vue aujourd'hui, y'en aura pour tout le monde, toute vengeance à mon encontre... sera grandement appréciée (vive l'autodérision)

HUM HUM

BONJOUR HEU...!!????
joe ta pété une durite:mrgreen:

je dois reconnaitre que marc m'a scotché ca m'a pas intrigué plus que ca sur le coup mais c'est vrai que sa saute au yeux je dois me faire vieux ;)

En realite c'est pas du copié collé c'est moi qui l'ai créé , je prefere le préciser ;).

Deuxiemement je ne supprime pas le graphique , je crais juste une image pour la mettre dans un mail.
Donc le graphique de mon excel n'est jamais touché.
Apres pour précision je ne code en vba que depuis 5 mois presque 6 donc même si j'ai déja codé dans d'autres languages, je suis tt a fait au courant que mes codes sont pas encore exeptionels , mais c'est en forgeant qu'on deviens forgeron , on a tous commencé un jour , donc doucement ;) , je suis tres bon en python et pour autant je ne vais pas attaquer les gens qui débutent .

Bon aprés je le prend pas mal mais je préfere quand meme le dire car je passe pas mes jours a copier coller des codes ;)

re

bonjour tamtam
je crois que tu n'a pas compris la subtilité

Citation:

Deuxiemement je ne supprime pas le graphique , je crais juste une image pour la mettre dans un mail.
Donc le graphique de mon excel n'est jamais touché.

on te parle pas du graphe source et quoi que !!!

on te dit que copier un graph en image/ créer un autre graph / coller l'image/ et exporter n'est pas nécessaire on ne peut être plus clair que ca

en gros vire tout ton code de copie/création graph/paste et tu ne garde que la ligne export et tu met le nom du graph source

c'est pas compliqué
ala place de ca
Code:

1 2 3 4 5 6 7 8 9 graph1 = "graph.gif" With ThisWorkbook.Worksheets("HistoPnL") .ChartObjects("Graphique 1").Chart.CopyPicture With .ChartObjects.Add(0, 0, 400, 200) .chart.Paste .Chart.Export PathTmp & graph1, "gif" End With .ChartObjects(.ChartObjects.Count).Delete End With
tu met ceci:
Code:

1 2 .ChartObjects("Graphique 1").Chart.Export PathTmp & graph1, "gif"