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