Discussion :

[tamtam64]

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 :

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

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

[patricktoulon]

Bonjour tamtam

Code :

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

1
2
 With .ChartObjects.Add(0, 0, 400, 200)
              .chart.Paste

c'est comme si tu avais ecrit

Code :

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

.chart.chart.paste

tu vois le soucis hein!!

Code :

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

.paste ' tout court

[tamtam64]

Salut patrick,

Alors j'ai pas compris car

Code :

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

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

[Marc-L]

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 !

[patricktoulon]

Bien dit Marc !!

[joe.levrai]

Bonjour,

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



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


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)

[patricktoulon]

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

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

[tamtam64]

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

[patricktoulon]

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

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 :

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

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 :

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

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