Excel VBA - ajouter un menu

Excel VBA - ajouter un menu - VB/VBA/VBS - Programmation

Marsh Posté le 06-06-2008 à 16:57:56    

:hello:  
 
Décidément, la programmation VBA n'est pas si simple que ça sous Excel...
Je souhaite rajouter un menu personnalisé tout à droite du "?" de la barre de menu standard (Fichier Edition Affichage ... Fenêtre ?).
 
J'ai fait ce code pour rajouter le menu "TEST".
 

Code :
  1. Dim NMenu As Object
  2.     Set NMenu = Application.CommandBars.Add ("TEST", msoBarRight, True, True)
  3.     With NMenu.Controls.Add(msoControlButton)
  4.         .Caption = "Test1"
  5.         .OnAction = "ATest1"
  6.     End With


 
J'ai inséré ce code au Sub Workbook_Open et à l'ouverture de mon fichier Excel, il n'y a pas de bug... mais rien ne s'affiche...  :fou:  
 
Merci pour votre aide... ;)
 
 :hello:


---------------
iMac 4Ghz (fin 2015) RAM 16Go SSD 256Go SSD 2To
Reply

Marsh Posté le 06-06-2008 à 16:57:56   

Reply

Marsh Posté le 06-06-2008 à 17:07:16    

alors de mémoire
 
l'objet command bar tu ne doit pas l'ajouter, mais utiliser celui qui est déjà en place.
 
 
la tu fais de la programmation VB avancée :p
 
 
 
bon voici un module que je m'étais refait y a pas longtemps :

