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