Ouvrir fichier Excel depuis powerpoint

Bonjour je cherche comme ouvrir un fichier excel depuis powerpoint sans connaitre le nom complet. Hélas je connais moins bien VBA depuis powerpoint que depuis excel. Je vous donne mon code, le problème est que DIR ne fonctionne pas correctement.

Sub Ouvrir()
Dim xlApp As Object
Dim Chemin As String
Dim document As Variant

Set xlApp = CreateObject("excel.application")
xlApp.Visible = True

Chemin = ActivePresentation.Path
document = Dir(Chemin & "/B7*_.xlsm")
xlApp.EnableEvents = False
xlApp.Workbooks.Open FileName:=Chemin & document, UpdateLinks:=False, ReadOnly:=True
xlApp.EnableEvents = True
xlApp.Quit

Set xlApp = Nothing
End Sub

Bonjour,

Juste en regardant ton code je vois le problème dans cette instruction :

document = Dir(Chemin & "/B7*_.xlsm")

Tu ne vois pas ? alors c'est :

document = Dir(Chemin & "\B7*_.xlsm")