Discussion :

[ALEX80800]

Bonjour,

J'ai conçu une macro sur menu conceptuel
Ci joint le code

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
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
Const MENU_CONTEXT_CAPTION As String = "Intégration Données..."
 
Dim Integration As Variant   'portée Module
 
Sub MenuContextuel(Optional dummy As Byte)
Dim BAR As CommandBar
Dim C As CommandBarControl
Dim CB As CommandBarComboBox
Dim i&
'---
Integration = Array("Calame", "E-Tech", "Grand Livre")
Call DeleteMenuContextuel
Set BAR = Application.CommandBars("Ply")
Set C = BAR.Controls.Add(Type:=msoControlPopup, Before:=1, Temporary:=True)
With C
  .Caption = MENU_CONTEXT_CAPTION
  .Tag = "My_Cell_Control_Tag"
  For i& = LBound(Integration) To UBound(Integration)
    With .Controls.Add(Type:=msoControlButton)
      .Caption = Integration(i&)
      .OnAction = "'NomFeuille " & i& & "'"
    End With
  Next i&
End With
BAR.Controls(2).BeginGroup = True
End Sub
 
Sub DeleteMenuContextuel(Optional dummy As Byte)
On Error Resume Next
Application.CommandBars("Ply").Controls(MENU_CONTEXT_CAPTION).Delete
End Sub
 
Sub NomFeuille(Index As Integer)
If Index = 0 Then
Call Calame
ElseIf Index = 1 Then
Call Etech
ElseIf Index = 2 Then
Call x
End If
End Sub

J'ai voulu créer un sous menu pour l'index 3 (dont vous n'avez pas l'ébauche et que j'ai supprimé après coup)

Mais cette ébauche reste dans l'exécution dans mon Excel. Et elle ne ressort pas dans le PC d'autres utilisateurs.



J'ai eu un message office me parlant d'active X sur macro et je pense qu'il y a un rapport.

Je ne sais pas où je peux corriger ce problème. D'où mon appel à l'aide

[Philippe PONS]

Salut,

Tu peux exécuter ta sub dans Workbook_Open pour que soit créé ta barre de commande à l'ouverture du classeur.
Cordialement,

[ALEX80800]

Bonjour Philippe,

Je me suis exécuté suite à ta proposition :

Salut,

Tu peux exécuter ta sub dans Workbook_Open pour que soit créé ta barre de commande à l'ouverture du classeur.
Cordialement,

Mais rien n'y fait

Le message exact est :

"Avertissement concernant la confidentialité : ce document contient des macros, des controles ActiveX, des informations sur le kit d'extension XML ou des composants Web. Ils peuvent renfermer des informations personnelles qui ne peuvent pas être supprimées par l'Inspecteur du document"

Quesaquo?
Mais encore?

Quelqu'un peut-il m'aiguiller?