empêcher le menu principal d'un soft d'apparaître si pas la bonne feuilleRésolu

Question

bonjour,

j'ai r&#233;alis&#233; un soft sous VB editor pour un fichier excel. 
a l'ouverture du fichier je veux faire appara&#238;tre le menu principal du soft (un form ordinaire) et le bouton associ&#233; dans la barre de menu d'excel. Le probl&#232;me c'est que ce menu et ce bouton ne doivent appara&#238;tre que si on est sur une feuille dont le nom n'est fait que de chiffres. 
J'ai &#233;crit le code suivant pour auto open:

Public Sub Auto_Open(ByVal Sh As Object)


Dim SheetOfWork As Worksheet
Dim SheetNameToVerify As String
Dim Menu_R, Menu_C
Dim FiguresOnly As Boolean


Set SheetOfWork = Sh
ButtonName = "PMS"
SheetNameToVerify = ActiveSheet.Name
FiguresOnly = False 'if=false then the sheet does not correspond to a sheet where the software can be used


FiguresOnly = OnlyFigures(SheetNameToVerify)
    
    'if the sheet title is not entirely numeric then user can not use the software
    
    If FiguresOnly = False Then
    
      If Closing = 0 Then
        Menu_R = MenuBars(xlWorksheet).Menus(ButtonName).Caption
        'check with the first control of the bartool
        Menu_C = Application.CommandBars.ActiveMenuBar.Controls(1).Caption
          'if the first control of the bartool is the PMS menu
          'then make it disabled
          If Menu_R = Menu_C Then
            Application.CommandBars.ActiveMenuBar.Controls(1).Enabled = False
          End If 'Menu_R=Menu_C
      End If 'Closing=0
      
    Else 'FiguresOnly=True
      
        If Closing = 0 Then
        'action on the PMS button
        Menu_R = MenuBars(xlWorksheet).Menus(ButtonName).Caption
        'check with the first control of the bartool
        Menu_C = Application.CommandBars.ActiveMenuBar.Controls(1).Caption
          'if the first control of the bartool is the PMS menu
          'then make it enabled
            If Menu_R = Menu_C Then
              Application.CommandBars.ActiveMenuBar.Controls(1).Enabled = True
            End If 'Menu_R=Menu_C
        End If 'closing=0
        
        Load Menu
        Menu.Show
    
    End If 'if FiguresOnly=false


End Sub

le 'onlyfigures' est un booleen renvoy&#233; par la fonction 'FiguresOnly' et permet de verifier si le titre est enti&#232;rement fait de chiffres, auquel cas on active ce qu'on veut sur la feuille.

Mais quand j'ouvre mon fichier excel, j'ai un message me disant 'argument non facultatif'... je nepeux pas trouver o&#249; il manque pace que l'&#233;diteur de code ne se positionne pas sur l'erreur...

auriez vous une id&#233;e de la o&#249; j'ai oubli&#233; qqch?

merki de votre aide!

  Daydayerement V&#244;tre

cs_wape · Accepted Answer

Re,

Mais &#224; quoi sert la variable SheetOfWork ? A part l'instruction "Set SheetOfWork = Sh", elle n'est pas utilis&#233;e ailleurs dans la sub Auto_Open...

wape

cs_wape · Answer

Bonjour,

C'est tout simplement que la macro Auto_Open n'accepte pas de param&#232;tres... Il faut donc &#233;crire :

Public Sub Auto_Open()
...
End Sub

wape

Daydayer · Answer

oui mais si je lui enl&#232;ve les param dans sa d&#233;claration, j'ai une erreur style 'objet requis' et le debugger se positionne sur 'Set SheetOfWork = Sh'... L&#224; je sais pas ce que je dois faire parce que niveau r&#233;solution des buggs de param je suis pas tr&#232;s forte...

t'as une id&#233;e?

  Daydayerement V&#244;tre

Daydayer · Answer

ah c'est vrai! comme c'est un bout de code que j'utilise aussi pour autre chose, j'ai pas fait attention que certaines variables n'&#233;taient pas utiles ici...

merci beaucoup!

  Daydayerement V&#244;tre

Empêcher le menu principal d'un soft d'apparaître si pas la bonne feuille

4 réponses

Discussions similaires