Code :
  1. Option Explicit
  2. ' = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = =
  3. ' Projet      : Outil Portable
  4. ' - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
  5. ' Fichier     : modMenus
  6. ' - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
  7. ' Création    : 09/02/2008
  8. ' Version     : 1.0
  9. ' - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
  10. ' Description : Gestion des Menus d'Excel
  11. ' = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = =
  12. ' = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = =
  13. ' Procédure   : fg_ChargementMenu
  14. ' - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
  15. ' Création    : 09/02/2008
  16. ' Auteur      : Xavier Ferrer
  17. ' Version     : 1.0
  18. ' - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
  19. ' Entrée      : strCommandBarName     -> nom de la Barre contenant les menus
  20. '             : strMenuName           -> nom du menu à ajouter
  21. ' Sortie      : booléen 'True' si succès, 'False' sinon
  22. ' - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
  23. ' Description : Ajoute un menu directement à la barre de commande concernée
  24. '             : "Worksheet Menu Bar" représente la barre de menu des feuilles Excel (= strCommandBarName)
  25. ' = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = =
  26. Public Function fg_ChargementMenu(strCommandBarName As String, strMenuName As String) As Boolean
  27. On Error GoTo fg_ChargementMenu_Error
  28.  
  29.    Dim objMenu As CommandBar
  30.    Dim objPopup As CommandBarPopup
  31.    Dim blnPopupPresent As Boolean
  32.  
  33.    fg_ChargementMenu = False
  34.    'On parcours les barres de menu
  35.    For Each objMenu In Application.CommandBars
  36.       If objMenu.Name = strCommandBarName Then
  37.        
  38.          'On teste si le menu racine est déjà présent dans la barre
  39.          For Each objPopup In objMenu.Controls
  40.             If objPopup.Caption = strMenuName Then
  41.                blnPopupPresent = True
  42.             End If
  43.          Next objPopup
  44.      
  45.          'S'il n'est pas présent on le rajoute
  46.          If Not blnPopupPresent Then
  47.             Set objPopup = objMenu.Controls.Add(msoControlPopup, , , 10, True)
  48.             objPopup.Caption = strMenuName
  49.          End If
  50.      
  51.       End If
  52.    Next objMenu
  53. Exit Function
  54. fg_ChargementMenu_Error:
  55. End Function
  56. ' = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = =
  57. ' Procédure   : fg_ChargementSousMenu
  58. ' - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
  59. ' Création    : 09/02/2008
  60. ' Version     : 1.0
  61. ' - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
  62. ' Entrée      : strCommandBarName     -> nom de la Barre contenant les menus
  63. '             : strMenuName           -> nom du menu impacter
  64. '             : strSousMenuCaption    -> caption du sous-menu à ajouter
  65. '             : strSousMenuOnAction   -> procédure à lancer quand le sous-menu est cliqué
  66. ' Sortie      : booléen 'True' si succès, 'False' sinon
  67. ' - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
  68. ' Description : Ajoute un sous-menu directement dessous le menu de la barre de commande concernée
  69. '             : Par exemple "Worksheet Menu Bar" représente la barre de menu des feuilles Excel (= strCommandBarName)
  70. '             : suffit ensuite de prendre n'importe quel menu existant et de lui ajouter un sous-menu...
  71. ' = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = =
  72. Public Function fg_ChargementSousMenu(strCommandBarName As String, strMenuName As String, strSousMenuCaption As String, strSousMenuOnAction As String) As Boolean
  73.    On Error GoTo fg_ChargementSousMenu_Error
  74.    Dim objMenu As CommandBar
  75.    Dim objPopup As CommandBarPopup
  76.    Dim objButton As CommandBarButton
  77.    fg_ChargementSousMenu = False
  78.    'On parcours les barres de menu
  79.    For Each objMenu In Application.CommandBars
  80.       If objMenu.Name = strCommandBarName Then
  81.          'On parcours les menus de la barre
  82.          For Each objPopup In objMenu.Controls
  83.             If objPopup.Caption = strMenuName Then
  84.                'On ajoute le bouton de sous-menu
  85.                Set objButton = objPopup.Controls.Add(Type:=msoControlButton)
  86.                objButton.Caption = strSousMenuCaption
  87.                objButton.OnAction = strSousMenuOnAction
  88.                fg_ChargementSousMenu = True
  89.             End If
  90.          Next objPopup
  91.       End If
  92.    Next objMenu
  93. Exit Function
  94. fg_ChargementSousMenu_Error:
  95. End Function
  96. ' = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = =
  97. ' Procédure   : fg_DechargementSousMenu
  98. ' - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
  99. ' Création    : 09/02/2008
  100. ' Version     : 1.0
  101. ' - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
  102. ' Entrée      : strCommandBarName     -> nom de la Barre contenant les menus
  103. '             : strMenuName           -> nom du menu impacter
  104. '             : strSousMenuCaption    -> caption du sous-menu à supprimer
  105. ' Sortie      : booléen 'True' si succès, 'False' sinon
  106. ' - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
  107. ' Description : Supprime un sous-menu du menu de la barre de commande concernée
  108. '             : "Worksheet Menu Bar" représente la barre de menu des feuilles Excel (= strCommandBarName)
  109. ' = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = =
  110. Public Function fg_DechargementSousMenu(strCommandBarName As String, strMenuName As String, strSousMenuCaption As String) As Boolean
  111.    On Error GoTo fg_DechargementSousMenu_Error
  112.    Dim objMenu As CommandBar
  113.    Dim objPopup As CommandBarPopup
  114.    Dim objButton As CommandBarButton
  115.    fg_DechargementSousMenu = False
  116.    'On parcours les barres de menu
  117.    For Each objMenu In Application.CommandBars
  118.       If objMenu.Name = strCommandBarName Then
  119.          'On parcours les menus de la barre
  120.          For Each objPopup In objMenu.Controls
  121.             If objPopup.Caption = strMenuName Then
  122.                'On parcours les sous-menu
  123.                For Each objButton In objPopup.Controls
  124.                   If objButton.Caption = strSousMenuCaption Then
  125.                      'On supprime le bouton de menu
  126.                      objButton.Delete
  127.                      fg_DechargementSousMenu = True
  128.                   End If
  129.                Next objButton
  130.             End If
  131.          Next objPopup
  132.       End If
  133.    Next objMenu
  134. Exit Function
  135. fg_DechargementSousMenu_Error:
  136. End Function
  137. ' = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = =
  138. ' Procédure   : fg_SousMenuPresent
  139. ' - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
  140. ' Création    : 09/02/2008
  141. ' Version     : 1.0
  142. ' - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
  143. ' Entrée      : strCommandBarName     -> nom de la Barre contenant les menus
  144. '             : strMenuName           -> nom du menu impacter
  145. '             : strSousMenuCaption    -> caption du sous-menu à tester
  146. ' Sortie      : booléen 'True' si succès, 'False' sinon
  147. ' - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
  148. ' Description : Teste la présence d'un sous menu dans excel
  149. ' = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = =
  150. Public Function fg_SousMenuPresent(strCommandBarName As String, strMenuName As String, strSousMenuCaption As String) As Boolean
  151. On Error GoTo fg_SousMenuPresent_Error
  152.    Dim objMenu As CommandBar
  153.    Dim objPopup As CommandBarPopup
  154.    Dim objButton As CommandBarButton
  155.    fg_SousMenuPresent = False
  156.    'On parcours les barres de menu
  157.    For Each objMenu In Application.CommandBars
  158.       If objMenu.Name = strCommandBarName Then
  159.          'On parcours les menus de la barre
  160.          For Each objPopup In objMenu.Controls
  161.             If objPopup.Caption = strMenuName Then
  162.                'On parcours les sous-menu
  163.                For Each objButton In objPopup.Controls
  164.                   If objButton.Caption = strSousMenuCaption Then
  165.                      'Le menu est présent
  166.                      fg_SousMenuPresent = True
  167.                   End If
  168.                Next objButton
  169.             End If
  170.          Next objPopup
  171.       End If
  172.    Next objMenu
  173. Exit Function
  174. fg_SousMenuPresent_Error:
  175. End Function


 
 
