Bonjour

Afin de savoir si une appli Access peut proposer un import en fichier Excel (et sa lecture), je veux vérifier la présence d'Excel.exe sur le poste.
J'ai utilisé le code de Tofalu basé sur la gestion d'erreur
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
Public Function PrésenceExcel() As Boolean
On Error GoTo Erreur
    Dim oTmp As Object
    Set oTmp = CreateObject("Excel.Application")
    Set oTmp = Nothing
    MsgBox "Présent"
    Exit Function
Erreur:
    MsgBox "Absent"
End Function
mais dans le cas où Excel est absent la fenêtre d’erreur VBA s'affiche ; ce que je ne veux pas.
Même résultat avec On Error Resume Next.

Où est l'Error ?

Merci d'avance.

titi95