Public AppExcel As Excel.Application
Sub Ouvre_Autre()
Dim Nom_Fichier As Variant
Nom_Fichier = Application.GetOpenFilename('Classeurs Excel,*.xls')
If Nom_Fichier = False Then
MsgBox 'Ouverture Annulée', vbOKOnly + vbInformation
Else
Set AppExcel = CreateObject('Excel.Application')
AppExcel.Workbooks.Open Filename:=Nom_Fichier
AppExcel.Visible = True
Application.Quit
End If
End Sub