Discussion :

[ChristianBosch]

Bonjour, je sais que la fonction application.onetime n'existe pas dans powerpoint, mais en activant les références et en initialisant les application excel n'est-ce pas possible ?

Comme ceci par exemple

Code :

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

1
2
3
4
5
6
7
8
9
Sub maj()
Dim ppt As PowerPoint.Application
Dim Pres As PowerPoint.Presentation
Set ppt = CreateObject("PowerPoint.Application")
Set Pres = ppt.ActivePresentation
Dim xlapp As excel.Application
Pres.UpdateLinks
xlapp.OnTime Now + TimeValue("00:01:00"), "maj"
End Sub

J'ai activé la bibliothèque de références excel 2016 mais ça bloque quand même sur la déclaration de xlapp.

Si vous avez une solution

Merci

[ChristianBosch]

Bon j'ai trouvé une méthode encore mieux, comme mon PTT est lié a des graph sur un classeur excel, je fais une mise a jour des links du PTT des qu'il y a un changement sur une des feuilles de mon excel. Comme ceci :

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Dim ppt As PowerPoint.Application
Dim Pres As PowerPoint.Presentation
Dim chemPTT As String
chemPTT = "C:\Users\bboschi\Desktop\modele tier2 V1.0.pttm"
Set ppt = CreateObject("PowerPoint.Application")
Set Pres = ppt.Presentations(chemPTT)
Pres.UpdateLinks
End Sub

Je précise que le code est dans le classeur excel du coup