Discussion :

[Xerath]

Bonjour,

J'ai besoin de copier un graphique excel dans ma form. après lecture de ce vieux topic j'ai eu quelques éléments de réponse.
Cependant j'ai écrit un programme de test afin de voir si le principe fonctionnait. Mais rien ne s'affiche! Rien n'est enregistré dans le presse papier non plus.

Concernant l'ouverture, la lecture et la sélection du graphique, je n'ai aucun problème.

Voilà mon code :

Code :

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

1
2
3
4
5
6
7
8
Private Sub Form1_Load()
    Workbooks.Open ("C:\test.xls")
    Sheets("Feuil1").Select
    ActiveSheet.ChartObjects("graphique 3").Activate
    ActiveChart.CopyPicture
    Picture1.Picture = Clipboard.GetData()
    Workbooks.Close
End Sub

Merci beaucoup par avance à ceux qui se pencheront sur la question!

[ucfoutu]

Bonjour,

Le presse-papier parait don vide de graphique ...

Pourquoi ?

Je n'en sais à proprement parler rien (je connais très mal Excel).

J'aurais toutefois tendance à penser que tu n'as pas su définir l'élément graphique à mettre dans ton presse-papiers ... Probablement une omission de la précision ChartArea .....

car :

ActiveChart.CopyPicture

me parait assez suspect ! Quel "Chart" serait ici actif, dans ton code ... ???? (ou alors non seulement je ne comprends rien à Excel, mais, en plus, je suis complètement bouché ....)

[Xerath]

Code :

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

    ActiveSheet.ChartObjects("graphique 3").Activate

Le graphique est actif depuis cette ligne! (je me sert de ce type de déclarations dans d'autres programmes.

J'ai déjà essayé de préciser ChartArea, comme je l'ai vu au détour du post mentionné ci dessus, mais ça n'a pas plus donné.

merci de ta réponse

[DarkVader]

Bonjour,

Code :

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

1
2
3
4
5
6
7
8
Private Sub Form1_Load()
    Workbooks.Open ("C:\test.xls")
    Sheets("Feuil1").Select
    ActiveSheet.ChartObjects("graphique 3").Activate
    ActiveChart.CopyPicture
    Picture1.Picture = Clipboard.GetData()
    Workbooks.Close
End Sub

Le code produit par les macros excel doit être nettoyé afin d'éviter les selection et activation -
cela évite les interactions incontrolées - idem en invoquant directement les objects (wk, ch).
D'autre part utilise plutôt la méthode export de l'object chart qui utilise les filtres graphiques de la machine
soit

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Private Sub Form1_Load()
    Dim wk As Workbook, ch As Chart, monImage As String
 
    Set wk = Workbooks.Open("C:\test.xls")
    Set ch = Worksheets("Feuil1").ChartObjects("graphique 3").Chart
 
    monImage = wk.Path + "\imgChart.gif"
    ch.Export monImage
 
    Me.Picture1.Picture = LoadPicture(monImage)
 
    Kill monImage
    wk.Close
 
    set ch=Nothing
    set wk = Nothing
End Sub

[Xerath]

Ca fonctionne à merveille!

Merci beaucoup.

Je tiendrais compte de tes remarques en ce qui concerne la déclaration de mes variables, merci aussi de ces précieux conseils.

Merci à vous deux pour vos réponses