Discussion :

[Antva]

Bonjour,

je suis en train d'automatiser la mise à jour d'une présentation powerpoint.
j'ai notamment dans une slide un tableau excel que j'ai copier d'un classeur .xlsm. (j'ai fait une copie Formulas).

Je ne trouve pas le moyen de mettre à jour ces liaisons via ma macro.

Le tableau est un objet de type msoEmbeddedOLEObject. Je l'ai nommé DATATAB_TM_YTD

Set pres_scorecard = ActiveWindow.presentation
with pres_scorecard.Slides(2).Shapes("DATATAB_TM_YTD")
debug.print .Type
debug.print .OLEFormat.ProgID
End With

le code précédant me renvoie
7 (la valeur du type msoEmbeddedOLEObject)

et

Excel.SheetBinaryMacroEnabled.12


Impossible de trouver sur le net comment mettre à jour un objet de la sorte. Je trouve bien des exemples de code pour des objets de type msoEmbeddedOLEObject mais il s'agit à chaque fois de graphiques, pas de tableaux.

Est-ce que quelqu'un saurait comment gérer ces trucs là?

[Antva]

J'ai trouvé. Je partage si ca peut profiter à d'autres.

En fait il faut définir l'objet comme étant un workbook excel sinon l'instruction .calculate ne s'exécute pas.

Public Sub update_scorecard()

Dim wk As Excel.Workbook
Dim xldata As Excel.Worksheet

Set pres_scorecard = ActiveWindow.Presentation

With pres_scorecard
For iSlide = 1 To .Slides.Count
.Slides(iSlide).Select
Select Case iSlide

Case 2
With .Slides(iSlide).Shapes("DATATAB_TM_CM")
Set wk = .OLEFormat.Object
wk.Activate
Set xldata = wk.Sheets("CM")
xldata.Calculate

End Select
Next iSlide
End With

End Sub