et voici ce que j'avais dans mon workbook_open :

Code :
  1. Private Sub Workbook_Open()
  2. On Error GoTo Workbook_Open_Error
  3.  
  4.    Const strCommandBarName As String = "Worksheet Menu Bar"
  5.    Const strMenuPNCaption As String = "Outils &PN"
  6.  
  7.    Call fg_ChargementMenu(strCommandBarName, strMenuPNCaption)
  8.    Call fg_ChargementSousMenu(strCommandBarName, strMenuPNCaption, "&Supprimer les lignes barrées", "modOutilsVBA.subMenuSuppressionLignes" )
  9.    'Call fg_ChargementSousMenu(strCommandBarName, strMenuPNCaption, "&Options", "modMain.subMenuOptions" )
  10.    'Call fg_ChargementSousMenu(strCommandBarName, strMenuPNCaption, "&Test", "modOutilsVBA.subMenuTest" )
  11.  
  12. Exit Sub
  13. Workbook_Open_Error:
  14. End Sub


 
je te laisse adapter ça tout seul comme un grand :D

Message cité 1 fois
Message édité par Xxxaaavvv le 06-06-2008 à 17:21:25
Reply

Marsh Posté le 06-06-2008 à 17:17:23    

Xxxaaavvv a écrit :

alors de mémoire
 
l'objet command bar tu ne doit pas l'ajouter, mais utiliser celui qui est déjà en place.
 
 
la tu fais de la programmation VB avancée :p
 
 
 
bon voici un module que je m'étais refait y a pas longtemps :

