Bonjour,

j'ai fais un petit macro sous excel qui permet d'ouvrir une page internet en prenant comme parametreun Id jusqu'ici tout fonctionne mon probleme c'est lorsque que j'utilise l'évenement Workbook_AddinInstall() rien ne se passe et je n'arrive pas a créer mon menu contextuel. J'ai besoin de le faire créer par cet évenement car je doit ensuite déployer cet macro à un grand nombre de personnes voivi mon code que j ai mis dans un module vierge :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
 
Sub Workbook_AddinInstall()
With Application.CommandBars("Cell").Controls.Add(msoControlButton)
.Caption = "test ajout menu"
.BeginGroup = True
.OnAction = "OuvrirFFT"
End With
MsgBox "Workbook_AddinInstall()"
End Sub
 
Sub OuvrirFFT()
 
Dim MyData As DataObject
Set MyData = New DataObject
MyData.SetText (ActiveCell.Value)
MyData.PutInClipboard
Shell ("C:\Program Files\Internet Explorer\iexplore.exe testdirector:qc.eic.intra/qcbin,ACR,TD_ACR,%5bAnyUser%5d;2:" & ActiveCell)
 
End Sub
 
Sub Workbook_AddinUninstall()
'Supprimer menu contextuel
Application.CommandBars("Cell").Reset
End Sub
Si quelqu'un à une idée du pourquoi ca ne focntionne pas ! Précision la macro je peux l'activer par excel Outils/Macro Complémentaire ... mais lorsque je l active pas de menu créer

Merci d'avance de vos réponses