Discussion :

[Soumicha]

Bonjour, j'ai ce morceau de code qui fonctionne . Cependant, j'aurais souhaité que le chemin du fichier puisse se faire sans la lettre du lecteur comme dans cet exemple "C*:". Le fichier Excel se trouve dans le même dossier que la présentation du PowerPoint.

Merci pour votre aide

Private Sub CommandButton1_Click()
Dim ID As Variant
Dim Fichier As String

Fichier = "C:\Users\Farid\Desktop\Nouveau dossier (2)\gmao2023.xlsm"

' Vérifier que le fichier existe
If Dir(Fichier, vbDirectory) = "" Then
MsgBox "Le fichier est introuvable"
Exit Sub
End If

Fichier = """EXCEL.EXE"" ""C:\Users\Farid\Desktop\Nouveau dossier (2)\gmao2023.xlsm"""
ID = Shell(Fichier, vbNormalNoFocus)
End Sub

[E KERGRESSE]

Bonjour,

Essayez :

Code :

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

    Fichier = ActivePresentation.Path & "\gmao2023.xlsm"