Code :
  1. Option Explicit
  2. ' = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = =
  3. ' Projet      : Outil Portable
  4. ' - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
  5. ' Fichier     : modMenus
  6. ' - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
  7. ' Création    : 09/02/2008
  8. ' Auteur      : Xxxaaavvv
  9. ' Version     : 1.0
  10. ' - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
  11. ' Description : Gestion des Menus d'Excel
  12. ' = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = =
  13. ' = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = =
  14. ' Procédure   : fg_ChargementMenu
  15. ' - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
  16. ' Création    : 09/02/2008
  17. ' Auteur      : Xxxaaavvv
  18. ' Version     : 1.0
  19. ' - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
  20. ' Entrée      : strCommandBarName     -> nom de la Barre contenant les menus
  21. '             : strMenuName           -> nom du menu à ajouter
  22. ' Sortie      : booléen 'True' si succès, 'False' sinon
  23. ' - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
  24. ' Description : Ajoute un menu directement à la barre de commande concernée
  25. '             : "Worksheet Menu Bar" représente la barre de menu des feuilles Excel (= strCommandBarName)
  26. ' = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = =
  27. Public Function fg_ChargementMenu(strCommandBarName As String, strMenuName As String) As Boolean
  28. On Error GoTo fg_ChargementMenu_Error
  29.  
  30.    Dim objMenu As CommandBar
  31.    Dim objPopup As CommandBarPopup
  32.    Dim blnPopupPresent As Boolean
  33.  
  34.    fg_ChargementMenu = False
  35.    'On parcours les barres de menu
  36.    For Each objMenu In Application.CommandBars
  37.       If objMenu.Name = strCommandBarName Then
  38.        
  39.          'On teste si le menu racine est déjà présent dans la barre
  40.          For Each objPopup In objMenu.Controls
  41.             If objPopup.Caption = strMenuName Then
  42.                blnPopupPresent = True
  43.             End If
  44.          Next objPopup
  45.      
  46.          'S'il n'est pas présent on le rajoute
  47.          If Not blnPopupPresent Then
  48.             Set objPopup = objMenu.Controls.Add(msoControlPopup, , , 10, True)
  49.             objPopup.Caption = strMenuName
  50.          End If
  51.      
  52.       End If
  53.    Next objMenu
  54. Exit Function
  55. fg_ChargementMenu_Error:
  56. End Function
  57. ' = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = =
  58. ' Procédure   : fg_ChargementSousMenu
  59. ' - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
  60. ' Création    : 09/02/2008
  61. ' Auteur      : Xxxaaavvv
  62. ' Version     : 1.0
  63. ' - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
  64. ' Entrée      : strCommandBarName     -> nom de la Barre contenant les menus
  65. '             : strMenuName           -> nom du menu impacter
  66. '             : strSousMenuCaption    -> caption du sous-menu à ajouter
  67. '             : strSousMenuOnAction   -> procédure à lancer quand le sous-menu est cliqué
  68. ' Sortie      : booléen 'True' si succès, 'False' sinon
  69. ' - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
  70. ' Description : Ajoute un sous-menu directement dessous le menu de la barre de commande concernée
  71. '             : Par exemple "Worksheet Menu Bar" représente la barre de menu des feuilles Excel (= strCommandBarName)
  72. '             : suffit ensuite de prendre n'importe quel menu existant et de lui ajouter un sous-menu...
  73. ' = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = =
  74. Public Function fg_ChargementSousMenu(strCommandBarName As String, strMenuName As String, strSousMenuCaption As String, strSousMenuOnAction As String) As Boolean
  75.    On Error GoTo fg_ChargementSousMenu_Error
  76.    Dim objMenu As CommandBar
  77.    Dim objPopup As CommandBarPopup
  78.    Dim objButton As CommandBarButton
  79.    fg_ChargementSousMenu = False
  80.    'On parcours les barres de menu
  81.    For Each objMenu In Application.CommandBars
  82.       If objMenu.Name = strCommandBarName Then
  83.          'On parcours les menus de la barre
  84.          For Each objPopup In objMenu.Controls
  85.             If objPopup.Caption = strMenuName Then
  86.                'On ajoute le bouton de sous-menu
  87.                Set objButton = objPopup.Controls.Add(Type:=msoControlButton)
  88.                objButton.Caption = strSousMenuCaption
  89.                objButton.OnAction = strSousMenuOnAction
  90.                fg_ChargementSousMenu = True
  91.             End If
  92.          Next objPopup
  93.       End If
  94.    Next objMenu
  95. Exit Function
  96. fg_ChargementSousMenu_Error:
  97. End Function
  98. ' = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = =
  99. ' Procédure   : fg_DechargementSousMenu
  100. ' - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
  101. ' Création    : 09/02/2008
  102. ' Auteur      : Xxxaaavvv
  103. ' Version     : 1.0
  104. ' - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
  105. ' Entrée      : strCommandBarName     -> nom de la Barre contenant les menus
  106. '             : strMenuName           -> nom du menu impacter
  107. '             : strSousMenuCaption    -> caption du sous-menu à supprimer
  108. ' Sortie      : booléen 'True' si succès, 'False' sinon
  109. ' - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
  110. ' Description : Supprime un sous-menu du menu de la barre de commande concernée
  111. '             : "Worksheet Menu Bar" représente la barre de menu des feuilles Excel (= strCommandBarName)
  112. ' = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = =
  113. Public Function fg_DechargementSousMenu(strCommandBarName As String, strMenuName As String, strSousMenuCaption As String) As Boolean
  114.    On Error GoTo fg_DechargementSousMenu_Error
  115.    Dim objMenu As CommandBar
  116.    Dim objPopup As CommandBarPopup
  117.    Dim objButton As CommandBarButton
  118.    fg_DechargementSousMenu = False
  119.    'On parcours les barres de menu
  120.    For Each objMenu In Application.CommandBars
  121.       If objMenu.Name = strCommandBarName Then
  122.          'On parcours les menus de la barre
  123.          For Each objPopup In objMenu.Controls
  124.             If objPopup.Caption = strMenuName Then
  125.                'On parcours les sous-menu
  126.                For Each objButton In objPopup.Controls
  127.                   If objButton.Caption = strSousMenuCaption Then
  128.                      'On supprime le bouton de menu
  129.                      objButton.Delete
  130.                      fg_DechargementSousMenu = True
  131.                   End If
  132.                Next objButton
  133.             End If
  134.          Next objPopup
  135.       End If
  136.    Next objMenu
  137. Exit Function
  138. fg_DechargementSousMenu_Error:
  139. End Function
  140. ' = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = =
  141. ' Procédure   : fg_SousMenuPresent
  142. ' - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
  143. ' Création    : 09/02/2008
  144. ' Auteur      : Xxxaaavvv
  145. ' Version     : 1.0
  146. ' - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
  147. ' Entrée      : strCommandBarName     -> nom de la Barre contenant les menus
  148. '             : strMenuName           -> nom du menu impacter
  149. '             : strSousMenuCaption    -> caption du sous-menu à tester
  150. ' Sortie      : booléen 'True' si succès, 'False' sinon
  151. ' - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
  152. ' Description : Teste la présence d'un sous menu dans excel
  153. ' = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = =
  154. Public Function fg_SousMenuPresent(strCommandBarName As String, strMenuName As String, strSousMenuCaption As String) As Boolean
  155. On Error GoTo fg_SousMenuPresent_Error
  156.    Dim objMenu As CommandBar
  157.    Dim objPopup As CommandBarPopup
  158.    Dim objButton As CommandBarButton
  159.    fg_SousMenuPresent = False
  160.    'On parcours les barres de menu
  161.    For Each objMenu In Application.CommandBars
  162.       If objMenu.Name = strCommandBarName Then
  163.          'On parcours les menus de la barre
  164.          For Each objPopup In objMenu.Controls
  165.             If objPopup.Caption = strMenuName Then
  166.                'On parcours les sous-menu
  167.                For Each objButton In objPopup.Controls
  168.                   If objButton.Caption = strSousMenuCaption Then
  169.                      'Le menu est présent
  170.                      fg_SousMenuPresent = True
  171.                   End If
  172.                Next objButton
  173.             End If
  174.          Next objPopup
  175.       End If
  176.    Next objMenu
  177. Exit Function
  178. fg_SousMenuPresent_Error:
  179. End Function


 
 
