Executer une macro toutes les minutes

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:

---

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

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:

---

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