Bonjour,
Voici un petit exemple ou j'ai fai le lien entre excel et powerpoint, ici je pilote l'ouverture et la fermeture de fichier powerpoint grace à un macro excel, tu pourra certainement y trouver des chose pour faire le lien
Sub Demarrage_Click()
Dim FichierEcranPpt, FichierModifppt As String
Dim newHour, newMinute, newSecond As Integer
Dim waitTime As Date
FichierEcranPpt = Affiche.Value
FichierModifppt = Modifie.Value
On Error GoTo Fin
Set PptApp = CreateObject("PowerPoint.Application" )
PptApp.Visible = True
1: Set PptDoc = PptApp.Presentations.Open(Filename:=FichierEcranPpt, ReadOnly:=True)
DoEvents
PptDoc.SlideShowSettings.Run
'Timer d'attente (45 minutes d'attente avant reprise de la macro)
newHour = Hour(Now())
newMinute = Minute(Now()) + 45
newSecond = Second(Now())
waitTime = TimeSerial(newHour, newMinute, newSecond)
Application.Wait waitTime
'ferme la présentation affichée
PptDoc.Close
Set PptDoc = Nothing
Set PptDoc = PptApp.Presentations.Open(Filename:=FichierModifppt, ReadOnly:=True, WithWindow:=msoFalse)
DoEvents
PptDoc.SaveAs Filename:=Affiche.Value
DoEvents
'ferme la présentation modifiée
PptDoc.Close
Set PptDoc = Nothing
GoTo 1
Fin: End Sub