lancer exel depuis powerpointbouton

[mimi1958]

Bonjour
j'ai créer un bouton sur PowerPoint et lui est attribue une action.
Sur votre site j'ai trouve ce code mais il ne marche pas pas car quand je clique sur le bouton il me revoi erreur " Sub end attendu "

voici le code qui se trouve :

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

Fichier = "C:\Users\michel\Desktop\howell\tournoi howell 7 paires.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\michel\Desktop\howell\tournoi howell 7 paires.xlsm"""
ID = Shell(Fichier, vbMaximizedNoFocus)
End Sub
End Sub

Merci pour votre aide

 

[Theze]

Bonjour,

Essais plutôt de cette façon :

Private Sub CommandButton1_Click()

    Test
   
End Sub

Sub Test()

    Dim ID As Variant
    Dim Fichier As String
   
    Fichier = "C:\Users\michel\Desktop\howell\tournoi howell 7 paires.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\michel\Desktop\howell\tournoi howell 7 paires.xlsm"""
    ID = Shell(Fichier, vbMaximizedNoFocus)

End Sub

 

[mimi1958]

voila j ai colle ca sur le bouton et ca donne :

Private Sub CommandButton18_Click()

End Sub

Private Sub CommandButton19_Click()

Test

End Sub

Sub Test()

Dim ID As Variant
Dim Fichier As String

Fichier = "C:\Users\michel\Desktop\howell\tournoi howell 7 paires.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\michel\Desktop\howell\tournoi howell 7 paires.xlsm"""
ID = Shell(Fichier, vbMaximizedNoFocus)

End Sub
End Sub

envoi erreur :

non ambigu détecte test

 

[mimi1958]

ok ca marche merci beaucoup pour ton aide