Menu contextuel et macro Complémentaire
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:
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
