Discussion :

[nostradamus]

Bonjour à tous,

Après quelques jours de recherche, je rencontre un point bloquant: je n'arrive pas à modifier les données d'un graphique excel intégré à un powerpoint. J'ai essayé de nombreuses solutions, mais je n'arrive pas à instancier l'objet pour accéder à ses propriétés.

Voici mon code, ainsi que (ci-joint) un exemple d'objet excel dans un powerpoint.

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
Public Function objet_ppt()
    Dim ppt As PowerPoint.Application
    Dim pi As PowerPoint.Presentation
    Dim sh As PowerPoint.Shape
    Dim sr As PowerPoint.ShapeRange
 
    Dim ob As Excel.Workbook
    Set ppt = New PowerPoint.Application
 
    Set pi = ppt.Presentations.Open(FileName:="c:\matrice.pptx")             ' Ouvre le PPT
 
    For Each sh In pi.Slides(1).Shapes
        ' test If sh.Type = msoOLEControlObject Then MsgBox sh.Type & vbCrLf & sh.Name & vbCrLf & TypeName(sh)
 
		' Ce code fonctionne pour les excel 2003 intégrés dans les powerpoint, mais pas dans mon cas:
		 with sh.OLEFormat.Object.WorkSheets(onglet).range("a1:ia5000")
		     Set c = .Find("@", LookIn:=-4123, LookAt:=2, SearchOrder:=1, MatchCase:=False)
			If Not c Is Nothing Then
				Firstaddress = c.Address
				Do
					'traitement
				Loop While Not c Is Nothing
			End If
		End With
    Next    
End Function

J'obtient le code d'erreur suivant: -2147188160 (impossible d'instancier un objet OLE)

Quelqu'un saurait-il comment accéder à cet objet pour modifier ses données?

En vous remerciant,