problem with events CommandBarButto n.click in Word

[maitrepoy]

I have to create a small addin which works on Powerpoint, Word, Outlook, and Excel on Office 2000, XP, and 2003.
This addin consists in adding 2 new Buttons in the "File" Menu of office. This is properly done, but the events which should be triggered with the button.click method are not triggered in Word.
I don't understand because it properly works in the 3 others host applications.
If someone has an issue, I would be most grateful.
Thanks

here is the code of my connect.vb file:

_______________ _______________ _______________ _______

Imports Microsoft.Offic e.Core
' importe les objets nénécessaires Ã* la construction des menus ou autres outils
' au sein de microsoft office

Imports Extensibility
' importe l'interface IDTExtensibilit y2, et les objets nécessaires Ã*
' la "connection " de l'addin Ã* l'application hôte

Imports System.Runtime. InteropServices

#Region " Lisez Moi pour avoir des infos sur l'installation de l'addin sur d'autres postes. "
' Dans la fenetre Solution Explorer de Visual Studio .NET 2003, il faut:
' * click droit sur <nomDuProjet> ; et choisir "build" .
' * click droit sur <nomDuProjet>Se tup ; et choisir "build" .
' * Sur l'autre poste :
' ** copier le répertoire du projet en cours.
' ** executer (dans ce répertoire) /MyCOMAddinSetup/debug/setup .
' ** ouvrir une des applications hôte.
#End Region

' classe connect: classe qui lance l'execution de l'addin a chaque lancement
' de l'application hôte. Cette classe implémente l'interface IDTExtensibilit y2

<GuidAttribute( "8EFC12FE-8F9C-4802-88B0-56F297E844E0"), ProgIdAttribute ("MyCOMAddin.Co nnect")> _
Public Class Connect

Implements IDTExtensibilit y2

Dim applicationObje ct As Object
Dim addInInstance As Object
Dim WithEvents workitSave As CommandBarButto n
Dim WithEvents workitSaveAs As CommandBarButto n


Public Sub OnBeginShutdown (ByRef custom As System.Array) Implements Extensibility.I DTExtensibility 2.OnBeginShutdo wn
On Error Resume Next
' Notify the user you are shutting down, and delete the button.
MsgBox("Our custom Add-in is unloading.")

workitSave = applicationObje ct.CommandBars. FindControl(Tag :="workit save")
workitSave.Dele te()
applicationObje ct.NormalTempla te.Save()
workitSave = Nothing

workitSaveAs = applicationObje ct.CommandBars. FindControl(Tag :="workit save as")
workitSaveAs.De lete()
applicationObje ct.NormalTempla te.Save()
workitSaveAs = Nothing

End Sub

Public Sub OnAddInsUpdate( ByRef custom As System.Array) Implements Extensibility.I DTExtensibility 2.OnAddInsUpdat e
'
End Sub

Public Sub OnStartupComple te(ByRef custom As System.Array) Implements Extensibility.I DTExtensibility 2.OnStartupComp lete

Dim oCommandBars As CommandBars


On Error Resume Next

oCommandBars = applicationObje ct.CommandBars
If oCommandBars Is Nothing Then
' Outlook has the CommandBars collection on the Explorer object.
oCommandBars = applicationObje ct.ActiveExplor er.CommandBars
End If
workitSave = oCommandBars("F ile").Controls. Item("workit save")
If workitSave Is Nothing Then
workitSave = oCommandBars("F ile").Controls. Add(Type:=MsoCo ntrolType.msoCo ntrolButton, Id:=1)
workitSave.Capt ion = "workit save"
workitSave.Tool tipText = "workit save"
workitSave.Tag = "workit save"
workitSave.Styl e = MsoButtonStyle. msoButtonCaptio n
workitSave.OnAc tion = "!<MyCOMAddin.C onnect>"
End If

workitSaveAs = oCommandBars("F ile").Controls. Item("workit save as")
If workitSaveAs Is Nothing Then
workitSaveAs = oCommandBars("F ile").Controls. Add(Type:=MsoCo ntrolType.msoCo ntrolButton, Id:=1)
workitSaveAs.Ca ption = "workit save as"
workitSaveAs.To oltipText = "workit save as"
workitSaveAs.Ta g = "workit save as"
workitSaveAs.St yle = MsoButtonStyle. msoButtonCaptio n
workitSaveAs.On Action = "!<MyCOMAddin.C onnect>"
End If

' Display a simple message to show which application you started in.
MsgBox("Started in " & applicationObje ct.Name & ".")
oCommandBars = Nothing
End Sub

Public Sub OnDisconnection (ByVal RemoveMode As Extensibility.e xt_DisconnectMo de, ByRef custom As System.Array) Implements Extensibility.I DTExtensibility 2.OnDisconnecti on

On Error Resume Next
If RemoveMode <> Extensibility.e xt_DisconnectMo de.ext_dm_HostS hutdown Then _
Call OnBeginShutdown (custom)

applicationObje ct = Nothing
End Sub

Public Sub OnConnection(By Val application As Object, ByVal connectMode As Extensibility.e xt_ConnectMode, ByVal addInInst As Object, ByRef custom As System.Array) Implements Extensibility.I DTExtensibility 2.OnConnection
MsgBox("On Connection In MyAddin")
applicationObje ct = application
addInInstance = addInInst
' If you aren't in startup, manually call OnStartupComple te.
If (connectMode <> Extensibility.e xt_ConnectMode. ext_cm_Startup) Then _
Call OnStartupComple te(custom)

End Sub
Private Sub workitSave_Clic k(ByVal Ctrl As Microsoft.Offic e.Core.CommandB arButton, ByRef CancelDefault As Boolean) Handles workitSave.Clic k
MsgBox("vous voulez sauver ds workit")
End Sub

Private Sub workitSaveAs_Cl ick(ByVal Ctrl As Microsoft.Offic e.Core.CommandB arButton, ByRef CancelDefault As Boolean) Handles workitSaveAs.Cl ick
MsgBox("vous voulez sauver ds workit mais sous un autre nom")
End Sub

End Class
_______________ _______________ _______________ __________
it's a very simple code that make the same mistake on every configuration of PC I tried.
Thanks