Discussion :

[dev81]

Mon VBA ne me reconnait pas la fonction "ChartObjects" pourquoi?
Merci

[ouskel'n'or]

Mon VBA ne me reconnait pas la fonction "ChartObjects" pourquoi?
Merci

Oui, et ça risque de durer longtemps comme ça si tu ne nous mets pas ton code
Tu fais ça ?
A+

[dev81]

Le voila

Y a t il une reference particuliere à part celle d'excel à cocher?

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
18
19
20
21
22
23
24
25
26
27
28
29
30
Sub InsérerGraphExcel(Path As String)
    Dim XlAppli As Object
    Dim XlCl As Workbook
    Dim Xlfl As Worksheet
    Set XlAppli = CreateObject("Excel.Application") '< L'appli Excel
    Set XlCl = XlAppli.Workbooks.Open(Path) '< le classeur
    Set Xlfl = XlCl.Worksheets("Evol Etat f") '< la feuille
'    With Xlfl
'        .Range("").Copy ' < La Plage
'    End With
 
    XlAppli.ActiveSheet.ChartObjects(1).Activate
    ' Select the chart.
    XlAppli.ActiveChart.ChartArea.Select
    ' Copy the chart.
    XlAppli.ActiveChart.ChartArea.Copy
 
 
 
    On Error Resume Next
    'Colle la plage Excel avec liaison à l'emplacement du curseur
    Selection.PasteSpecial Link:=True, DataType:=wdPasteOLEObject, Placement:= _
        wdInLine, DisplayAsIcon:=False
    DoEvents
    XlCl.Close False
    XlAppli.Quit
    Set XlAppli = Nothing
    Set XlCl = Nothing
    Set Xlfl = Nothing
End Sub

[dev81]

Comment on utilise les "ChartObjects"?

[dev81]

J'ai trouvé une erreur mais maintenant j'ai un problème avec la selection du graphique.

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
18
19
20
21
22
23
24
25
26
27
28
Sub InsérerGraphExcel(Path As String)
    Dim XlAppli As Object
    Dim XlCl As Workbook
    Dim Xlfl As Worksheet
    Set XlAppli = CreateObject("Excel.Application") '< L'appli Excel
    Set XlCl = XlAppli.Workbooks.Open(Path) '< le classeur
    Set Xlfl = XlCl.Worksheets("Sheet1") '< la feuille


    Xlfl.ChartObjects(1).Activate
    ' Select the chart.
    Xlfl.ActiveChart.ChartArea.Select
    ' Copy the chart.
    Xlfl.ActiveChart.ChartArea.Copy



    On Error Resume Next
    'Colle la plage Excel avec liaison à l'emplacement du curseur
    Selection.PasteSpecial Link:=True, DataType:=wdPasteOLEObject, Placement:= _
        wdInLine, DisplayAsIcon:=False
    DoEvents
    XlCl.Close False
    XlAppli.Quit
    Set XlAppli = Nothing
    Set XlCl = Nothing
    Set Xlfl = Nothing
End Sub

[ouskel'n'or]

Excuse, je t'ai laissé tombé
De mémoire :

Code :

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

1
2
3
4
5
    Xlfl.ChartObjects(1).Select
    ' Select the chart.
    Xlfl.Selection.ChartArea.Select '*******
    ' Copy the chart.
    Xlfl.Selection.Copy

Tu testes avec ou sans la ligne '*******
Pas testé, si ça ne fonctionne pas, je regarderai
A+

[AlainTech]

Mon VBA ne me reconnait pas la fonction "ChartObjects" pourquoi?
Merci

ChartObjects n'est pas une fonction mais une collection.

[dev81]

Merci pour cette aide précieuse.

[dev81]

Une derniere question.
Je souhaiterai que mon graphe soit inserer dans le texte et pas sur le texte
En fait 2 questions..
Et aussi reduire sa taille de moitié.
C'est possible?Merci