XL 2010 Macro qui ne fonctionne plus sous Excel 2010

[MuscatMimi]

Bonjour a tout le Forum
je me fais rare
Je viens de passer a windows 10 pro et office 2010
J'avais crée une macro complémentaire,qui s'affichait dans le menu excel(2002)et excel2007
qui fonctionnais bien
Maintenant j'ai une erreur
Voici ce code
Dans ThisWorkbook
Private Sub Workbook_AddinInstall()..........erreur ici
Call AjouterMenu
End Sub

Private Sub Workbook_AddinUninstall()
Call SupprimerMenu
End Sub

Dans un Module
Sub auto_open()
'ajouter le menu Conversion avant le menu Outils
MenuBars(xlWorksheet).Menus.Add Caption:="&P", Before:=6
'ajouter les commandes au menu Conversion
With MenuBars(xlWorksheet).Menus("P").MenuItems
.Add Caption:="Ma&juscule", OnAction:="Majuscule"
.Add Caption:="Mi&nuscule", OnAction:="Minuscule"
.Add Caption:="&Nom Propre", OnAction:="NomPropre"
'.Add Caption:="&Euros", OnAction:="ConversionEuros"
'.Add Caption:="&Francs", OnAction:="ConversionFrancs"
'.Add Caption:="&Logo", OnAction:="Logo"
'.Add Caption:="&Chéque", OnAction:="Chéq"
' .Add Caption:="&Excel", OnAction:="Ex"

End With
'ajouter une commande au menu Outils
MenuBars(xlWorksheet).Menus("Outils").MenuItems.Add Caption:="Majuscule", OnAction:="Majuscule"
'************

End Sub
Sub auto_close()
On Error Resume Next
MenuBars(xlWorksheet).Menus("Outils").MenuItems("Majuscule").Delete
For Each M In MenuBars(xlWorksheet).Menus
If M.Caption = "&P" Then M.Delete
Next
End Sub

Sub Majuscule()
For Each c In Selection
If Not IsNumeric(c.Value) And Not IsDate(c.Value) Then
c.Value = UCase(c.Value)
End If
Next c
End Sub
Sub Minuscule()
For Each c In Selection
If Not IsNumeric(c.Value) And Not IsDate(c.Value) Then
c.Value = LCase(c.Value)
End If
Next c
End Sub
Sub NomPropre()
For Each c In Selection
If Not IsNumeric(c.Value) And Not IsDate(c.Value) Then
c.Value = Application.Proper(c.Value)
End If
Next c
End Sub

Merci a tous a l'avance
Christian

 

[cp4]

Bonjour,

Hum! ça sent le 64bits. Microsoft conseille d'installer la version 32bits même sur un système 64bits.

Désolé, de ne pouvoir en faire.

Bon week-end.

 

[MuscatMimi]

Bonjour
Windows 10 Pro 32 bits
Office 2010 32 bits

 

[Roland_M]

bonjour,

je ne vois nulle part cette macro appelée: AjouterMenu ?
pas plus > SupprimerMenu ?