Classeur s'ouvre en double

[marinaetsonchat]

Bonjour,

J'utilise le code trouvé ici et dans plusieurs forums, mais mon fichier excel s'ouvre 2 fois et en lecture seule (je ne clique pas 2 fois sur le bouton^^), qqn aurait-il une idée du pourquoi ?

Code :

1
2
3
4
5
6
7
8
9
10
11
Private Sub Bascule65_Click()
    Dim xls As Excel.Application
On Error GoTo errHnd
    Set xls = CreateObject("Excel.Application")
    xls.Workbooks.Open "c:\AvisCom\Trimestriel.xls"
    xls.Workbooks("Trimestriel.xls").Sheets("Feuil2").Activate
    xls.Visible = True
    Exit Sub
errHnd:
    MsgBox "Erreur N° " & Err.Number & vbLf & Err.Description, , Err.Source
End Sub

J'ai essayé d'utiliser les paramètres de la fonction Open :
xls.Workbooks.Open "c:\AvisCom\Trimestriel.xls", 2 , false, ....
mais rien à faire.

[marinaetsonchat]

Pour information, mon problème de double ouverture semble venir de l'evenement que j'utilise.
Sur clic du bouton bascule ca s'ouvre 2 fois, Sur souris appuyée ca s'ouvre une seule fois...