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
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