Discussion :

[Balbo]

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

[Godzestla]

Salut,

d'après le Help de L'évenement AddinInstall,

AddinInstall Event
See AlsoApplies ToExampleSpecifics
Occurs when the workbook is installed as an add-in

es-tu certain que tu es dans le cas concerné ?

Déplace aussi

Sub Workbook_Addininstall()
.....
End Sub

de ton module vers ThisWorkbook

[Balbo]

Affaire résolu il suffisait juste de mettre la méthode addinInstall dans le Workbook moi je l avais mis dans un nouveau module merci beaucoup