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)