et voici ce que j'avais dans mon workbook_open :

Code :
  1. Private Sub Workbook_Open()
  2. On Error GoTo Workbook_Open_Error
  3.  
  4.    Const strCommandBarName As String = "Worksheet Menu Bar"
  5.    Const strMenuPNCaption As String = "Outils &PN"
  6.  
  7.    Call fg_ChargementMenu(strCommandBarName, strMenuPNCaption)
  8.    Call fg_ChargementSousMenu(strCommandBarName, strMenuPNCaption, "&Supprimer les lignes barrées", "modOutilsVBA.subMenuSuppressionLignes" )
  9.    'Call fg_ChargementSousMenu(strCommandBarName, strMenuPNCaption, "&Options", "modMain.subMenuOptions" )
  10.    'Call fg_ChargementSousMenu(strCommandBarName, strMenuPNCaption, "&Test", "modOutilsVBA.subMenuTest" )
  11.  
  12. Exit Sub
  13. Workbook_Open_Error:
  14. End Sub


 
je te laisse adapter ça tout seul comme un grand :D


 
 :D  L'est gentil le petit Xxxaaavvv :D
 
Je vais tenter déjà de rajouter tout cela dans mon code...
 
Et effectivement, c'est déjà de la programmation avancée...  :pt1cable:  
 
;)
 


---------------
iMac 4Ghz (fin 2015) RAM 16Go SSD 256Go SSD 2To
Reply

Marsh Posté le 09-06-2008 à 12:02:57    

:hello:  
 
J'ai une question concernant le code que l'on insère dans le WorkBook_Open :
 

Code :
  1. 'Call fg_ChargementSousMenu(strCommandBarName, strMenuPNCaption, "&Options", "modMain.subMenuOptions" )


 
La macro appelée s'appelle modMain.subMenuOptions... mais je n'arrive pas à lancer la macro...
Impossible de trouver la macro...
 
Pourtant j'ai créé un sub macro()
 
 ;)

Reply

Marsh Posté le 11-06-2008 à 11:48:13    

modMain.subMenuOptions
 
modMain = nom du module ou se trouve ta macro
subMenuOptions = nom de ta  macro
 
 
si tu a créer :
sub macro()  
alors ça doit être un truc du style :
 
module.macro
 
a toi de jouer.

Reply

Marsh Posté le 11-06-2008 à 12:02:00    

Merci Xxxaaavvv !
Tout fonctionne correctement à présent...  ;)


---------------
iMac 4Ghz (fin 2015) RAM 16Go SSD 256Go SSD 2To
Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed