Option Explicit
Sub Bouton2002_Clic()
Dim varMonAppli As Long
varMonAppli = Shell("C:\Program Files\Microsoft Office\Office10\EXCEL.EXE -E", 1)
End Sub
Sub Bouton97_Clic()
Dim varMonAppli As Long
varMonAppli = Shell("C:\Program Files\Microsoft Office\Office\EXCEL.EXE -E", 1)
End Sub